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   210982 use strict;
  7         34  
  7         1144  
3              
4             our $VERSION = '0.240';
5              
6             sub import {
7 17     17   5739 my $class = shift;
8              
9 17         36 my $inheritor = caller(0);
10              
11 17 100 100     131 if ( @_ and $_[0] eq '-norequire' ) {
12 8         14 shift @_;
13             } else {
14 9         32 for ( my @filename = @_ ) {
15 6         36 s{::|'}{/}g;
16 6         1931 require "$_.pm"; # dies if the file is not found
17             }
18             }
19              
20             {
21 7     7   49 no strict 'refs';
  7         14  
  7         611  
  14         53  
22 14         18 push @{"$inheritor\::ISA"}, @_; # dies if a loop is detected
  14         4617  
23             };
24             };
25              
26             1;
27              
28             __END__