| line |
true |
false |
branch |
|
29
|
6 |
27 |
if (my $clan = delete $args{'clan'}) |
|
30
|
0 |
6 |
if $args{'frame_filter'} |
|
42
|
0 |
33 |
unless ref $ignore_class |
|
72
|
22 |
11 |
unless ($want_full_stack) |
|
76
|
19 |
3 |
unless $outside_caller eq "main" |
|
83
|
22 |
11 |
if @frames and not $want_full_stack |
|
86
|
33 |
0 |
if (my $first_frame = shift @frames) |
|
119
|
32 |
37 |
if $is_first |
|
138
|
2 |
3 |
unless keys %$exports |
|
141
|
1 |
4 |
if (my $prefix = $options->{'prefix'}) |
|
144
|
1 |
4 |
if (my $suffix = $options->{'suffix'}) |
|
160
|
3 |
16 |
if (my $carp_not = *{"${calling_pkg}::CARP_NOT";}{"ARRAY"}) |
|
170
|
1 |
4 |
if ($options->{'reexport'}) |
|
173
|
0 |
1 |
if *{"${calling_pkg}::import";}{"CODE"} |
|
183
|
2 |
3 |
if (my $args = $options->{'constructor_args'}) |
|
184
|
0 |
2 |
unless ref $args eq "HASH" |
|
203
|
3 |
6 |
if (my $ref = ref $arg) { } |
|
|
1 |
5 |
elsif ($arg eq '-reexport') { } |
|
|
2 |
3 |
elsif ($arg =~ /^[:-](\w+)/) { } |
|
|
2 |
1 |
elsif ($arg =~ /^(croak|carp|confess|cluck)$/) { } |
|
|
1 |
0 |
elsif ($arg =~ /^\^/ or $arg =~ /[|(]/) { } |
|
204
|
0 |
3 |
unless $ref eq "HASH" |
|
206
|
3 |
2 |
if ($k =~ /^-(prefix|suffix|constructor_args|reexport)$/) { } |
|
|
2 |
0 |
elsif ($k eq '-as') { } |
|
210
|
0 |
2 |
unless $last_export |
|
227
|
0 |
2 |
unless my $group = $export_groups{$1} |