File Coverage

blib/lib/Data/All/Format.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::Format;
2              
3              
4 1     1   5 use strict;
  1         2  
  1         46  
5              
6             # CPAN Modules
7 1     1   7 use base qw( Class::Factory );
  1         2  
  1         255  
8              
9             our $VERSION = 0.10;
10              
11             # TODO: Give Data::All control of creating the Format objects. It should send them to IO
12              
13             # TODO: Allow external code to add new instance objects
14             Data::All::Format->register_factory_type( delim => 'Data::All::Format::Delim' );
15             Data::All::Format->register_factory_type( fixed => 'Data::All::Format::Fixed' );
16             Data::All::Format->register_factory_type( hash => 'Data::All::Format::Hash' );
17              
18              
19             sub new()
20             {
21 4     4 0 7 my ( $pkg, $type ) = ( shift, shift );
22 4         23 my $class = $pkg->get_factory_class( $type );
23            
24             # Use the base's new b/c it's will properly create the modules in
25             # spiffy styles
26 4         72 return $class->new(@_);
27             }
28              
29              
30              
31              
32              
33              
34              
35              
36              
37             1;
38              
39              
40