| line |
true |
false |
branch |
|
45
|
1 |
0 |
unless (defined $target_class or $arg =~ /^-/) |
|
51
|
0 |
6 |
if ($arg =~ /^-?-force$/) { } |
|
|
1 |
5 |
elsif ($arg =~ /^-?-target[-_]class$/) { } |
|
|
1 |
4 |
elsif ($arg =~ /^:(.+)/) { } |
|
|
2 |
2 |
elsif (ref $arg eq 'HASH') { } |
|
62
|
0 |
1 |
unless my $methods = $class->export_tag($1) |
|
83
|
0 |
5 |
unless my $code = $class->can($method) |
|
88
|
0 |
5 |
if ($target_class->can($import_as) and not $force) |
|
96
|
5 |
0 |
if (my $hooks = $class->pre_import_hooks($method)) |
|
109
|
0 |
0 |
if ($error) |
|
118
|
0 |
5 |
if $Debug |
|
127
|
0 |
4 |
if (index($tag, ':') == 0) |
|
132
|
3 |
1 |
if (@_ and not $class->_export_tag_value($tag)) |
|
137
|
0 |
3 |
if (@_ and @_ > 1 || (ref $_[0] || '') ne 'ARRAY') |
|
145
|
0 |
4 |
unless $ret |
|
147
|
0 |
4 |
wantarray ? : |
|
153
|
0 |
2 |
unless @_ |
|
173
|
0 |
5 |
if (@_ and not $class->_pre_import_hook_value($method)) |
|
178
|
0 |
0 |
if (@_ and @_ > 1 || ref $_[0] && !((ref $_[0] || '') =~ /\A(?:ARRAY|CODE)\z/)) |
|
185
|
0 |
5 |
if (@_) |
|
187
|
0 |
0 |
unless (ref $_[0] eq 'ARRAY') |
|
195
|
0 |
5 |
wantarray ? : |