| line |
true |
false |
branch |
|
39
|
0 |
0 |
if defined $value |
|
42
|
0 |
0 |
if $max < $min |
|
50
|
0 |
0 |
if defined $value |
|
86
|
0 |
0 |
if ($max < 0) { } |
|
106
|
0 |
0 |
if (not @names) { } |
|
141
|
2 |
0 |
unless defined $new_mode |
|
143
|
0 |
0 |
if (defined $mode) { } |
|
151
|
0 |
2 |
if ($help) |
|
196
|
0 |
0 |
unless defined $dim |
|
199
|
0 |
0 |
if (not $dim =~ /^\d+\z/ or 0 == $dim or $max_abc < $dim) |
|
219
|
0 |
0 |
if ('' eq $count) { } |
|
231
|
0 |
0 |
if $len > 70 |
|
243
|
0 |
0 |
if ($cols and $cols + $len >= 70) |
|
247
|
0 |
0 |
if ($cols) |
|
254
|
0 |
0 |
if ($cols) |
|
268
|
0 |
0 |
unless not /^\d+\z/ |
|
|
0 |
0 |
if (grep {$_ >= @op_kinds unless not /^\d+\z/;} @kinds) |
|
272
|
0 |
0 |
unless (@kinds) |
|
300
|
0 |
0 |
unless (ref $op) |
|
304
|
0 |
0 |
if (my $error = 'Math::Logic::Ternary::Calculator::Command'->check_argc($raw_name, $minc, $varc, 0 + @operands)) |
|
308
|
0 |
0 |
unless (@results) |
|
312
|
0 |
0 |
if ($retv) |
|
326
|
0 |
8 |
unless $command->execute($this) |