| line |
!l |
l&&!r |
l&&r |
condition |
|
437
|
0 |
17 |
19 |
$field and not $subfield |
|
|
17 |
2 |
17 |
$field and not $subfield and not $regex |
|
|
19 |
2 |
15 |
$field and not $subfield and not $regex and not $notregex |
|
|
0 |
4 |
17 |
$field and $subfield |
|
|
4 |
2 |
15 |
$field and $subfield and not $regex |
|
|
6 |
2 |
13 |
$field and $subfield and not $regex and not $notregex |
|
|
0 |
4 |
4 |
$field and not $subfield |
|
|
4 |
2 |
2 |
$field and not $subfield and $regex |
|
|
0 |
2 |
4 |
$field and $subfield |
|
|
2 |
2 |
2 |
$field and $subfield and $regex |
|
|
0 |
2 |
2 |
$field and not $subfield |
|
|
2 |
0 |
2 |
$field and not $subfield and $notregex |
|
|
0 |
0 |
2 |
$field and $subfield |
|
|
0 |
0 |
2 |
$field and $subfield and $notregex |
|
693
|
0 |
31 |
0 |
$args and $$args{'records'} |
|
1428
|
0 |
1 |
0 |
$tag > 10 and not defined $field[3] |
|
1429
|
1 |
0 |
0 |
$tag < 10 and not defined $field[1] |
|
1465
|
2254 |
23 |
106 |
$$_[0] eq $field and not defined $first |
|
1498
|
16 |
2 |
0 |
defined $subfield and $subfield =~ /^i[12]$/ |
|
1506
|
0 |
2 |
12 |
$field and not $subfield |
|
2037
|
0 |
0 |
17 |
$handle and not defined $string |
|
2104
|
0 |
0 |
15 |
$handle and not defined $string |
|
2293
|
0 |
4 |
91 |
$field and not $subfield |
|
2319
|
0 |
0 |
4 |
$field and $subfield |
|
2337
|
1 |
2 |
0 |
not $rvictim and $subfield =~ /^i[12]$/ |
|
2418
|
2062 |
19 |
101 |
$$_[0] eq $tag and not defined $first |
|
2420
|
427 |
1652 |
103 |
$$_[0] >= $tag and not defined $firstpast |
|
2629
|
0 |
0 |
2 |
$field and not $subfield |
|
|
0 |
0 |
0 |
$field and $subfield |
|
2658
|
0 |
38 |
25 |
$field and not $subfield |
|
|
0 |
0 |
38 |
$field and $subfield |
|
2786
|
0 |
5 |
0 |
$type =~ /[abcdefgijkmprot]/ and $bib_lvl eq '' || $bib_lvl =~ /[abcdms]/ |
|
2791
|
0 |
0 |
5 |
$type eq 'a' and not $bib_lvl =~ /[bs]/ |
|
2797
|
0 |
0 |
0 |
$type eq 'a' and $bib_lvl =~ /[bs]/ |
| line |
l |
!l |
condition |
|
59
|
4 |
1 |
$rec_class ||= 'MARC::Rec' |
|
71
|
1 |
4 |
shift() || 'usmarc' |
|
214
|
1 |
2 |
$$params{'increment'} || 0 |
|
235
|
0 |
2 |
$$params{'lineterm'} || "\r\n" |
|
429
|
36 |
0 |
$$params{'field'} || (return) |
|
711
|
0 |
39 |
$$args{'lineterm'} || "\n" |
|
753
|
0 |
2 |
$$args{'title'} || 'Untitled URLs' |
|
840
|
0 |
6 |
$$args{'lineterm'} ||= "\n" |
|
886
|
0 |
10 |
$$args{'lineterm'} || "\n" |
|
925
|
0 |
2 |
$$args{'lineterm'} || "\n" |
|
943
|
0 |
0 |
$$params{'leader'} || '00000nam 2200000 a 4500' |
|
993
|
18 |
1 |
$$params{'ordered'} || 'y' |
|
1108
|
2 |
0 |
shift() || (return) |
|
1161
|
8 |
0 |
shift() || (return) |
|
1183
|
0 |
0 |
shift() || (return) |
|
1198
|
0 |
0 |
shift() || (return) |
|
1211
|
0 |
0 |
shift() || (return) |
|
1224
|
0 |
0 |
shift() || (return) |
|
1236
|
0 |
0 |
shift() || (return) |
|
1368
|
0 |
5 |
shift() || 'usmarc' |
|
1370
|
0 |
5 |
$$marcrec{'handle'} ||= \*filehandle |
|
1489
|
18 |
0 |
shift() || (return) |
|
1612
|
18 |
0 |
$$args{'lineterm'} || "\n" |
|
1684
|
0 |
24 |
$$args{'lineterm'} || "\r\n" |
|
1818
|
0 |
20 |
$$args{'lineterm'} || "\n" |
|
1859
|
0 |
4 |
$$args{'lineterm'} || "\n" |
|
1887
|
0 |
4 |
$$args{'lineterm'} || "\n" |
|
1931
|
22 |
0 |
shift() || '00000nam 2200000 a 4500' |
|
2095
|
0 |
15 |
$$marcrec{'lineterm'} || "\r\n" |
|
2273
|
95 |
0 |
shift() || (return) |
|
2401
|
103 |
0 |
shift() || (return) |
|
2439
|
0 |
0 |
$$args{'lineterm'} || "\n" |
|
2547
|
9 |
0 |
shift() || (return) |
|
2570
|
1 |
0 |
shift() || (return) |
|
2594
|
2 |
0 |
shift() || (return) |
| line |
l |
!l&&r |
!l&&!r |
condition |
|
38
|
0 |
5 |
0 |
ref $proto || $proto |
|
114
|
0 |
0 |
0 |
shift() || ref $marc |
|
138
|
12 |
5 |
1 |
$increment == -1 or $recordcount < $increment |
|
171
|
9 |
6 |
2 |
$increment == -1 or $recordcount < $increment |
|
367
|
5 |
0 |
3 |
$field or $subfield |
|
713
|
31 |
0 |
8 |
$$args{'file'} or $$args{'add_005s'} |
|
970
|
9 |
10 |
0 |
$$params{'value'} || @_ |
|
1364
|
0 |
5 |
0 |
ref $proto || $proto |
|
2441
|
0 |
0 |
0 |
$$args{'file'} or $$args{'add_005s'} |
|
2670
|
5 |
5 |
24 |
$subfield eq 'i1' or $subfield eq 'i2' |
|
|
10 |
5 |
19 |
$subfield eq 'i1' or $subfield eq 'i2' or $subfield eq 'i12' |
|
2786
|
0 |
5 |
0 |
$bib_lvl eq '' || $bib_lvl =~ /[abcdms]/ |
|
2791
|
5 |
0 |
0 |
$type eq 'a' and not $bib_lvl =~ /[bs]/ or $type eq 't' |
|
|
5 |
0 |
0 |
$type eq 'a' and not $bib_lvl =~ /[bs]/ or $type eq 't' or $type eq 'b' |