| 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+/ |