| 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}) |
|
176
|
0 |
187 |
unless ref $args{$name} |
|
237
|
1 |
2 |
if ($term->term_type == 2 and defined $term->{'value'}) |
|
284
|
0 |
8945 |
if ($ttype == 1 or $ttype == 2) { } |
|
|
8945 |
0 |
elsif ($ttype == 0) { } |
|
291
|
0 |
8945 |
if ($action eq 'all') { } |
|
|
1544 |
7401 |
elsif ($action eq 'all_vars') { } |
|
298
|
11 |
7390 |
if ($type == 5 or $type == 6) { } |
|
437
|
1531 |
12281 |
unless exists $args{'in_place'} and $args{'in_place'} |
|
443
|
499 |
7401 |
if (exists $args{'operand_finder'}) { } |
|
445
|
0 |
499 |
unless ref $op_f |
|
446
|
0 |
499 |
unless ref $op_f eq "CODE" |
|
456
|
12992 |
820 |
if (exists $args{'before'}) |
|
458
|
0 |
12992 |
unless ref $args{'before'} eq "CODE" |
|
461
|
0 |
13812 |
if (exists $args{'after'} and ref $args{'after'} ne "CODE") |
|
465
|
35 |
13777 |
@opt == 1 && ref $opt[0] eq 'HASH' ? : |
|
470
|
5870 |
7942 |
if ($ttype != 0) { } |
|
|
35 |
7907 |
elsif ($has_control) { } |
|
|
7897 |
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)) { } |
|
477
|
3 |
32 |
if exists $opt->{'in_place'} |
|
479
|
0 |
35 |
if (exists $opt->{'operands'}) |
|
482
|
0 |
0 |
unless ref $opt->{'operands'} eq "ARRAY" |
|
487
|
35 |
0 |
if (exists $opt->{'descend_into'}) |
|
490
|
0 |
35 |
unless ref $opt->{'descend_into'} eq "ARRAY" |
|
493
|
3 |
32 |
if @{$opt->{'descend_into'};} == 0 |
|
496
|
68 |
0 |
if (ref $_) { } |
|
531
|
820 |
12992 |
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) { } |
|
608
|
3 |
0 |
if exists $args{$tree->{'name'}} |
|
631
|
20 |
379 |
unless (ref($operand) =~ /^Math::Symbolic/) |
|
632
|
1 |
19 |
if (not defined $operand) { } |
|
|
5 |
14 |
elsif (not $operand =~ /^\s*\d+\s*$/) { } |
|
648
|
1 |
86 |
if not defined $operand and $reverse |
|
649
|
0 |
86 |
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
|
2510 |
0 |
if ($call =~ /^((?:apply|mod|is|test|contains|to)_\w+)/) { } |
|
753
|
2510 |
0 |
if (defined $ref) { } |
|
784
|
3 |
6 |
if defined $sub |