| line |
true |
false |
branch |
|
27
|
0 |
10 |
if (defined(my $prefix_blob = delete $opts{'prefix_blob'})) |
|
32
|
0 |
10 |
if scalar keys %opts |
|
42
|
0 |
12 |
if defined $self->{'result'} |
|
45
|
0 |
20 |
if ref $blob |
|
61
|
0 |
2 |
if ref $string |
|
71
|
0 |
10 |
if scalar keys %opts |
|
73
|
0 |
10 |
if defined $self->{'result'} |
|
77
|
0 |
10 |
$self->{'keep_first'} ? : |
|
83
|
20 |
27 |
if $i == $j |
|
85
|
1 |
26 |
if (index($data[$i], $data[$j]) != -1) |
|
105
|
0 |
10 |
if scalar keys %opts |
|
121
|
8 |
0 |
if ($key eq 'index') { } |
|
127
|
0 |
8 |
if (not defined $d) { } |
|
|
0 |
8 |
elsif (ref $d) { } |
|
134
|
0 |
8 |
if ($d < 0) |
|
141
|
0 |
8 |
if scalar @args |
|
143
|
0 |
8 |
if (wantarray) { } |
|
146
|
0 |
8 |
unless scalar @res == 1 |
|
155
|
0 |
80 |
$self->{'keep_first'} ? : |
|
161
|
75 |
67 |
if length $suffix != $n |
|
164
|
66 |
72 |
if $i == $j |
|
167
|
6 |
66 |
if ($suffix eq substr($data->[$j], 0, $n)) |