| line |
true |
false |
branch |
|
25
|
0 |
0 |
if $App::get_flash_videos::opt{'debug'} |
|
29
|
0 |
0 |
unless $App::get_flash_videos::opt{'quiet'} |
|
49
|
0 |
0 |
if ($tag eq 'meta' and $$attr{'name'} =~ /title/i) { } |
|
|
0 |
0 |
elsif ($tag eq 'title') { } |
|
74
|
0 |
0 |
unless eval {
do {
require Compress::Zlib;
require Digest::SHA
}
} |
|
94
|
0 |
0 |
if $response->code == 200 |
|
102
|
0 |
0 |
if ($response->code == 200) |
|
115
|
6 |
11 |
if ($title =~ s/(@{[\undef];})$//) { } |
|
|
6 |
9 |
elsif ($type and not $type =~ /^\w+$/) { } |
|
127
|
0 |
17 |
if ($title =~ /&(?:\w+|#(?:\d+|x[A-F0-9]+));/) |
|
137
|
0 |
17 |
unless $title |
|
157
|
0 |
0 |
unless ($^O =~ /MSWin/i) |
|
163
|
0 |
0 |
unless $HAS_WIN32_REGISTRY |
|
196
|
0 |
0 |
unless $application =~ /VLC Media Player/i |
|
205
|
0 |
0 |
if ($app_properties{'DisplayIcon'}[-1] =~ /\.exe$/i) |
|
225
|
0 |
0 |
unless (%Win32::API::Type::Known) |
|
244
|
0 |
0 |
$^O =~ /MSWin/i ? : |
|
254
|
0 |
0 |
$win ? : |
|
255
|
0 |
0 |
$win ? : |
|
|
0 |
0 |
if -f "$dir/$program" . ($win ? '.exe' : '') |
|
261
|
0 |
0 |
if (eval {
do {
require Term::ReadKey
}
} and my($width) = Term::ReadKey::GetTerminalSize()) { } |
|
|
0 |
0 |
elsif ($ENV{'COLUMNS'}) { } |
|
262
|
0 |
0 |
if $^O =~ /MSWin|cygwin/i |
|
285
|
0 |
0 |
unless $sami_subtitles |
|
286
|
0 |
0 |
unless $filename |
|
315
|
0 |
0 |
if m[[^>]*Start="(.+?)"[^>]*>(.*?)<\/Sync>]i |
|
317
|
0 |
0 |
if (/^\s*Encrypted="true"\s*/i) |
|
318
|
0 |
0 |
if ($decrypt_callback and ref $decrypt_callback eq 'CODE') |
|
336
|
0 |
0 |
if ($sub and $begin || $begin == 0) |
|
358
|
0 |
0 |
if ($count and not $subtitles[$count - 1]{'end'}) |
|
367
|
0 |
0 |
if (not $sub or $sub =~ /^\s+$/) |
|
368
|
0 |
0 |
if ($count) |
|
389
|
0 |
0 |
unless open my $subtitle_fh, '>', $filename |
|
415
|
0 |
0 |
if require XML::Simple |
|
|
0 |
0 |
unless (eval {
do {
XML::Simple::XMLin('') if require XML::Simple
}
}) |
|
420
|
0 |
0 |
ref $xml ? : |
|
|
0 |
0 |
ref $xml eq 'SCALAR' ? : |
|
425
|
0 |
0 |
if ($@) |