| line |
true |
false |
branch |
|
36
|
21 |
58 |
unless @opts |
|
40
|
42 |
195 |
if (my $sub = $pack->can("define_$exp")) { } |
|
|
33 |
162 |
elsif ($exp =~ /^-(\w+)$/) { } |
|
|
162 |
0 |
elsif ($exp =~ /^\*(\w+)$/) { } |
|
|
0 |
0 |
elsif ($sub = $pack->can($exp)) { } |
|
43
|
0 |
33 |
unless $sub = $pack->can("declare_$1") |
|
47
|
0 |
162 |
unless $sub = $pack->can("symbol_$1") |
|
50
|
0 |
162 |
unless (defined $val) |
|
89
|
0 |
0 |
unless (*{$my;}{'CODE'}) |
|
116
|
3 |
2 |
if defined $str |
|
124
|
3 |
3 |
if defined $str and $str ne '' |
|
132
|
0 |
0 |
unless defined $list and ref $list eq 'ARRAY' |
|
138
|
11 |
0 |
if defined $_ |
|
159
|
3 |
0 |
if (defined $value) { } |
|
171
|
0 |
3 |
unless @_ |
|
179
|
4 |
1 |
unless $multi{$key}++ |
|
205
|
0 |
0 |
$is_uts ? : |
|
241
|
0 |
0 |
unless ref $code |