File Coverage

blib/lib/perl5i/2/autobox.pm
Criterion Covered Total %
statement 17 17 100.0
branch n/a
condition n/a
subroutine 5 5 100.0
pod n/a
total 22 22 100.0


line stmt bran cond sub pod time code
1             package perl5i::2::autobox;
2              
3 103     103   643 use strict;
  103         224  
  103         5453  
4 103     103   639 use warnings;
  103         196  
  103         7989  
5              
6             # Load these after we're fully compiled because they
7             # use us internally.
8             require perl5i::2::SCALAR;
9             require perl5i::2::ARRAY;
10             require perl5i::2::HASH;
11             require perl5i::2::UNIVERSAL;
12             require perl5i::2::CODE;
13              
14             # List::Util needs to be before Core to get the C version of sum
15 103     103   3216 use parent 'autobox::List::Util';
  103         2494  
  103         3007  
16 103     103   1492075 use parent 'autobox::Core';
  103         324  
  103         901  
17              
18             sub import {
19 634     634   2141 my $class = shift;
20 634         6244 $class->autobox::import();
21 634         380947 $class->autobox::import(
22             UNIVERSAL => 'perl5i::2::UNIVERSAL',
23             DEFAULT => 'perl5i::2::'
24             );
25 634         596182 autobox::List::Util::import($class);
26 634         414066 autobox::Core::import($class);
27             }
28              
29             1;