| line |
true |
false |
branch |
|
193
|
0 |
0 |
unless $st |
|
194
|
0 |
0 |
unless $des |
|
195
|
0 |
0 |
unless $sbs |
|
226
|
0 |
0 |
if (ref $out eq 'GLOB' or ref \$out eq 'GLOB' or ref $out eq 'FileHandle' or ref $out eq 'IO::Handle') { } |
|
234
|
0 |
0 |
unless open XMLOUT, "> $out" |
|
244
|
0 |
0 |
if (ref $in eq 'GLOB' or ref \$in eq 'GLOB' or ref $in eq 'FileHandle' or ref $in eq 'IO::Handle') { } |
|
252
|
0 |
0 |
unless open EDIIN, "< $in" |
|
264
|
0 |
0 |
if /$$self{'ST'}/ |
|
|
0 |
0 |
unless ($st_check) |
|
265
|
0 |
0 |
if /$$self{'DES'}/ |
|
|
0 |
0 |
unless ($des_check) |
|
276
|
0 |
0 |
if $bisinfile |
|
277
|
0 |
0 |
if $bisoutfile |
|
279
|
0 |
0 |
unless $st_check |
|
280
|
0 |
0 |
unless $des_check |
|
299
|
0 |
0 |
unless $in =~ /$$self{'ST'}/ |
|
300
|
0 |
0 |
unless $in =~ /$$self{'DES'}/ |
|
325
|
0 |
0 |
if ($str) |
|
350
|
0 |
0 |
if (defined $XML::ASCX12::Catalogs::IS_CHILD) |
|
354
|
0 |
0 |
if ($segment =~ /[0-9A-Za-z]*/) |
|
357
|
0 |
0 |
if ($segcode and $segcode eq 'ST') |
|
363
|
0 |
0 |
if (defined $XML::ASCX12::Catalogs::IS_CHILD) |
|
369
|
0 |
0 |
if $segcode |
|
371
|
0 |
0 |
if (my $tmp = $self->_closeloop($curloop, $$self{'lastloop'}, $segcode)) |
|
372
|
0 |
0 |
if (@elements) |
|
375
|
0 |
0 |
if (my $tmp = $self->_openloop($curloop, $$self{'lastloop'})) |
|
379
|
0 |
0 |
if $$XML::ASCX12::Segments::SEGMENTS{$segcode} |
|
407
|
0 |
0 |
if ($segment =~ /[0-9A-Za-z]*/) |
|
410
|
0 |
0 |
if ($segcode and $segcode eq 'ST') { } |
|
|
0 |
0 |
elsif ($segcode) { } |
|
437
|
0 |
0 |
if (@elements) |
|
440
|
0 |
0 |
if ($is_child eq '0') |
|
448
|
0 |
0 |
if $$XML::ASCX12::Segments::SEGMENTS{$segcode} |
|
478
|
0 |
0 |
if ($_ =~ /[0-9A-Za-z]/) |
|
481
|
0 |
0 |
if $i >= 10 |
|
482
|
0 |
0 |
if $i < 10 |
|
484
|
0 |
0 |
if $$XML::ASCX12::Segments::ELEMENTS{$elename} |
|
503
|
0 |
0 |
if (_CANHAVE($lastloop, $newloop)) |
|
521
|
0 |
0 |
unless $once |
|
524
|
0 |
0 |
if ($newloop and $lastloop and $currentseg eq $lastloop and $currentseg ne '') { } |
|
|
0 |
0 |
elsif (_CANHAVE($newloop, $lastloop)) { } |
|
539
|
0 |
0 |
if (@XML::ASCX12::_LOOPS) |
|
544
|
0 |
0 |
if ($testloop eq $newloop) { } |
|
546
|
0 |
0 |
if (@parent_loops_to_close) |
|
550
|
0 |
0 |
if $closeme |
|
553
|
0 |
0 |
if ($once != 1) |
|
555
|
0 |
0 |
if (my $tmp = $self->_closeloop($newloop, $$self{'lastloop'}, $currentseg, 1)) |
|
566
|
0 |
0 |
if ($testloop) |
|
584
|
0 |
0 |
unless $loop |
|
585
|
0 |
0 |
if ($loop =~ /[A-Za-z0-9]*/) |
|
589
|
0 |
0 |
if XMLENC($loop) |
|
619
|
0 |
0 |
unless ($parent) |
|
620
|
0 |
0 |
unless $child |
|
621
|
0 |
0 |
if ($_ eq $child) |