| line |
true |
false |
branch |
|
58
|
6 |
0 |
if @_ |
|
87
|
6 |
0 |
if (@_) { } |
|
89
|
0 |
6 |
@_ > 1 ? : |
|
106
|
8 |
0 |
if ($v) |
|
107
|
1 |
7 |
if $v eq 'TRUE' or $v eq 'FALSE' |
|
108
|
2 |
5 |
if (grep {$v eq $_;} @forbidden_tv_names) { } |
|
|
1 |
4 |
elsif ($v =~ /^[a-zA-Z_][a-zA-Z_0-9]*$/) { } |
|
146
|
0 |
0 |
if exists $specified_tv{'TRUE'} or exists $specified_tv{'FALSE'} |
|
148
|
0 |
0 |
if (defined $self->{'exp'}) { } |
|
151
|
0 |
0 |
if (defined $specified_tv{$v}) { } |
|
|
0 |
0 |
elsif (defined $self->{'undef_default'}) { } |
|
156
|
0 |
0 |
exists $specified_tv{$v} ? : |
|
200
|
0 |
0 |
if (defined $self->{'exp'}) { } |
|
223
|
0 |
0 |
if (@_) { } |
|
263
|
0 |
0 |
$truth ? : |
|
272
|
0 |
0 |
eval $code ? : |
|
274
|
0 |
0 |
if (my $error = $@) |
|
282
|
0 |
0 |
if ($error =~ /(at \(eval [0-9]+\) line ([0-9]+))/) |
|
285
|
0 |
0 |
if ($error_line > 0) { } |
|
299
|
0 |
0 |
$outcome ? : |
|
311
|
0 |
0 |
$truth ? : |