| line |
true |
false |
branch |
|
171
|
1 |
1 |
$a < $b ? : |
|
278
|
1 |
7 |
unless (defined $crc) |
|
381
|
0 |
14 |
if exists $params{$method} |
|
426
|
1 |
0 |
unless ref $self |
|
430
|
1 |
0 |
if ($params{'FH'}) { } |
|
|
0 |
0 |
elsif ($params{'Expr'}) { } |
|
|
0 |
0 |
elsif ($params{'Data'}) { } |
|
434
|
0 |
0 |
unless $self->{'FH'} = 'FileHandle'->new($params{'Expr'}) |
|
439
|
0 |
0 |
if (not ref($data = $params{'Data'})) { } |
|
|
0 |
0 |
elsif (ref $data eq 'ARRAY') { } |
|
447
|
0 |
1 |
unless $self->{'FH'} |
|
487
|
2 |
2 |
@_ > 1 ? : |
|
501
|
1 |
3 |
@_ ? : |
|
513
|
2 |
3 |
@_ > 1 ? : |
|
525
|
1 |
1 |
@_ > 1 ? : |
|
586
|
1 |
1 |
@_ > 1 ? : |
|
601
|
1 |
3 |
@_ ? : |
|
617
|
2 |
2 |
@_ > 1 ? : |
|
628
|
1 |
1 |
@_ > 1 ? : |
|
670
|
0 |
1 |
if $self->{'CommentRead'} |
|
674
|
1 |
0 |
if (/^\(This file must be converted with BinHex ([\d\.]+).*\)\s*$/i) |
|
694
|
0 |
1 |
if $self->{'HeaderRead'} |
|
723
|
2 |
4 |
if (wantarray) |
|
732
|
1 |
3 |
if ($self->{$fork}->length == 0) |
|
736
|
3 |
0 |
unless defined $n |
|
739
|
1 |
2 |
unless (defined $self->{$fork}{'Ptr'}) |
|
745
|
1 |
2 |
if $self->{$fork}{'Ptr'} >= $self->{$fork}->length |
|
753
|
1 |
1 |
if ($self->{$fork}{'Ptr'} == $self->{$fork}->length and not defined $self->{$fork}->crc) |
|
758
|
0 |
1 |
if ($self->{'CheckCRC'}) |
|
766
|
0 |
1 |
if ($self->{'CheckCRC'} and $self->{$fork}->crc != $comp_CRC) |
|
767
|
0 |
0 |
unless $Convert::BinHex::QUIET |
|
840
|
0 |
1 |
unless $FH->read($READBUF, 4096) |
|
849
|
0 |
13 |
if ($self->{'CheckCRC'}) |
|
865
|
0 |
13 |
if $n and length $buf < $n |
|
1069
|
1 |
6 |
if ($eof) { } |
|
1079
|
5 |
1 |
if length $self->{'CBIN'} < 2048 |
|
1106
|
1 |
1 |
$self->{'LINE'}++ ? : |
|
1110
|
2 |
0 |
$rem ? : |
|
1117
|
1 |
1 |
if ($eof) |
|
1118
|
1 |
0 |
$self->{'EOL'} ? : |
|
1191
|
1 |
0 |
if defined $_[0] |
|
1223
|
1 |
0 |
defined $_[0] ? : |
|
1224
|
1 |
0 |
if (index($hex, ':') >= 0) |
|
1226
|
1 |
0 |
if ($hex =~ s/:\s*\Z//) |
|
1228
|
0 |
1 |
if $leftover |
|
1234
|
0 |
1 |
$rem ? : |
|
1236
|
0 |
1 |
if $hex eq '' |
|
1278
|
19 |
0 |
defined $_[0] ? : |
|
1279
|
0 |
19 |
if $comp eq '' |
|
1288
|
30 |
2829 |
if (($c = substr($comp, $i, 1)) eq "\220") { } |
|
1290
|
3 |
27 |
unless (length($n = substr($comp, ++$i, 1))) |
|
1295
|
6 |
21 |
ord $n ? : |
|
1376
|
2 |
13 |
if @_ |
|
1379
|
13 |
2 |
if defined $self->{'Length'} |
|
1382
|
1 |
1 |
if (defined $self->{'Path'}) { } |
|
|
1 |
0 |
elsif (not ref $self->{'Data'}) { } |
|
|
0 |
0 |
elsif (ref($self->{'Data'} eq 'ARRAY')) { } |
|
1402
|
0 |
0 |
if (@_) |
|
1412
|
0 |
0 |
if (@_) |
|
1422
|
2 |
1 |
@_ ? : |
|
1435
|
2 |
0 |
if $^O or !1 |
|
1436
|
2 |
0 |
if $^O or !1 |
|
1443
|
1 |
1 |
if (defined $self->{'Path'}) { } |
|
|
0 |
1 |
elsif (not defined $self->{'Data'}) { } |
|
|
1 |
0 |
elsif (not ref $self->{'Data'}) { } |
|
|
0 |
0 |
elsif (ref $self->{'Data'} eq 'ARRAY') { } |
|
1444
|
0 |
1 |
if ($^O || !1 and $self->{'Fork'} eq 'RSRC') { } |
|
1453
|
0 |
1 |
unless open FORK, $self->{'Path'} |
|
1462
|
0 |
0 |
unless $Convert::BinHex::QUIET |
|
1498
|
0 |
2 |
unless $fh |
|
1499
|
0 |
2 |
unless ref $fh |
|
1500
|
1 |
1 |
if ref $fh and not ref($fh) =~ /^(GLOB|FileHandle)$/ |
|
1526
|
0 |
0 |
unless defined $scalarref |
|
1537
|
0 |
0 |
unless $$self =~ /\G(.*?\n?)/g |