lib/WWW/Comic.pm | |||
---|---|---|---|
Criterion | Covered | Total | % |
branch | 8 | 16 | 50.0 |
line | true | false | branch |
---|---|---|---|
34 | 0 | 3 | $ENV{'DEBUG'} ? : |
43 | 0 | 1 | if ref(my $class = shift()) |
90 | 0 | 0 | if (UNIVERSAL::can($plugin, $name)) |
111 | 24 | 63 | if (lc $k eq lc $comic) |
117 | 0 | 24 | unless defined $plugin and ref $plugin and UNIVERSAL::isa($plugin, 'WWW::Comic::Plugin') |
130 | 175 | 0 | if defined $comic |
139 | 0 | 24 | if (@_ % 2) { } |
143 | 0 | 24 | unless exists $params{'comic'} and $params{'comic'} =~ /\S+/ |