File Coverage

blib/lib/Tak/ModuleSender.pm
Criterion Covered Total %
statement 12 22 54.5
branch 0 2 0.0
condition n/a
subroutine 4 7 57.1
pod 0 1 0.0
total 16 32 50.0


line stmt bran cond sub pod time code
1             package Tak::ModuleSender;
2              
3 1     1   1039 use IO::All;
  1         2  
  1         14  
4 1     1   53 use List::Util qw(first);
  1         2  
  1         52  
5 1     1   5 use Config;
  1         1  
  1         34  
6 1     1   5 use Moo;
  1         1  
  1         5  
7              
8             with 'Tak::Role::Service';
9              
10             has dir_list => (is => 'lazy');
11              
12             sub _build_dir_list {
13 0     0     my %core = map +($_ => 1), @Config{qw(privlibexp archlibexp)};
14 0           [ map io->dir($_), grep !/$Config{archname}$/, grep !$core{$_}, @INC ];
15             }
16              
17             sub handle_source_for {
18 0     0 0   my ($self, $module) = @_;
19 0     0     my $io = first { $_->exists } map $_->catfile($module), @{$self->dir_list};
  0            
  0            
20 0 0         unless ($io) {
21 0           die [ 'failure' ];
22             }
23 0           my $code = $io->all;
24 0           return $code;
25             }
26              
27             1;