| line |
true |
false |
branch |
|
113
|
0 |
0 |
if (@_) { } |
|
126
|
1916 |
552177 |
@{$_;} <= $m ? : |
|
128
|
39426 |
28303 |
if keys %diff > 1 |
|
129
|
3 |
28300 |
if (exists $diff{''} and $diff{''} == @_) |
|
146
|
1228 |
400926 |
@{$_;} < $m ? : |
|
148
|
39426 |
4383 |
if keys %diff > 1 |
|
149
|
3 |
4380 |
if (exists $diff{''} and $diff{''} == @_) |
|
162
|
0 |
39426 |
if $Regex::PreSuf::DEBUG |
|
165
|
0 |
39426 |
if $Regex::PreSuf::DEBUG |
|
168
|
0 |
39426 |
if @_ == 0 |
|
170
|
9 |
39417 |
if (@_ == 1) |
|
172
|
0 |
9 |
if $Regex::PreSuf::DEBUG |
|
179
|
0 |
39417 |
if ($Regex::PreSuf::DEBUG) |
|
190
|
39407 |
10 |
if ($prefixes and not $suffixes) |
|
193
|
1900 |
120465 |
if ($_ eq '') |
|
201
|
3 |
39414 |
if ($suffixes and not $prefixes) |
|
203
|
0 |
8 |
if ($_ eq '') |
|
211
|
19731 |
19686 |
if ($pre_n or $suf_n) { } |
|
212
|
1191 |
18540 |
if ($pre_n == $suf_n) |
|
217
|
1191 |
0 |
if $eq_s ne join('', @{$_;}) |
|
221
|
0 |
1191 |
if ($eq_n == @_) |
|
222
|
0 |
0 |
if $Regex::PreSuf::DEBUG |
|
231
|
52 |
184563 |
if (@{$_;} < $ps_n) |
|
240
|
19653 |
78 |
$pre_n ? : |
|
242
|
2554 |
17177 |
$suf_n ? : |
|
245
|
52 |
19679 |
if ($overlap) { } |
|
246
|
51 |
1 |
if ($prefixes and not $suffixes) { } |
|
|
1 |
0 |
elsif ($suffixes) { } |
|
266
|
0 |
19731 |
if ($Regex::PreSuf::DEBUG) |
|
275
|
0 |
19731 |
if $Regex::PreSuf::DEBUG |
|
286
|
179739 |
4856 |
if ($len > 1) { } |
|
|
3727 |
1129 |
elsif ($len == 1) { } |
|
293
|
19333 |
353 |
if (@len_n) |
|
294
|
2183 |
17150 |
if (@len_n == 1) { } |
|
302
|
2 |
17148 |
if ($prefixes and $suffixes) |
|
303
|
1 |
1 |
if (@pre_d < @suf_d) { } |
|
306
|
1 |
0 |
if (@pre_d == @suf_d) { } |
|
307
|
1 |
0 |
if ($$param{'suffixes'}) { } |
|
318
|
17147 |
3 |
if ($prefixes) { } |
|
|
3 |
0 |
elsif ($suffixes) { } |
|
329
|
19612 |
35886 |
if (@{$len_m{$_};} > 1) { } |
|
339
|
3297 |
16389 |
if (@len_1) |
|
340
|
3 |
3294 |
if ($$param{'anychar'} and exists $pre_d{'.'} || exists $suf_d{'.'} and grep {$$_[0] eq '.';} @len_1) { } |
|
345
|
2891 |
403 |
if (@len_1 == 1) { } |
|
360
|
19333 |
353 |
unless @alt_n == 0 |
|
362
|
1129 |
18557 |
if $len_0 |
|
364
|
0 |
19686 |
if $Regex::PreSuf::DEBUG |
|
371
|
6 |
77 |
ref $_[0] eq 'HASH' ? : |
|
373
|
0 |
83 |
if @_ == 0 |
|
378
|
3 |
80 |
if $$param{'anychar'} |