File Coverage

blib/lib/parent.pm
Criterion Covered Total %
statement 16 16 100.0
branch 2 2 100.0
condition 3 3 100.0
subroutine 3 3 100.0
pod n/a
total 24 24 100.0


line stmt bran cond sub pod time code
1             package parent;
2 7     7   211594 use strict;
  7         32  
  7         1035  
3              
4             our $VERSION = '0.241';
5              
6             sub import {
7 17     17   5535 my $class = shift;
8              
9 17         33 my $inheritor = caller(0);
10              
11 17 100 100     119 if ( @_ and $_[0] eq '-norequire' ) {
12 8         17 shift @_;
13             } else {
14 9         38 for ( my @filename = @_ ) {
15 6         27 s{::|'}{/}g;
16 6         1739 require "$_.pm"; # dies if the file is not found
17             }
18             }
19              
20             {
21 7     7   54 no strict 'refs';
  7         14  
  7         572  
  14         52  
22 14         21 push @{"$inheritor\::ISA"}, @_; # dies if a loop is detected
  14         4834  
23             };
24             };
25              
26             1;
27              
28             __END__