| line |
true |
false |
branch |
|
40
|
14 |
21 |
if (@_) |
|
54
|
3 |
1 |
if (@_) |
|
56
|
1 |
2 |
if $self->verbosity |
|
66
|
1 |
22 |
unless length $isbn == 10 or length $isbn == 13 |
|
68
|
14 |
8 |
if (length $isbn == 13) { } |
|
69
|
2 |
12 |
unless $isbn =~ /^(978|979)(\d{10})$/ |
|
72
|
1 |
7 |
unless $isbn =~ /^(\d{10}|\d{9}X)$/ |
|
87
|
17 |
2 |
if $csum != 0 |
|
96
|
1 |
15 |
unless length $ean == 10 or length $ean == 13 |
|
97
|
2 |
13 |
unless $ean =~ /^(?:978|979)?(\d{9})[\dX]$/ |
|
107
|
1 |
12 |
if $csum == 10 |
|
113
|
1 |
10 |
unless my $isbn = shift() |
|
118
|
1 |
9 |
unless $ean |
|
119
|
1 |
8 |
if length $isbn == 13 and $isbn ne $ean |
|
120
|
2 |
6 |
if length $isbn == 10 and $isbn ne $self->convert_to_isbn10($ean) |