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 101     101   430 use strict;
  101         148  
  101         3253  
4 101     101   395 use warnings;
  101         127  
  101         5479  
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 101     101   1232 use parent 'autobox::List::Util';
  101         634  
  101         736  
16 101     101   731234 use parent 'autobox::Core';
  101         213  
  101         529  
17              
18             sub import {
19 620     620   20721 my $class = shift;
20 620         3550 $class->autobox::import();
21 620         245193 $class->autobox::import(
22             UNIVERSAL => 'perl5i::2::UNIVERSAL',
23             DEFAULT => 'perl5i::2::'
24             );
25 620         350193 autobox::List::Util::import($class);
26 620         254633 autobox::Core::import($class);
27             }
28              
29             1;