line |
true |
false |
branch |
27
|
0 |
0 |
if @_ |
35
|
0 |
2 |
if (ref $stuff and UNIVERSAL::isa($stuff, 'IO::Handle') || ref $stuff eq 'GLOB') { } |
39
|
0 |
2 |
unless open my $fh, '<', $stuff |
41
|
0 |
2 |
unless close $fh |
55
|
0 |
2 |
if ($chunk[-1] eq '') |
60
|
2 |
0 |
if ($$self{'callback'}) |
64
|
0 |
2 |
if $@ and $$self{'debug'} |
65
|
2 |
0 |
if $@ |
74
|
0 |
2 |
if (@$chunk_ref < 3) |
79
|
0 |
2 |
unless ($$chunk_ref[0] =~ /^\d+$/) |
85
|
0 |
2 |
unless ($$chunk_ref[1] =~ /^$time_re --> $time_re$/) |
99
|
0 |
0 |
unless ($time =~ /^(\d\d):(\d\d):(\d\d)(?:,(\d*))?$/) |
126
|
1 |
4 |
unless ($$data{$field}) |
141
|
0 |
0 |
unless (defined $$object{'number'}) |
153
|
0 |
0 |
if ($file_name) { } |