| line |
true |
false |
branch |
|
23
|
0 |
0 |
@_ == 1 && ref $_[0] eq 'HASH' ? : |
|
29
|
0 |
0 |
unless (defined $key) |
|
32
|
0 |
0 |
unless $key =~ /^[A-Za-z]\w+\z/ |
|
33
|
0 |
0 |
unless (exists $fields->{$key}) |
|
37
|
0 |
0 |
if (my $sub = $self->can("onconfigure_$key")) { } |
|
67
|
1 |
1 |
if (ref $argSpec) { } |
|
70
|
1 |
0 |
$argSpec =~ s/^-// ? : |
|
76
|
2 |
0 |
if (my $sub = $myPack->can("declare_$pragma")) { } |
|
88
|
1 |
0 |
if (@fields == 1 and ($fields[0] // '') eq 1) |
|
101
|
1 |
0 |
if (*{$my_sym;}{'CODE'}) |
|
102
|
1 |
0 |
if $or_ignore |
|
122
|
0 |
11 |
ref $spec ? : |
|
125
|
0 |
11 |
if ($has_getter) |
|
135
|
1 |
3 |
unless (*{$sym;}{'HASH'}) |
|
149
|
7 |
0 |
defined $name ? : |