| line |
true |
false |
branch |
|
83
|
3 |
5 |
unless defined $expect
|
|
107
|
4341 |
62 |
if (defined $class) { }
|
|
108
|
0 |
4341 |
unless my $rslt = &isa_ok($obj, $class)
|
|
128
|
203 |
1189 |
if ('ARRAY' eq ref $parse) { }
|
|
|
565 |
624 |
elsif ('ARRAY' eq ref $obj) { }
|
|
|
624 |
0 |
elsif ($obj->can('children')) { }
|
|
145
|
0 |
1 |
if @args < 3
|
|
150
|
0 |
1 |
if (not defined $left || defined $right) { }
|
|
|
0 |
1 |
elsif (not defined $left && defined $right) { }
|
|
|
1 |
0 |
elsif (ref $left and ref $right) { }
|
|
|
0 |
0 |
elsif (ref $left or ref $right) { }
|
|
|
0 |
0 |
elsif (&looks_like_number($left) and &looks_like_number($right)) { }
|
|
167
|
5 |
0 |
if ($opt->{'test'}) { }
|
|
|
0 |
0 |
elsif (__instance($result, 'PPIx::Regexp::Tokenizer') or __instance($result, 'PPIx::Regexp::Element')) { }
|
|
|
0 |
0 |
elsif (eval {
|
|
|
0 |
0 |
elsif (eval {
|
|
189
|
18 |
1 |
if @args < 3
|
|
194
|
11 |
8 |
if (not defined $left || defined $right) { }
|
|
|
0 |
8 |
elsif (not defined $left && defined $right) { }
|
|
|
8 |
0 |
elsif (ref $left and ref $right) { }
|
|
|
0 |
0 |
elsif (ref $left or ref $right) { }
|
|
|
0 |
0 |
elsif (&looks_like_number($left) and &looks_like_number($right)) { }
|
|
216
|
17 |
35 |
unless "ARRAY" eq ref $args
|
|
222
|
52 |
0 |
if ($obj->can($method)) { }
|
|
244
|
5 |
1076 |
ref $want ? :
|
|
263
|
562 |
39 |
if @args > 1 and "ARRAY" eq ref $args[-1] and @{$args[-1];} == 0 and $array{$args[-2]}
|
|
267
|
9 |
8474 |
if (__instance($args[0], 'PPIx::Regexp::Element')) { }
|
|
|
1571 |
6903 |
elsif ('ARRAY' eq ref $obj) { }
|
|
276
|
6299 |
604 |
unless "ARRAY" eq ref $args
|
|
279
|
0 |
6903 |
unless $obj->can($method)
|
|
280
|
6341 |
562 |
if (@args or $scalar) { }
|
|
281
|
73 |
6268 |
unless $obj = $obj->$method(@{$args;})
|
|
303
|
1 |
306 |
unless $opt->{'test'}
|
|
314
|
1 |
0 |
if defined $obj
|
|
316
|
1 |
0 |
if (defined $result) { }
|
|
329
|
282 |
0 |
unless defined $name
|
|
353
|
203 |
3 |
if ($obj and $opt->{'tokens'}) { }
|
|
360
|
1 |
205 |
unless $opt->{'test'}
|
|
367
|
22 |
25 |
unless "ARRAY" eq ref $args
|
|
373
|
47 |
0 |
if ($obj->can($method)) { }
|
|
385
|
6 |
1075 |
unless "ARRAY" eq ref $args
|
|
393
|
0 |
1081 |
unless ($invocant->can($method))
|
|
399
|
3 |
1078 |
'ARRAY' eq ref $want ? :
|
|
402
|
5 |
1076 |
ref $want ? :
|
|
403
|
1081 |
0 |
unless defined $name
|
|
405
|
5 |
1076 |
if (ref $result) { }
|
|
414
|
282 |
0 |
unless defined $name
|
|
424
|
1078 |
1183 |
unless "ARRAY" eq ref $args
|
|
428
|
277 |
868 |
if (not defined $arg) { }
|
|
|
631 |
237 |
elsif (&looks_like_number($arg)) { }
|
|
439
|
1076 |
1185 |
if $opt{'bare'}
|
|
440
|
1121 |
64 |
unless @rslt
|
|
448
|
3566 |
62 |
if defined $obj
|
|
450
|
3564 |
64 |
if (defined $result) { }
|
|
464
|
4 |
577 |
if ($arg =~ / \A - -? (no)? (\w+) \z /msx and exists $opt->{$2}) { }
|
|
475
|
10 |
0 |
if (eval {
|
|
488
|
0 |
21231 |
if (__instance($item, "PPIx::Regexp::Element"))
|
|
491
|
24 |
21207 |
if (not defined $item) { }
|
|
|
6751 |
14456 |
elsif ('ARRAY' eq ref $item) { }
|
|
|
7697 |
6759 |
elsif (&looks_like_number($item)) { }
|
|
507
|
12 |
3616 |
if (keys %replace_characters)
|
|
511
|
379 |
12 |
unless $replace_characters{$_}
|
|
516
|
0 |
3628 |
unless wantarray
|