| line |
true |
false |
branch |
|
34
|
1 |
0 |
unless ref $args eq 'HASH' |
|
37
|
1 |
0 |
unless exists $$self{'translate'} |
|
38
|
1 |
0 |
unless exists $$self{'copy'} |
|
39
|
1 |
0 |
unless exists $$self{'sourceSubfield'} |
|
40
|
1 |
0 |
unless exists $$self{'indicator1'} |
|
41
|
1 |
0 |
unless exists $$self{'indicator2'} |
|
53
|
1 |
2 |
if ($tag) |
|
76
|
1 |
2 |
if grep {$subfield eq $_;} $self->copy |
|
77
|
2 |
0 |
if defined $subfield |
|
99
|
1 |
2 |
if grep {$subfield eq $_;} $self->translate |
|
100
|
2 |
0 |
if defined $subfield |
|
116
|
0 |
1 |
if ($subfield) |
|
134
|
1 |
3 |
if (defined $indicator) |
|
140
|
1 |
3 |
if (defined $indicator) |
|
149
|
1 |
0 |
if defined $self->indicator1 |
|
151
|
1 |
0 |
if defined $self->indicator2 |