| line |
true |
false |
branch |
|
88
|
3 |
5 |
unless defined $expect |
|
112
|
4319 |
62 |
if (defined $class) { } |
|
113
|
0 |
4319 |
unless my $rslt = &isa_ok($obj, $class, "$kind $nav") |
|
133
|
202 |
1180 |
if ('ARRAY' eq ref $parse) { } |
|
|
559 |
621 |
elsif ('ARRAY' eq ref $obj) { } |
|
|
621 |
0 |
elsif ($obj->can('children')) { } |
|
150
|
0 |
1 |
if @args < 3 |
|
155
|
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)) { } |
|
172
|
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
}
}) { } |
|
194
|
18 |
1 |
if @args < 3 |
|
199
|
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)) { } |
|
221
|
17 |
35 |
unless "ARRAY" eq ref $args |
|
227
|
52 |
0 |
if ($obj->can($method)) { } |
|
249
|
5 |
1073 |
ref $want ? : |
|
268
|
556 |
39 |
if @args > 1 and "ARRAY" eq ref $args[-1] and @{$args[-1];} == 0 and $array{$args[-2]} |
|
272
|
9 |
8434 |
if (__instance($args[0], 'PPIx::Regexp::Element')) { } |
|
|
1562 |
6872 |
elsif ('ARRAY' eq ref $obj) { } |
|
281
|
6274 |
598 |
unless "ARRAY" eq ref $args |
|
284
|
0 |
6872 |
unless $obj->can($method) |
|
285
|
6316 |
556 |
if (@args or $scalar) { } |
|
286
|
73 |
6243 |
unless $obj = $obj->$method(@{$args;}) |
|
308
|
1 |
304 |
unless $opt->{'test'} |
|
320
|
1 |
0 |
if defined $obj |
|
322
|
1 |
0 |
if (defined $result) { } |
|
335
|
282 |
0 |
unless defined $name |
|
359
|
202 |
3 |
if ($obj and $opt->{'tokens'}) { } |
|
366
|
1 |
204 |
unless $opt->{'test'} |
|
374
|
22 |
25 |
unless "ARRAY" eq ref $args |
|
380
|
47 |
0 |
if ($obj->can($method)) { } |
|
392
|
6 |
1072 |
unless "ARRAY" eq ref $args |
|
400
|
0 |
1078 |
unless ($invocant->can($method)) |
|
406
|
3 |
1075 |
'ARRAY' eq ref $want ? : |
|
409
|
5 |
1073 |
ref $want ? : |
|
410
|
1078 |
0 |
unless defined $name |
|
412
|
5 |
1073 |
if (ref $result) { } |
|
421
|
282 |
0 |
unless defined $name |
|
431
|
1075 |
1180 |
unless "ARRAY" eq ref $args |
|
435
|
277 |
865 |
if (not defined $arg) { } |
|
|
629 |
236 |
elsif (&looks_like_number($arg)) { } |
|
446
|
1073 |
1182 |
if $opt{'bare'} |
|
447
|
1118 |
64 |
unless @rslt |
|
455
|
3548 |
62 |
if defined $obj |
|
457
|
3546 |
64 |
if (defined $result) { } |
|
471
|
4 |
574 |
if ($arg =~ / \A - -? (no)? (\w+) \z /msx and exists $opt->{$2}) { } |
|
482
|
10 |
0 |
if (eval {
do {
require Time::HiRes;
1
}
}) { } |
|
495
|
0 |
21135 |
if (__instance($item, "PPIx::Regexp::Element")) |
|
498
|
24 |
21111 |
if (not defined $item) { } |
|
|
6720 |
14391 |
elsif ('ARRAY' eq ref $item) { } |
|
|
7663 |
6728 |
elsif (&looks_like_number($item)) { } |
|
514
|
14 |
4104 |
if (keys %replace_characters) |
|
518
|
387 |
16 |
unless $replace_characters{$_} |
|
523
|
508 |
3610 |
unless wantarray |