File Coverage

blib/lib/Business/EDI/Segment/BGM.pm
Criterion Covered Total %
statement 18 20 90.0
branch 2 4 50.0
condition n/a
subroutine 5 5 100.0
pod 1 1 100.0
total 26 30 86.6


line stmt bran cond sub pod time code
1             package Business::EDI::Segment::BGM;
2              
3 4     4   11250 use base qw/Business::EDI::Segment/;
  4         10  
  4         458  
4              
5 4     4   29 use strict;
  4         9  
  4         162  
6 4     4   25 use warnings;
  4         11  
  4         151  
7 4     4   26 use Carp;
  4         10  
  4         1719  
8              
9             our $VERSION = 0.02;
10             our $debug = 0;
11             our @codes = (
12             'C002',
13             'C106',
14             1225,
15             4343,
16             );
17             our @required_codes = ();
18              
19             sub new {
20 4     4 1 12 my $class = shift;
21 4         48 my $obj = $class->SUPER::unblessed(shift, \@codes, $debug);
22 4 50       17 unless ($obj) {
23 0         0 carp "Unblessed object creation failed";
24 0         0 return;
25             }
26 4         17 my $self = bless($obj, $class);
27 4 50       32 $self->spec or $self->spec('default');
28 4         43 return $self;
29             }
30              
31             1;
32             __END__