File Coverage

blib/lib/Data/All/IO.pm
Criterion Covered Total %
statement 9 9 100.0
branch n/a
condition n/a
subroutine 3 3 100.0
pod 0 1 0.0
total 12 13 92.3


line stmt bran cond sub pod time code
1             package Data::All::IO;
2              
3              
4 1     1   12 use strict;
  1         2  
  1         35  
5              
6 1     1   37 use base qw( Class::Factory );
  1         1  
  1         891  
7              
8             our $VERSION = 0.10;
9              
10             # NOTE: I need to be given factory type before I am useful
11             # i.e. Data::All::IO->register_factory_type( pkg => 'Data::All::IO::Pkg' );
12              
13             sub new()
14             {
15 4     4 0 9 my ( $pkg, $type ) = ( shift, shift );
16 4         23 my $class = $pkg->get_factory_class( $type );
17            
18             # Use the base's new
19 4         65 return $class->new(@_);
20             }
21              
22             1;