line |
true |
false |
branch |
15
|
3 |
13 |
unless $path =~ m(
([012*.][0-9*.][0-9*.][A-Z\@*.]) # tag
(\[([0-9*.]{2})\])? # 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 |