| line |
true |
false |
branch |
|
109
|
6 |
10 |
if ($self->{'forbid_undef'}) |
|
110
|
3 |
3 |
if (my(%errors) = %{$self->{'_undefined'};}) |
|
114
|
6 |
10 |
if ($self->{'forbid_unused'}) |
|
117
|
4 |
6 |
unless ($self->{'_used'}{$var}) |
|
121
|
3 |
3 |
if (my $unused = join(', ', sort(@unused))) |
|
126
|
5 |
11 |
if ($errors) |
|
134
|
11 |
0 |
if (@_) { } |
|
|
0 |
0 |
elsif (defined wantarray) { } |
|
164
|
3 |
17 |
defined $4 ? : |
|
177
|
8 |
8 |
eval {
do {
$2 eq 'U' xor not !$self->_expression($stash, $4)
}
} ? : |
|
|
2 |
16 |
$2 eq 'F' ? : |
|
198
|
1 |
35 |
if $self->{'TRIM'} |
|
209
|
0 |
2 |
unless (ref $list eq 'ARRAY') |
|
226
|
2 |
81 |
if substr($_, 0, 1) eq '_' |
|
230
|
7 |
74 |
if ($type eq 'ARRAY') { } |
|
|
72 |
2 |
elsif ($type eq 'HASH') { } |
|
|
2 |
0 |
elsif ($type) { } |
|
231
|
1 |
6 |
unless /^(?:0|[0-9]\d*)\z/ |
|
244
|
3 |
53 |
if ($_[0]{'forbid_undef'} and not defined $cursor) |