| line |
true |
false |
branch |
|
78
|
24 |
254 |
$handler ? : |
|
90
|
60 |
4138 |
if defined $action |
|
114
|
228 |
0 |
unless grep {$_ eq $name;} @{$$self{'rulelist'};} |
|
172
|
3 |
2097 |
if wantarray |
|
178
|
997 |
15412 |
if ($$t[0] eq 'CODEBLOCK') |
|
181
|
9 |
1985 |
defined $r[0] && $r[0] ne '' ? : |
|
|
12 |
985 |
unless ref $pattern |
|
186
|
2145 |
1794 |
unless ref $_ |
|
187
|
922 |
872 |
unless $$_[0] =~ /\*$/ |
|
196
|
2097 |
14312 |
unless (ref $input) |
|
200
|
15412 |
997 |
unless ref $pattern |
|
205
|
6073 |
26990 |
if (ref $i) |
|
207
|
233 |
5840 |
if defined $tok |
|
214
|
10667 |
16323 |
if defined $i |
|
218
|
1567 |
6564 |
if @newtoks |
|
221
|
16323 |
10667 |
unless defined $i |
|
224
|
0 |
34886 |
defined $_[0] && $_[0] eq 'peek' ? : |
|
275
|
0 |
0 |
unless $message |
|
285
|
0 |
0 |
if (not defined $input) { } |
|
289
|
0 |
0 |
if (not defined $next) { } |
|
301
|
5 |
986 |
defined $input ? : |
|
305
|
15 |
87 |
unless ref $wanted |
|
308
|
4536 |
284 |
unless defined $input |
|
310
|
0 |
284 |
unless defined $next |
|
311
|
9 |
275 |
unless ref $next |
|
313
|
0 |
275 |
unless defined $$wanted[$i] |
|
314
|
60 |
215 |
unless $$wanted[$i] eq $$next[$i] |
|
316
|
0 |
215 |
unless ref $next |
|
324
|
38 |
192 |
unless ref $wanted |
|
327
|
3125 |
1224 |
unless defined $input |
|
329
|
0 |
1224 |
unless defined $next |
|
330
|
8 |
1216 |
unless ref $next |
|
332
|
0 |
1216 |
unless defined $$wanted[$i] |
|
333
|
523 |
693 |
unless $$wanted[$i] eq $$next[$i] |
|
335
|
0 |
693 |
unless ref $next |
|
345
|
4 |
29 |
unless defined $input |
|
347
|
0 |
29 |
unless defined $next |
|
349
|
24 |
5 |
if (ref $next) { } |
|
354
|
3 |
26 |
unless $value eq $wanted |
|
355
|
3 |
23 |
unless ref $next |
|
363
|
2452 |
2569 |
unless defined $input |
|
365
|
0 |
2569 |
unless defined $next |
|
366
|
406 |
2163 |
if ref $next |
|
371
|
0 |
0 |
unless defined $input |
|
373
|
0 |
0 |
unless defined $next |
|
374
|
0 |
0 |
if ref $next |
|
379
|
0 |
438 |
if @p == 0 |
|
386
|
14448 |
15415 |
unless ($v, $input) = &$_($input) |
|
387
|
1253 |
14162 |
if (ref car($v)) { } |
|
389
|
3680 |
0 |
if defined $v |
|
392
|
3250 |
10912 |
if defined $v |
|
400
|
0 |
268 |
if @p == 0 |
|
401
|
0 |
268 |
if @p == 1 |
|
406
|
12692 |
11898 |
if (($v, $newinput) = &$_($input)) |
|
426
|
38 |
1 |
if (defined $separator and not ref $separator) |
|
427
|
37 |
1 |
if ($separator =~ /\*$/) { } |
|
434
|
0 |
39 |
if ref $separator eq 'ARRAY' |
|
435
|
1 |
38 |
unless defined $separator |
|
490
|
0 |
0 |
unless $$self{'cmps'}{$pref} |
|
494
|
0 |
234 |
if $@ |
|
495
|
232 |
2 |
unless $name |
|
499
|
1 |
1 |
unless ($v, $input) = &$parser($input) |
|
534
|
0 |
36 |
if $@ |
|
540
|
2076 |
0 |
unless ref $input eq 'ARRAY' |