| line |
true |
false |
branch |
|
77
|
2 |
40 |
if (ref $input) { } |
|
85
|
3 |
37 |
unless open my $fh, '<', $$self{'filename'} |
|
86
|
0 |
37 |
unless binmode $fh |
|
97
|
11 |
31 |
unless ($eval_result) |
|
149
|
3237 |
6210 |
if ($tag->isa('FLV::VideoTag')) { } |
|
|
6193 |
17 |
elsif ($tag->isa('FLV::AudioTag')) { } |
|
154
|
3223 |
14 |
if ($info{'lasttime'} < $time) |
|
160
|
956 |
11992 |
if (not defined $info{'vid' . $key}) { } |
|
|
3146 |
8846 |
elsif ($$tag{$key} != $info{'vid' . $key}) { } |
|
169
|
90 |
3147 |
if ($tag->is_keyframe) |
|
180
|
6261 |
24704 |
if (not defined $info{'aud' . $key}) { } |
|
|
0 |
24704 |
elsif ($$tag{$key} != $info{'aud' . $key}) { } |
|
192
|
17 |
0 |
1 < $info{'vidtags'} ? : |
|
197
|
17 |
0 |
defined $info{'audrate'} && $info{'audrate'} ne $invalid ? : |
|
208
|
17 |
0 |
if (0 < $duration) |
|
211
|
17 |
0 |
if ($info{'vidbytes'}) |
|
219
|
17 |
0 |
if ($info{'audbytes'}) |
|
227
|
17 |
0 |
if ($audrate) |
|
231
|
17 |
0 |
if (defined $info{'audformat'} and $info{'audformat'} ne $invalid) |
|
235
|
17 |
0 |
if (defined $info{'vidcodec'} and $info{'vidcodec'} ne $invalid) |
|
239
|
14 |
3 |
if (defined $info{'vidwidth'} and $info{'vidwidth'} ne $invalid) |
|
243
|
14 |
3 |
if (defined $info{'vidheight'} and $info{'vidheight'} ne $invalid) |
|
247
|
17 |
0 |
if ($lasttime) |
|
251
|
17 |
0 |
if (@{$info{'keyframetimes'};}) |
|
277
|
0 |
18 |
unless ($$self{'body'}) |
|
283
|
1 |
17 |
unless $headersize |
|
341
|
7 |
70 |
unless $$self{'body'} |
|
397
|
0 |
65037 |
if $n <= 0 |
|
400
|
0 |
65037 |
unless ($fh) |
|
407
|
4 |
65033 |
if ($bytes != $n) |
|
449
|
0 |
16280 |
unless ($fh) |