| line |
true |
false |
branch |
|
28
|
0 |
0 |
defined $code ? : |
|
47
|
0 |
0 |
unless defined $name1 and defined $name2 |
|
55
|
0 |
0 |
unless @things |
|
56
|
0 |
0 |
if @things < 2 |
|
60
|
0 |
0 |
if @things > 2 |
|
68
|
0 |
0 |
unless $opt->{"radians"} |
|
70
|
0 |
0 |
unless defined $opt->{"places"} |
|
76
|
0 |
0 |
unless defined $name |
|
128
|
0 |
0 |
unless eval {
do {
TEST_LOOP: while (@arg) {
my $current = shift @arg;
if (my $code = $operator{$current}) {
my $operands = operands($code);
$self->wail("Not enough operands. Need $operands") unless @stack >= $operands;
&$code($self, \@stack);
}
else {
push @stack, $current;
} ;
} ;
1
}
} |
|
132
|
0 |
0 |
if (my $code = $operator{$current}) { } |
|
134
|
0 |
0 |
unless @stack >= $operands |
|
143
|
0 |
0 |
if @stack > 1 |
|
145
|
0 |
0 |
unless $stack[-1] and @arg |