| 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) { } |