| line |
true |
false |
branch |
|
169
|
191 |
619 |
if ($ttype == 2) { } |
|
|
619 |
0 |
elsif ($ttype == 0 or $ttype == 1) { } |
|
171
|
187 |
4 |
if (exists $args{$name} and defined $args{$name}) |
|
174
|
0 |
187 |
unless ref $args{$name} |
|
237
|
1 |
2 |
if ($term->term_type == 2 and defined $$term{'value'}) |
|
284
|
0 |
8925 |
if ($ttype == 1 or $ttype == 2) { } |
|
|
8925 |
0 |
elsif ($ttype == 0) { } |
|
291
|
0 |
8925 |
if ($action eq 'all') { } |
|
|
1535 |
7390 |
elsif ($action eq 'all_vars') { } |
|
298
|
11 |
7379 |
if ($type == 5 or $type == 6) { } |
|
435
|
1531 |
12252 |
unless exists $args{'in_place'} and $args{'in_place'} |
|
443
|
499 |
7390 |
if (exists $args{'operand_finder'}) { } |
|
445
|
0 |
499 |
unless ref $op_f |
|
446
|
0 |
499 |
unless ref $op_f eq 'CODE' |
|
456
|
12963 |
820 |
if (exists $args{'before'}) |
|
457
|
0 |
12963 |
unless ref $args{'before'} eq 'CODE' |
|
461
|
0 |
13783 |
if (exists $args{'after'} and ref $args{'after'} ne 'CODE') |
|
465
|
35 |
13748 |
@opt == 1 && ref $opt[0] eq 'HASH' ? : |
|
470
|
5852 |
7931 |
if ($ttype != 0) { } |
|
|
35 |
7896 |
elsif ($has_control) { } |
|
|
7886 |
10 |
elsif (@opt == 0) { } |
|
|
10 |
0 |
elsif (@opt == 1 and not defined $opt[0]) { } |
|
|
0 |
0 |
elsif (@opt >= 1 and not grep({not $_ =~ /^[+-]?\d+$/;} @opt)) { } |
|
476
|
3 |
32 |
if exists $$opt{'in_place'} |
|
479
|
0 |
35 |
if (exists $$opt{'operands'}) |
|
480
|
0 |
0 |
unless ref $$opt{'operands'} eq 'ARRAY' |
|
487
|
35 |
0 |
if (exists $$opt{'descend_into'}) |
|
488
|
0 |
35 |
unless ref $$opt{'descend_into'} eq 'ARRAY' |
|
493
|
3 |
32 |
if @{$$opt{'descend_into'};} == 0 |
|
496
|
68 |
0 |
if (ref $_) { } |
|
531
|
820 |
12963 |
if (exists $args{'after'} and not $has_control && exists $opt[0]{'skip_after'} && $opt[0]{'skip_after'}) |
|
578
|
0 |
2 |
if (@_ == 1) { } |
|
|
1 |
1 |
elsif (@_ == 2) { } |
|
583
|
0 |
1 |
unless ref $_[0] eq 'HASH' |
|
592
|
0 |
2 |
if ($ttype == 1) |
|
593
|
0 |
0 |
unless @_ == 2 |
|
595
|
0 |
0 |
if defined $value |
|
604
|
7 |
3 |
if ($ttype == 0 or $ttype == 1) { } |
|
|
3 |
0 |
elsif ($ttype == 2) { } |
|
607
|
3 |
0 |
if exists $args{$$tree{'name'}} |
|
631
|
20 |
377 |
unless (ref($operand) =~ /^Math::Symbolic/) |
|
632
|
1 |
19 |
if (not defined $operand) { } |
|
|
5 |
14 |
elsif (not $operand =~ /^\s*\d+\s*$/) { } |
|
648
|
1 |
84 |
if not defined $operand and $reverse |
|
649
|
0 |
84 |
if $reverse |
|
657
|
0 |
38 |
if not defined $operand and $reverse |
|
660
|
1 |
37 |
if $reverse |
|
668
|
0 |
258 |
if $reverse |
|
676
|
0 |
12 |
if $reverse |
|
684
|
1 |
3 |
if $reverse |
|
750
|
2493 |
0 |
if ($call =~ /^((?:apply|mod|is|test|contains|to)_\w+)/) { } |
|
753
|
2493 |
0 |
if (defined $ref) { } |
|
784
|
3 |
6 |
if defined $sub |