| line |
true |
false |
branch |
|
73
|
0 |
7 |
if $file and not -f $file |
|
112
|
2 |
24 |
if (@fields) |
|
125
|
0 |
41 |
unless exists $args{'field'} and exists $args{'subfield'} |
|
127
|
36 |
5 |
if $$self{'detransFields'}{$args{'field'} . $args{'subfield'}} |
|
140
|
0 |
6 |
unless exists $args{'field'} and exists $args{'subfield'} |
|
142
|
5 |
1 |
if $$self{'copyFields'}{$args{'field'} . $args{'subfield'}} |
|
171
|
5 |
2 |
if $$self{'file'} |
|
221
|
453 |
982 |
if ($tag eq 'rule') { } |
|
|
4 |
978 |
elsif ($tag eq 'name') { } |
|
|
457 |
521 |
elsif ($tag eq 'roman') { } |
|
|
457 |
64 |
elsif ($tag eq 'marc') { } |
|
|
5 |
59 |
elsif ($tag eq 'language') { } |
|
|
4 |
55 |
elsif ($tag eq 'script') { } |
|
|
9 |
46 |
elsif ($tag eq 'detrans-fields') { } |
|
|
0 |
46 |
elsif ($tag eq 'copy-fields') { } |
|
|
9 |
37 |
elsif ($tag eq 'field') { } |
|
|
32 |
5 |
elsif ($tag eq 'subfield') { } |
|
240
|
452 |
5 |
if $$self{'currentEscape'} |
|
267
|
9 |
0 |
unless grep /$field/, @{$$self{'lookForFields'};} |
|
276
|
14 |
18 |
if ($$data{'Attributes'}{'{}copy'} and $$data{'Attributes'}{'{}copy'}{'Value'} eq 'true') |
|
282
|
14 |
18 |
if ($copy) { } |
|
294
|
453 |
982 |
if ($tag eq 'rule') { } |
|
|
4 |
978 |
elsif ($tag eq 'name') { } |
|
|
457 |
521 |
elsif ($tag eq 'marc') { } |
|
|
457 |
64 |
elsif ($tag eq 'roman') { } |
|
|
9 |
55 |
elsif ($tag eq 'detrans-fields') { } |
|
|
0 |
55 |
elsif ($tag eq 'copy-fields') { } |
|
338
|
902 |
1910 |
if ($$self{'insideMarc'} or $$self{'insideRoman'} or $$self{'insideSubfield'}) |