| line |
true |
false |
branch |
|
64
|
2 |
4440 |
unless $tagno =~ /^[0-9A-Za-z]{3}$/ |
|
74
|
796 |
3644 |
if ($is_control) { } |
|
79
|
34 |
7254 |
unless ($indicator =~ /^[0-9A-Za-z ]$/) |
|
80
|
4 |
30 |
unless $indicator eq '' |
|
86
|
0 |
3644 |
unless @_ >= 2 |
|
120
|
2 |
86 |
if $self->is_control_field |
|
123
|
45 |
43 |
if ($indno == 1) { } |
|
|
43 |
0 |
elsif ($indno == 2) { } |
|
167
|
0 |
23 |
if $self->is_control_field |
|
173
|
23 |
30 |
if ($code eq $code_wanted) { } |
|
179
|
0 |
23 |
if (wantarray) |
|
200
|
0 |
1 |
if $self->is_control_field |
|
220
|
0 |
6 |
unless $self->is_control_field |
|
223
|
0 |
6 |
if @_ |
|
241
|
0 |
1 |
if $self->is_control_field |
|
268
|
0 |
0 |
unless grep {$_ eq $subfields[$i];} @deletes |
|
309
|
1 |
5 |
if ($self->is_control_field) |
|
324
|
1 |
8 |
if ($arg =~ /^ind[12]$/) { } |
|
334
|
5 |
12 |
if ($data[$i] eq $arg) |
|
343
|
3 |
5 |
unless ($found) |
|
374
|
0 |
1 |
unless ref($new) =~ /^MARC::Field$/ |
|
411
|
5 |
49 |
if ($self->is_control_field) |
|
423
|
78 |
9 |
if not $subfields or $code =~ /^[$subfields]$/ |
|
441
|
38 |
156 |
if ($self->is_control_field) { } |
|
470
|
6 |
37 |
if ($self->is_control_field) { } |
|
516
|
4 |
14 |
if ($is_control) { } |