| line |
true |
false |
branch |
|
27
|
8 |
60 |
ref $_ ? :
|
|
29
|
2 |
27 |
if $package eq '::'
|
|
30
|
6 |
21 |
if ($package =~ /^::/)
|
|
57
|
1 |
1 |
if @_
|
|
64
|
0 |
1 |
ref $_[0] eq 'ARRAY' ? :
|
|
70
|
0 |
0 |
@_ > 1 ? :
|
|
76
|
4 |
0 |
@_ > 1 ? :
|
|
78
|
3 |
1 |
if _is_package_loaded $package
|
|
88
|
0 |
1 |
unless (/^Can't locate \Q$pm\E in \@INC/)
|
|
92
|
0 |
1 |
if try sub {
local $SIG{'__DIE__'};
require $pm;
return 1;
}
, catch(sub {
unless (/^Can't locate \Q$pm\E in \@INC/) {
confess("Couldn't load package ($package) because: $_");
} ;
return;
}
)
|
|
99
|
0 |
41 |
if (@_ == 1) { }
|
|
|
9 |
32 |
elsif (@_ == 2) { }
|
|
|
5 |
27 |
elsif (@_ == 3) { }
|
|
101
|
4 |
5 |
if ($_[1] and $_[1] =~ /::$/) { }
|
|
110
|
0 |
41 |
unless defined $code
|
|
112
|
25 |
16 |
if (ref $code eq 'CODE') { }
|
|
113
|
0 |
25 |
if defined $from
|
|
116
|
4 |
12 |
if (defined $from) { }
|
|
|
9 |
3 |
elsif ($code =~ /::/) { }
|
|
117
|
0 |
4 |
if $code =~ /::/
|
|
125
|
17 |
24 |
if (defined $as and $as =~ /::/) { }
|
|
|
24 |
0 |
elsif (defined $into) { }
|
|
|
0 |
0 |
elsif (defined $_into) { }
|
|
126
|
0 |
17 |
if defined $into
|
|
130
|
6 |
18 |
if ($into =~ s/::$//)
|
|
136
|
34 |
7 |
if (defined $as) { }
|
|
|
5 |
2 |
elsif (not ref $code) { }
|
|
140
|
0 |
39 |
unless defined $into
|
|
143
|
16 |
23 |
if defined $from
|
|
150
|
0 |
26 |
unless defined $target and length $target
|
|
156
|
0 |
26 |
unless my(@split) = $self->split(@_)
|
|
157
|
0 |
26 |
if 1 == @split
|
|
179
|
0 |
7 |
if ($_ eq '-') { }
|
|
|
0 |
7 |
elsif ($_ eq '+') { }
|
|
|
0 |
7 |
elsif (s/^\+//) { }
|
|
|
0 |
7 |
elsif (s/^\-//) { }
|
|
|
7 |
0 |
elsif ($default_export) { }
|
|
189
|
7 |
0 |
if (@_)
|
|
191
|
7 |
0 |
if (ref $value eq 'CODE') { }
|
|
|
0 |
0 |
elsif ($value =~ s/^<//) { }
|
|
208
|
10 |
0 |
if (not @arguments) { }
|
|
216
|
0 |
10 |
unless my $install = $index{$name}
|