| blib/lib/App/ISBN/Check.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 12 | 12 | 100.0 |
| line | true | false | branch |
|---|---|---|---|
| 36 | 2 | 2 | if (not &getopts("h", $self->{'_opts'}) or @ARGV < 1 or $self->{'_opts'}{'h'}) |
| 51 | 1 | 5 | unless ($isbn_obj) |
| 55 | 2 | 3 | unless ($isbn_obj->is_valid) |
| 58 | 1 | 4 | unless ($isbn_obj->is_valid) |
| 66 | 3 | 1 | if (length $isbn_without_dash > 10) { } |
| 71 | 2 | 2 | if ($isbn ne $isbn_concrete->as_string) |