| line |
true |
false |
branch |
|
17
|
0 |
5 |
if ref $value and scalar @_ |
|
19
|
25 |
7 |
if (defined $value and not UNIVERSAL::isa($value, 'Business::ISBN')) |
|
24
|
5 |
27 |
unless defined $value |
|
27
|
2 |
3 |
if ($status != 1 and $status != -2 and $status != -3) |
|
33
|
10 |
15 |
unless ref $value eq 'Business::ISBN13' |
|
40
|
7 |
21 |
${$_[0];} eq '' ? : |
|
49
|
9 |
6 |
if (scalar @_) { } |
|
51
|
8 |
1 |
defined $value ? : |
|
52
|
5 |
4 |
if not $value =~ /^[0-9]+$/ or $value >= 2000000000 |
|
53
|
5 |
4 |
if ($value eq '') |
|
62
|
2 |
4 |
$$self eq '' ? : |
|
75
|
0 |
1 |
if $$self eq '' or not $$self =~ /^978/ |