| line |
true |
false |
branch |
|
181
|
1014 |
280 |
if @_ < 4 |
|
182
|
3 |
1291 |
if not defined $op && defined $n or @_ > 4 |
|
184
|
5 |
665 |
unless $n =~ /\A-?(?:0|[1-9][0-9]*)\z/ |
|
|
670 |
621 |
if ($ai) { } |
|
185
|
7 |
614 |
unless $n =~ /\A(?:0|[1-9][0-9]*)\z/ |
|
188
|
176 |
1103 |
if ($op eq '==') { } |
|
|
176 |
927 |
elsif ($op eq '!=') { } |
|
189
|
2 |
4 |
$n == 0 && $ai ? : |
|
|
6 |
170 |
unless $anchor |
|
190
|
8 |
162 |
if $n == 0 and $ai |
|
191
|
38 |
124 |
if $n =~ /\A-/ |
|
192
|
38 |
86 |
$ai ? : |
|
195
|
6 |
170 |
unless ($anchor) |
|
196
|
2 |
1 |
$ai ? : |
|
|
3 |
3 |
if $n == 0 |
|
197
|
2 |
1 |
$ai ? : |
|
199
|
8 |
76 |
$n == 0 ? : |
|
|
84 |
86 |
if $ai |
|
207
|
0 |
919 |
unless %se |
|
211
|
228 |
691 |
if $se{'[1-9]?[0-9]'} or grep {/\A\[0-?\d\]\z/;} keys %se |
|
213
|
89 |
830 |
if $se{'-[1-9]?[0-9]'} or grep {/\A-\[0-?\d\]\z/;} keys %se |
|
217
|
855 |
2171 |
if (/\A-/) { } |
|
226
|
8 |
911 |
if (not $anchor) { } |
|
|
792 |
119 |
elsif (@pos) { } |
|
227
|
367 |
425 |
$ai ? : |
|
|
653 |
139 |
@pos > 1 ? : |
|
235
|
907 |
12 |
if (@neg < 6) { } |
|
239
|
0 |
919 |
unless @all |
|
240
|
339 |
580 |
@all > 1 ? : |
|
|
911 |
8 |
$anchor ? : |
|
246
|
467 |
460 |
if ($op eq '>' or $op eq '>=') { } |
|
|
458 |
2 |
elsif ($op eq '<' or $op eq '<=') { } |
|
247
|
224 |
243 |
if $op eq ">=" |
|
251
|
226 |
232 |
if $op eq "<=" |
|
257
|
6 |
36 |
if $n == 0 and not $gt_not_lt and not $ai |
|
258
|
14 |
6 |
$ai ? : |
|
|
20 |
899 |
if $n == -1 and $gt_not_lt |
|
260
|
22 |
14 |
$gt_not_lt ? : |
|
|
36 |
863 |
if $n == 0 |
|
265
|
212 |
651 |
if $reflect |
|
266
|
212 |
651 |
$reflect ? : |
|
267
|
212 |
651 |
$reflect ? : |
|
268
|
0 |
863 |
unless $an =~ /\A[1-9][0-9]*\z/ |
|
273
|
229 |
634 |
if ($ai and not $gt_not_lt) |
|
274
|
106 |
123 |
$reflect ? : |
|
277
|
425 |
438 |
if ($gt_not_lt) { } |
|
278
|
109 |
316 |
if (length $an == 1) { } |
|
284
|
95 |
343 |
if (length $an > 3) { } |
|
|
125 |
218 |
elsif (length $an > 2) { } |
|
|
106 |
112 |
elsif (length $an > 1) { } |
|
298
|
759 |
326 |
!$#dig || $i ? : |
|
|
1044 |
1085 |
$gt_not_lt ? : |
|
300
|
454 |
393 |
$rest == 1 ? : |
|
|
785 |
847 |
!$rest ? : |
|
|
1632 |
497 |
unless $$rng[$dig[$i]] eq "(?!)" |