| line |
true |
false |
branch |
|
37
|
3 |
15 |
if (defined $$self{'filehandle'}) { } |
|
41
|
0 |
15 |
if (not defined $$self{'infile'} or $$self{'infile'} eq '-') { } |
|
45
|
1 |
14 |
unless open $$self{'filehandle'}, '<', $$self{'infile'} |
|
52
|
16 |
1 |
unless defined $$self{'bzip2'} |
|
57
|
3 |
14 |
if ($$self{'bzip2'}) |
|
58
|
0 |
3 |
unless my $bz2_handle = 'IO::Uncompress::Bunzip2'->new($$self{'filehandle'}) |
|
64
|
1 |
16 |
if defined $$self{'time_threshold'} and $$self{'time_threshold'} < 0 |
|
77
|
12 |
11191 |
if $hgot == 0 |
|
79
|
1 |
11190 |
if $hgot != 12 |
|
91
|
1970 |
1596 |
if (defined $$self{'time_threshold'} and defined $prev_timestamp and $timestamp - $prev_timestamp > $$self{'time_threshold'}) |
|
102
|
1 |
11189 |
if $dgot != $hdr[2] |
|
109
|
11174 |
15 |
defined $prev_timestamp ? : |
|
111
|
11174 |
15 |
unless $$self{'frame'} == 1 |
|
126
|
1 |
11188 |
if $hdr[0] != $newhdr[0] |
|
129
|
0 |
11188 |
if $hdr[1] != $newhdr[1] |
|
132
|
0 |
11188 |
if $hdr[2] != $newhdr[2] |
|
154
|
2 |
5 |
if (ref $arg eq 'CODE') { } |
|
|
1 |
4 |
elsif (ref $arg eq 'Regexp') { } |
|
|
3 |
1 |
elsif (ref $arg eq '') { } |
|
172
|
360 |
6 |
unless &$_($frame_ref) |
|
188
|
0 |
2 |
unless seek $$self{'filehandle'}, 0, 0 |