| 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 {
do {
require YAML;
1
}
}) { } |
|
|
0 |
0 |
elsif (eval {
do {
require Data::Dumper;
1
}
}) { } |
|
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 {
do {
require Time::HiRes;
1
}
}) { } |
|
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 |