Branch Coverage

lib/WWW/Comic/Plugin/uComics.pm
Criterion Covered Total %
branch 3 38 7.8


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'}})