| line |
true |
false |
branch |
|
18
|
0 |
0 |
unless ($browser->success) |
|
20
|
0 |
0 |
unless $browser->success |
|
27
|
0 |
0 |
m[http://.+?(http://.+?@{[\undef];})]i ? : |
|
30
|
0 |
0 |
if (@flv_urls) |
|
38
|
0 |
0 |
if ($flv_urls[-1] =~ /^http%3a%2f%2f/) |
|
47
|
0 |
0 |
unless ($actual_url) |
|
60
|
0 |
0 |
if ($url) |
|
62
|
0 |
0 |
if ($resolved_url) |
|
70
|
0 |
0 |
unless ($actual_url) |
|
83
|
0 |
0 |
if $filename_is_reliable |
|
88
|
0 |
0 |
if $possible_filename and not $possible_filename =~ /^[0-9_.]+@{[\undef];}$/ |
|
93
|
0 |
0 |
if $title and not $title =~ /\Q$possible_filename\E/i |
|
97
|
0 |
0 |
unless @filenames |
|
99
|
0 |
0 |
if $actual_url |
|
107
|
0 |
0 |
if (eval {
do {
require URI::Find
}
}) { } |
|
109
|
0 |
0 |
if $_[1] =~ /\.swf$/i |
|
120
|
0 |
0 |
if (%swf_urls) |
|
122
|
0 |
0 |
if (my($flv_url, $title) = search_for_flv_in_swf($browser, $swf_url)) |
|
138
|
0 |
0 |
unless ($browser->success) |
|
146
|
0 |
0 |
if ('C' eq substr($swf_data, 0, 1)) |
|
147
|
0 |
0 |
if (eval {
do {
require Compress::Zlib
}
}) { } |
|
155
|
0 |
0 |
if ($swf_data =~ m[(http://.{10,300}?\.flv)]i) |
|
180
|
0 |
0 |
if (not $actual_url and $file =~ /\?(.*)/) |
|
191
|
0 |
0 |
if $actual_url |
|
195
|
0 |
0 |
if ($actual_url) |
|
202
|
0 |
0 |
if ($param =~ m[(rtmp://[^ &"']+)]) |
|
213
|
0 |
0 |
if scalar(() = $file =~ /%[A-F0-9]{2}/gi) > 3 |
|
219
|
0 |
0 |
if ($orig_uri) |
|
222
|
0 |
0 |
if ($uri) { } |
|
|
0 |
0 |
elsif (not defined $once) { } |
|
227
|
0 |
0 |
if ($package and $package ne 'FlashVideo::Generic') |
|
235
|
0 |
0 |
if ($content_type =~ m[^(text|application/xml)]) { } |
|
|
0 |
0 |
elsif ($content_type =~ m[application/] and $uri ne $orig_uri) { } |
|
241
|
0 |
0 |
if ('FlashVideo::Downloader'->check_magic($browser->content) or $uri =~ /$video_re/) |
|
250
|
0 |
0 |
if $browser->content =~ /]*>/i |
|
252
|
0 |
0 |
if ($browser->content =~ /($video_re)/) { } |
|
|
0 |
0 |
elsif (not defined $once and $browser->content =~ m[(http[-:/a-zA-Z0-9%_.?=&]+)]i) { } |
|
270
|
0 |
0 |
if ($browser->content =~ /["']([^ ]+\.swf)/) |
|
272
|
0 |
0 |
if ($swf_uri) |
|
275
|
0 |
0 |
if ($new_uri ne $uri) |