Commit | Line | Data |
542d5b5c |
1 | package Object::Remote::ModuleSender; |
2 | |
23591f5f |
3 | use Object::Remote::Logging qw( :log :dlog ); |
542d5b5c |
4 | use Config; |
5 | use File::Spec; |
6 | use List::Util qw(first); |
7 | use Moo; |
8 | |
9 | has dir_list => (is => 'lazy'); |
10 | |
11 | sub _build_dir_list { |
df8e0ca6 |
12 | my %core = map +($_ => 1), grep $_, @Config{ |
13 | qw(privlibexp archlibexp vendorarchexp sitearchexp) |
14 | }; |
23591f5f |
15 | DlogS_trace { "dir list built in ModuleSender: $_" } [ grep !$core{$_}, @INC ]; |
542d5b5c |
16 | } |
17 | |
18 | sub source_for { |
19 | my ($self, $module) = @_; |
23591f5f |
20 | log_debug { "locating source for module '$module'" }; |
7462160e |
21 | if (my $find = Object::Remote::FromData->can('find_module')) { |
22 | if (my $source = $find->($module)) { |
cace7b80 |
23 | Dlog_trace { "source of '$module' was found by Object::Remote::FromData" }; |
62796659 |
24 | return $source; |
7462160e |
25 | } |
26 | } |
23591f5f |
27 | log_trace { "Searching for module in library directories" }; |
542d5b5c |
28 | my ($found) = first { -f $_ } |
29 | map File::Spec->catfile($_, $module), |
30 | @{$self->dir_list}; |
31 | die "Couldn't find ${module} in remote \@INC. dir_list contains:\n" |
32 | .join("\n", @{$self->dir_list}) |
33 | unless $found; |
23591f5f |
34 | log_debug { "found '$module' at '$found'" }; |
542d5b5c |
35 | open my $fh, '<', $found or die "Couldn't open ${found} for ${module}: $!"; |
36 | return do { local $/; <$fh> }; |
37 | } |
38 | |
39 | 1; |