File Coverage

blib/lib/Data/All/Format/Base.pm
Criterion Covered Total %
statement 15 15 100.0
branch n/a
condition n/a
subroutine 5 5 100.0
pod 0 1 0.0
total 20 21 95.2


line stmt bran cond sub pod time code
1             package Data::All::Format::Base;
2              
3             # Base package for all format modules
4              
5             # $Id: Base.pm,v 1.1.1.1 2005/05/10 23:56:20 dmandelbaum Exp $
6              
7 1     1   6 use strict;
  1         2  
  1         196  
8 1     1   131 use warnings;
  1         4  
  1         41  
9              
10              
11 1     1   7 use Data::All::Base;
  1         3  
  1         113  
12              
13 1     1   7 use base 'Exporter';
  1         3  
  1         234  
14             our @EXPORT = qw(new internal attribute populate error init);
15              
16             our $VERSION = 0.10;
17              
18              
19             sub init()
20             {
21 4     4 0 6 my $self = shift;
22 4         15 populate( $self => $_[0] );
23 4         71 return $self;
24             }
25              
26              
27              
28             1;
29