| line |
true |
false |
branch |
|
22
|
81 |
41 |
$self->can('tag') ? : |
|
25
|
116 |
6 |
if ($self->index_start ne $self->index_end) |
|
28
|
34 |
88 |
if (defined $self->char_start) |
|
31
|
32 |
2 |
unless ($char_start eq '0' and $char_end eq '#') |
|
33
|
8 |
24 |
if ($char_end ne $char_start) |
|
36
|
81 |
41 |
if ($self->can('indicator1')) |
|
37
|
9 |
72 |
defined $self->indicator1 ? : |
|
38
|
9 |
72 |
defined $self->indicator2 ? : |
|
39
|
9 |
72 |
if ($indicators ne '_') |
|
139
|
13 |
0 |
defined $pos[1] ? : |
|
146
|
9 |
0 |
defined $pos[1] ? : |
|
151
|
6 |
28 |
if (not $self->has_subspecs) { } |
|
161
|
0 |
33 |
if (ref $subspecs ne 'ARRAY') |
|
164
|
29 |
4 |
if (not $self->has_subspecs) { } |
|
176
|
2 |
19 |
if ($self->has_subspecs) |
|
179
|
1 |
2 |
if (ref $ss eq 'ARRAY') { } |
|
196
|
31 |
38 |
if ($start eq $end) |
|
199
|
0 |
38 |
if ($LAST eq $start and $LAST ne $end) |
|
202
|
29 |
9 |
if ($LAST ne $start and $LAST eq $end) |
|
206
|
1 |
8 |
if (1 > $length) |
|
216
|
0 |
22 |
if ($charpos =~ /[^0-9\-#]/s) |
|
221
|
0 |
22 |
if ('-' eq substr($charpos, -1)) |
|
226
|
0 |
22 |
if ('-' eq substr($charpos, 0, 1)) |
|
233
|
6 |
16 |
unless (defined $pos[1]) |