| line |
true |
false |
branch |
|
87
|
3 |
4 |
if ($self->has_include) |
|
103
|
2 |
0 |
if ($self->has_symbol('%EXPORT_TAGS')) { } |
|
133
|
5 |
2 |
if ($self->has_constants) { } |
|
|
2 |
0 |
elsif ($self->has_symbol('@EXPORT_OK')) { } |
|
145
|
1 |
6 |
$self->use_var ? : |
|
151
|
0 |
86 |
if $self->pretty |
|
173
|
1 |
88 |
if $reserved->{$import} |
|
175
|
12 |
76 |
if (my($name) = $import =~ /^[\$\@\%](\w.*)$/) { } |
|
|
2 |
74 |
elsif (my($tag) = $import =~ /^[:\-](\w.*)$/) { } |
|
177
|
7 |
5 |
XXX ? : |
|
181
|
0 |
2 |
unless my $imports = $self->tags->{$tag} |
|
186
|
0 |
74 |
unless my $fn = $self->get_symbol("&" . $import) |
|
188
|
0 |
74 |
unless &is_sub_constant($fn) |