| line |
true |
false |
branch |
|
112
|
64 |
0 |
wantarray ? : |
|
160
|
0 |
13 |
unless ref $marc and $marc->isa('MARC::Record') |
|
165
|
1 |
12 |
if ($n1xx > 1) |
|
169
|
0 |
13 |
unless ($marc->field(245)) |
|
182
|
1 |
205 |
if ($tagno eq '880') { } |
|
184
|
1 |
0 |
if ($field->subfield('6')) { } |
|
188
|
0 |
1 |
unless $tagrules = $$rules{$tagno} |
|
190
|
0 |
1 |
if ($$tagrules{'repeatable'} and $$tagrules{'repeatable'} eq 'NR' and $field_seen{'880.' . $tagno}) |
|
199
|
1 |
204 |
unless $tagrules = $$rules{$tagno} |
|
201
|
0 |
204 |
if ($$tagrules{'repeatable'} and $$tagrules{'repeatable'} eq 'NR' and $field_seen{$tagno}) |
|
206
|
158 |
47 |
if ($tagno >= 10) { } |
|
|
47 |
0 |
elsif ($tagno < 10) { } |
|
209
|
4 |
312 |
unless ($indvalue =~ /$$tagrules{"ind$ind" . '_regex'}/) |
|
223
|
2 |
260 |
if (not defined $rule) { } |
|
|
1 |
361 |
elsif ($rule eq 'NR' and $sub_seen{$code}) { } |
|
229
|
0 |
262 |
if ($data =~ /[\t\r\n]/) |
|
239
|
1 |
46 |
if ($field->data =~ /\x1F/) |
|
246
|
25 |
180 |
if ($self->can($checker)) |
|
250
|
1 |
204 |
if ($is_880) { } |
|
304
|
21 |
1 |
if ($code eq 'a') { } |
|
|
1 |
0 |
elsif ($code eq 'z') { } |
|
305
|
2 |
19 |
if (substr($data, 0, length $isbnno) ne $isbnno) |
|
310
|
8 |
13 |
if ($data =~ /\(/) |
|
311
|
2 |
6 |
unless $data =~ /[X0-9] \(/ |
|
315
|
3 |
18 |
if (not $isbnno =~ /(?:^\d{10}$)|(?:^\d{13}$)|(?:^\d{9}X$)/) { } |
|
320
|
16 |
2 |
if (length $isbnno == 10) { } |
|
|
2 |
0 |
elsif (length $isbnno == 13) { } |
|
322
|
16 |
0 |
if ($Business::ISBN::VERSION gt '2.02_01') { } |
|
|
0 |
0 |
elsif ($Business::ISBN::VERSION lt '2') { } |
|
323
|
4 |
12 |
if Business::ISBN::valid_isbn_checksum($isbnno) != 1 |
|
326
|
0 |
0 |
if Business::ISBN::is_valid_checksum($isbnno) != 1 |
|
339
|
1 |
1 |
unless $is_valid_13 == 1 |
|
346
|
0 |
1 |
if ($data =~ /^ISBN/ or $data =~ /^\d*\-\d+/) |
|
350
|
0 |
0 |
if length $isbnno == 10 and Business::ISBN::is_valid_checksum($isbnno) == 1 |
|
385
|
1 |
1 |
$check_digit == $valid_check_digit ? : |
|
420
|
3 |
0 |
unless ($field->indicator(2) eq '7') |
|
422
|
3 |
4 |
if (length($newsubfields[$index + 1]) % 3 != 0) { } |
|
445
|
0 |
6 |
$MARC::Lint::LanguageCodes{$code041} ? : |
|
447
|
1 |
5 |
$MARC::Lint::ObsoleteLanguageCodes{$code041} ? : |
|
450
|
6 |
0 |
unless ($validlang) |
|
452
|
1 |
5 |
if ($obsoletelang) { } |
|
492
|
2 |
3 |
if ($newsubfields[$index] eq 'a' and length $newsubfields[$index + 1] != 7) { } |
|
|
3 |
0 |
elsif ($newsubfields[$index] eq 'a') { } |
|
499
|
0 |
3 |
$MARC::Lint::GeogAreaCodes{$newsubfields[$index + 1]} ? : |
|
501
|
1 |
2 |
$MARC::Lint::ObsoleteGeogAreaCodes{$newsubfields[$index + 1]} ? : |
|
504
|
3 |
0 |
unless ($validgac) |
|
506
|
1 |
2 |
if ($obsoletegac) { } |
|
545
|
1 |
48 |
unless ($field->subfield('a')) |
|
558
|
2 |
88 |
if $code eq '6' |
|
564
|
1 |
48 |
if (not $newsubfields[$#newsubfields] =~ /[.?!]$/) { } |
|
|
2 |
46 |
elsif ($newsubfields[$#newsubfields] =~ /[?!]$/) { } |
|
573
|
2 |
47 |
if ($has_sub_6) { } |
|
575
|
0 |
2 |
if ($#newsubfields < 3) { } |
|
579
|
0 |
2 |
if ($newsubfields[0] ne '6') |
|
582
|
0 |
2 |
if ($newsubfields[2] ne 'a') |
|
589
|
1 |
46 |
if ($newsubfields[0] ne 'a') |
|
597
|
14 |
35 |
if ($field->subfield('c')) |
|
601
|
14 |
3 |
if ($newsubfields[$index] eq 'c') |
|
602
|
2 |
12 |
unless $newsubfields[$index - 1] =~ m[\s/$] |
|
604
|
1 |
13 |
if $newsubfields[$index + 1] =~ /\b\w\. \b\w\./ and not $newsubfields[$index + 1] =~ /\[\bi\.e\. \b\w\..*\]/ |
|
612
|
13 |
36 |
if ($field->subfield('b')) |
|
617
|
4 |
12 |
if ($newsubfields[$index] eq 'b' and not $newsubfields[$index - 1] =~ / [:;=]$/) |
|
625
|
4 |
45 |
if ($field->subfield('h')) |
|
630
|
1 |
5 |
if ($newsubfields[$index] eq 'h' and not $newsubfields[$index - 1] =~ /(\S$)|(\-\- $)/) |
|
635
|
1 |
5 |
if ($newsubfields[$index] eq 'h' and not $newsubfields[$index + 1] =~ /^\[\w*\s*\w*\]/) |
|
642
|
4 |
45 |
if ($field->subfield('n')) |
|
647
|
1 |
5 |
if ($newsubfields[$index] eq 'n' and not $newsubfields[$index - 1] =~ /(\S\.$)|(\-\- \.$)/) |
|
654
|
4 |
45 |
if ($field->subfield('p')) |
|
659
|
4 |
2 |
if ($newsubfields[$index] eq 'p') |
|
661
|
1 |
3 |
if ($newsubfields[$index - 2] eq 'n' and not $newsubfields[$index - 1] =~ /(\S,$)|(\-\- ,$)/) { } |
|
|
1 |
3 |
elsif ($newsubfields[$index - 2] ne 'n' and not $newsubfields[$index - 1] =~ /(\S\.$)|(\-\- \.$)/) { } |
|
769
|
1 |
48 |
if ($tagno eq '880') |
|
770
|
1 |
0 |
if ($field->subfield('6')) |
|
780
|
0 |
49 |
if (not $tagno =~ /^(?:130|240|245|440|630|730|830)$/) { } |
|
|
0 |
49 |
elsif ($tagno =~ /^(?:130|630|730)$/) { } |
|
|
49 |
0 |
elsif ($tagno =~ /^(?:240|245|440|830)$/) { } |
|
797
|
0 |
49 |
unless $ind =~ /^[0-9]$/ |
|
811
|
1 |
48 |
unless defined $firstword |
|
812
|
1 |
48 |
unless defined $separator |
|
813
|
1 |
48 |
unless defined $etc |
|
828
|
9 |
40 |
if $article{$firstword} and not $isan_exception |
|
831
|
9 |
40 |
if ($isan_article) { } |
|
834
|
4 |
5 |
if ($separator and $etc =~ /^[ \(\)\[\]'"\-]+/) |
|
841
|
0 |
9 |
if ($firstword eq 'en') { } |
|
|
3 |
6 |
elsif ($nonfilingchars ne $ind) { } |
|
842
|
0 |
0 |
unless $ind eq '3' or $ind eq '0' |
|
850
|
1 |
39 |
unless ($ind eq '0') |
|
927
|
102 |
1302 |
unless @lines >= 4 |
|
956
|
2604 |
12954 |
if ($key =~ /^ind/) { } |
|
962
|
1578 |
1026 |
if ($val eq 'blank') { } |
|
975
|
18 |
12936 |
if ($key =~ /(.)-(.)/) { } |
|
989
|
66 |
960 |
if ($str =~ s/(\d)-(\d)/$1 thru $2/) |
|
994
|
486 |
474 |
if $digits[0] eq 'b' |
|
1002
|
0 |
0 |
if $str eq 'blank' |