| line |
true |
false |
branch |
|
15
|
3 |
13 |
unless $path =~ m(
([012*.][0-9*.][0-9*.][A-Z\@*.]) # tag
(\[([0-9*.]{2,3})\])? # occurence
(\$?([_A-Za-z0-9]+))? # subfields
(/(\d+)?(-(\d+)?)?)? # position
)x |
|
24
|
4 |
9 |
defined $5 ? : |
|
27
|
8 |
5 |
if (defined $6) |
|
30
|
6 |
2 |
if ($dash) |
|
31
|
1 |
5 |
unless defined($from // $to) |
|
34
|
2 |
5 |
if (defined $to) { } |
|
35
|
0 |
2 |
if (not $from and $dash) |
|
40
|
3 |
2 |
if ($8) { } |
|
47
|
7 |
0 |
if (not defined $length or $length >= 1) |
|
48
|
6 |
1 |
if ($from or defined $length) |
|
57
|
1 |
11 |
if (defined $occurrence) |
|
70
|
0 |
0 |
if ($field->[0] =~ /$self->[0]/ and !$self->[1] || defined $field->[1] && $field->[1] =~ /$self->[1]/) |
|
88
|
3 |
0 |
if ($field->[$i] =~ /$subfield_regex/) |
|
90
|
2 |
1 |
if (defined $from) |
|
91
|
1 |
1 |
$length ? : |
|
93
|
0 |
2 |
if '' eq ($value // '') |
|
105
|
0 |
0 |
if &reftype($record) eq 'HASH' |
|
112
|
0 |
0 |
if &reftype($record) eq 'HASH' |
|
127
|
19 |
8 |
defined $_ ? : |
|
135
|
1 |
8 |
if (defined $occurrence) |
|
139
|
4 |
5 |
if (defined $subfields and $subfields ne '[_A-Za-z0-9]') |
|
141
|
3 |
1 |
unless ($short and not $subfields =~ /^\$/) |
|
148
|
4 |
5 |
if (defined $from) |
|
149
|
3 |
1 |
if ($from) |
|
152
|
1 |
3 |
if (not defined $length) { } |
|
|
1 |
2 |
elsif ($length > 1) { } |
|
|
1 |
1 |
elsif ($length == 1 and not $from) { } |
|
153
|
1 |
0 |
if ($from) |
|
163
|
4 |
5 |
if defined $pos |