| line |
true |
false |
branch |
|
88
|
3 |
4 |
if ($self->has_include) |
|
104
|
2 |
0 |
if ($self->has_symbol('%EXPORT_TAGS')) { } |
|
134
|
5 |
2 |
if ($self->has_constants) { } |
|
|
2 |
0 |
elsif ($self->has_symbol('@EXPORT_OK')) { } |
|
146
|
1 |
6 |
$self->use_var ? : |
|
152
|
0 |
86 |
if $self->pretty |
|
174
|
1 |
88 |
if $reserved->{$import} |
|
176
|
12 |
76 |
if (my($name) = $import =~ /^[\$\@\%](\w.*)$/) { } |
|
|
2 |
74 |
elsif (my($tag) = $import =~ /^[:\-](\w.*)$/) { } |
|
178
|
7 |
5 |
XXX ? : |
|
182
|
0 |
2 |
unless my $imports = $self->tags->{$tag} |
|
187
|
0 |
74 |
unless my $fn = $self->get_symbol('&' . $import) |
|
189
|
0 |
74 |
unless &is_sub_constant($fn) |