File Coverage

blib/lib/Business/EDI/Segment.pm
Criterion Covered Total %
statement 12 18 66.6
branch 0 2 0.0
condition n/a
subroutine 4 5 80.0
pod 1 1 100.0
total 17 26 65.3


line stmt bran cond sub pod time code
1             package Business::EDI::Segment;
2              
3 15     15   97 use base qw/Business::EDI/;
  15         28  
  15         1524  
4 15     15   87 use strict;
  15         31  
  15         531  
5 15     15   81 use warnings;
  15         31  
  15         493  
6              
7 15     15   90 use Carp;
  15         32  
  15         4891  
8              
9             our $VERSION = 0.01;
10              
11             our $debug = 0;
12             our @codes = ();
13             our @required_codes = ();
14              
15             sub new {
16 0     0 1   my $class = shift;
17 0           my $unblessed = $class->SUPER::unblessed(shift, \@codes);
18 0 0         $unblessed or return;
19 0           my $self = bless($unblessed, $class);
20 0           $self->debug($debug);
21 0           return $self;
22             }
23              
24             1;
25             __END__