File Coverage

inc/parent.pm
Criterion Covered Total %
statement 19 21 90.4
branch 2 4 50.0
condition 1 3 33.3
subroutine 4 4 100.0
pod n/a
total 26 32 81.2


line stmt bran cond sub pod time code
1             #line 1
2 2     2   5584 package parent;
  2         4  
  2         68  
3 2     2   12 use strict;
  2         3  
  2         367  
4             use vars qw($VERSION);
5             $VERSION = '0.225';
6              
7 2     2   11 sub import {
8             my $class = shift;
9 2         4  
10             my $inheritor = caller(0);
11 2 50 33     16  
12 0         0 if ( @_ and $_[0] eq '-norequire' ) {
13             shift @_;
14 2         5 } else {
15 2 50       8 for ( my @filename = @_ ) {
16 0         0 if ( $_ eq $inheritor ) {
17             warn "Class '$inheritor' tried to inherit from itself\n";
18             };
19 2         6  
20 2         15 s{::|'}{/}g;
21             require "$_.pm"; # dies if the file is not found
22             }
23             }
24              
25 2     2   12 {
  2         21  
  2         136  
  2         5  
26 2         2 no strict 'refs';
  2         131  
27             push @{"$inheritor\::ISA"}, @_;
28             };
29             };
30              
31             "All your base are belong to us"
32              
33             __END__