File Coverage

lib/UNIVERSAL/implant.pm
Criterion Covered Total %
statement 15 15 100.0
branch 1 2 50.0
condition n/a
subroutine 5 5 100.0
pod 0 1 0.0
total 21 23 91.3


line stmt bran cond sub pod time code
1             package UNIVERSAL::implant;
2             our $VERSION = '0.01_01';
3              
4             # ABSTRACT: UNIVERSAL Class::Implant
5              
6 2     2   97788 use 5.008008;
  2         9  
  2         664  
7 2     2   14 use strict;
  2         8  
  2         395  
8 2     2   13 use warnings;
  2         19  
  2         728  
9              
10             BEGIN {
11 2     2   3303 require UNIVERSAL;
12 2         2751 require Class::Implant;
13             }
14              
15             package UNIVERSAL;
16             our $VERSION = '0.01_01';
17              
18              
19             sub implant {
20 1 50   1 0 22 my $options = ( ref($_[-1]) eq "HASH" ? pop(@_) : {} );
21 1         3 my ($module, @class) = @_;
22 1         3 $options->{into} = $module;
23 1         7 Class::Implant::implant(@class, $options);
24             }
25              
26             1;
27              
28              
29             __END__