line |
true |
false |
branch |
49
|
0 |
0 |
unless (exists $WWW::Comic::Plugin::uComics::COMICS{$param{'comic'}} or $WWW::Comic::Plugin::uComics::HAVE_PROBED) |
55
|
0 |
0 |
if ($WWW::Comic::Plugin::uComics::HAVE_PROBED and not exists $WWW::Comic::Plugin::uComics::COMICS{$param{'comic'}}) |
56
|
0 |
0 |
if $^W |
61
|
0 |
0 |
if (exists $param{'id'}) |
62
|
0 |
0 |
if (my($yy, $mm, $dd) = $param{'id'} =~ /^(\d\d)(\d\d)(\d\d)$/) { } |
|
0 |
0 |
elsif ($param{'id'} =~ m[^\d{4}/\d{2}/\d{2}$]) { } |
63
|
0 |
0 |
if ($yy =~ /^9/) { } |
73
|
0 |
0 |
if ($response->is_success) { } |
|
0 |
0 |
elsif ($^W) { } |
75
|
0 |
0 |
if ($html =~ m[
|
78
|
0 |
0 |
unless $url =~ m[^https?://]i |
91
|
0 |
25 |
@_ % 2 ? : |
94
|
25 |
0 |
if (keys %WWW::Comic::Plugin::uComics::COMICS) |
96
|
25 |
0 |
unless (not $WWW::Comic::Plugin::uComics::HAVE_PROBED and exists $param{'probe'} and $param{'probe'}) |
103
|
0 |
0 |
unless (not $WWW::Comic::Plugin::uComics::HAVE_PROBED and exists $param{'probe'} and $param{'probe'}) |
110
|
0 |
0 |
if ($response->is_success) { } |
|
0 |
0 |
elsif ($^W) { } |
128
|
0 |
0 |
if (exists $WWW::Comic::Plugin::uComics::COMICS{$param{'comic'}}) |
137
|
0 |
0 |
if (exists $WWW::Comic::Plugin::uComics::COMICS{$param{'comic'}}) |