| line |
true |
false |
branch |
|
43
|
0 |
1 |
if ($@) |
|
63
|
1 |
39 |
if length $v eq 0 |
|
64
|
9 |
30 |
unless is_vstring $v |
|
77
|
24 |
4 |
if $caller ne 'Exporter::VA' |
|
85
|
4 |
2 |
unless defined $list |
|
87
|
1 |
2 |
if $version eq $_ |
|
99
|
7 |
5 |
unless defined $client |
|
100
|
6 |
6 |
if (defined $version) { } |
|
103
|
0 |
6 |
if exists $$export_def{'..client_default_version'}{$client} |
|
106
|
0 |
6 |
if $version gt $max_version |
|
113
|
5 |
1 |
if exists $$export_def{'..client_default_version'}{$client} |
|
125
|
8 |
5 |
unless (exists $$self{'..client_default_version'}{$client}) |
|
126
|
0 |
8 |
unless exists $$self{'.default_VERSION'} |
|
129
|
0 |
8 |
if $$self{'.verbose_import'} |
|
157
|
12 |
5 |
unless $ver_at_index ge $desired_version |
|
159
|
0 |
5 |
if $ver_at_index eq $desired_version |
|
161
|
0 |
5 |
if $index == 0 |
|
177
|
1 |
12 |
if not @_ and defined $$export_def{':DEFAULT'} |
|
181
|
2 |
11 |
if $$export_def{'.verbose_import'} |
|
188
|
0 |
18 |
unless ref $items eq 'ARRAY' |
|
191
|
11 |
29 |
if $verbose |
|
192
|
0 |
40 |
if (ref $item) { } |
|
193
|
0 |
0 |
if $verbose |
|
197
|
35 |
5 |
if ($item =~ /^[\$\@\%\*\&]?\w+$/ or $item =~ /^-/ or $item =~ s/^(<\w+)>$/$1/) { } |
|
|
5 |
0 |
elsif ($item =~ /^:\w+$/) { } |
|
200
|
0 |
0 |
if $verbose |
|
213
|
2 |
10 |
if $name eq '' |
|
214
|
11 |
1 |
$name =~ s/^([\$\@\%\&\<\*])// ? : |
|
216
|
0 |
12 |
unless defined $thing |
|
219
|
0 |
12 |
unless defined $globref |
|
229
|
2 |
4 |
if $$self{'.verbose_import'} |
|
238
|
0 |
14 |
unless ref $hardlink eq 'CODE' |
|
245
|
39 |
6 |
unless defined $value |
|
246
|
8 |
37 |
if (not defined $value and $item =~ /^&(.+)$/) |
|
250
|
8 |
0 |
if (defined $value) |
|
252
|
5 |
3 |
if $$self{'.verbose_import'} |
|
255
|
0 |
45 |
unless defined $value |
|
258
|
12 |
33 |
unless $type |
|
259
|
5 |
28 |
if $type eq 'ARRAY-seen' |
|
260
|
1 |
27 |
if ($type eq 'ARRAY') |
|
264
|
13 |
14 |
if $type eq 'CODE' |
|
272
|
11 |
24 |
$item =~ s/^([\$\@\%\*\&\-\<])// ? : |
|
273
|
0 |
35 |
if substr($item, 0, 1) eq '_' |
|
276
|
31 |
4 |
if (defined $X and $sigil ne '-') |
|
280
|
9 |
22 |
if $$self{'.verbose_import'} |
|
297
|
0 |
30 |
if ($@) |
|
306
|
0 |
5 |
if substr($item, 1, 1) eq '_' |
|
311
|
0 |
6 |
unless defined $list |
|
313
|
6 |
0 |
if ($type eq 'ARRAY') |
|
315
|
0 |
6 |
if @$list == 0 |
|
316
|
1 |
5 |
if (is_vstring($$list[0])) { } |
|
325
|
1 |
5 |
if ($type eq 'ARRAY-seen') { } |
|
|
5 |
0 |
elsif ($type eq 'ARRAY-tags') { } |
|
327
|
1 |
0 |
if $$self{'.verbose_import'} |
|
369
|
33 |
84 |
unless exists $$self{$key} |
|
372
|
2 |
11 |
unless exists $$self{'.default_VERSION'} |
|
382
|
11 |
2 |
unless defined $plainspec |
|
384
|
0 |
11 |
unless $value =~ /^([\$\@\&\%:<])?(\w+)>?$/ |
|
386
|
6 |
5 |
unless defined $sigil |
|
387
|
2 |
9 |
if ($sigil eq ':') |
|
393
|
3 |
8 |
if exists $$self{$value} |
|
394
|
3 |
5 |
if $sigil eq '&' and exists $$self{$body} |
|
395
|
0 |
5 |
if $sigil eq '<' and exists $$self{"$body>"} |
|
406
|
0 |
15 |
unless defined $v |
|
431
|
0 |
161 |
if ($item =~ /^\.&?\p{IsUpper}/) |
|
435
|
50 |
111 |
if $item =~ /^\.\./ |
|
438
|
0 |
111 |
if (not defined $checker) { } |
|
|
0 |
111 |
elsif (ref $checker) { } |
|
465
|
161 |
126 |
if ($firstchar eq '.') { } |
|
|
30 |
96 |
elsif ($firstchar eq ':') { } |
|
|
29 |
67 |
elsif ($firstchar eq '-') { } |
|
476
|
0 |
13 |
if (defined $existing_home and $existing_home ne $home) |
|
484
|
3 |
10 |
if (exists $$self{'.allowed_VERSIONS'}) |
|
487
|
13 |
0 |
if $$self{'.warnings'} |
|
505
|
2 |
7 |
if (ref $val eq 'HASH') |
|
507
|
1 |
1 |
if $index > 0 and $$params[$index - 1] eq '-def' |
|
555
|
4 |
0 |
unless (defined $f) |
|
560
|
4 |
0 |
if ($@) |
|
576
|
1 |
2 |
unless exists $$client_export_def{$func} or exists $$client_export_def{'&' . $func} |