| line |
true |
false |
branch |
|
11
|
2 |
0 |
if ($] > 5.009004) { } |
|
60
|
7 |
5 |
unless ($SL_code) |
|
64
|
3 |
4 |
unless exists $Cache{"$1::
|
|
66
|
1 |
6 |
if not $SL_code and $AUTOLOAD =~ /::DESTROY$/ |
|
68
|
3 |
4 |
unless $SL_code |
|
76
|
1 |
8 |
if ($@) |
|
81
|
0 |
8 |
unless defined &$AUTOLOAD |
|
98
|
0 |
3 |
unless defined fileno $fh |
|
101
|
3 |
0 |
if (sysseek $fh, tell $fh, 0) |
|
102
|
0 |
3 |
unless open my $nfh, '<&', $fh |
|
103
|
0 |
3 |
unless close $fh |
|
105
|
0 |
3 |
unless open $fh, '<&', $nfh |
|
106
|
0 |
3 |
unless close $nfh |
|
114
|
8 |
35 |
if ($line =~ / ^\s* # indentation
sub\s+([\w:]+)\s* # 'sub' and sub name
(
(?:\([\\\$\@\%\&\*\;]*\))? # optional prototype sigils
(?:$SelfLoader::AttrList)? # optional attribute list
)/x) { } |
|
|
1 |
34 |
elsif ($line =~ /^package\s+([\w:]+)/) { } |
|
124
|
8 |
0 |
if (index($1, '::') == -1) { } |
|
129
|
0 |
0 |
if (defined &{"$1::AUTOLOAD";}) { } |
|
130
|
0 |
0 |
unless \&{"$1::AUTOLOAD";} == \&SelfLoader::AUTOLOAD |
|
145
|
0 |
1 |
if (defined &{"$1::AUTOLOAD";}) { } |
|
146
|
0 |
0 |
unless \&{"$1::AUTOLOAD";} == \&SelfLoader::AUTOLOAD |
|
156
|
2 |
1 |
if (defined $line and $line =~ /^__END__/) |
|
157
|
1 |
1 |
unless ($line =~ /^__END__\s*DATA/) |
|
158
|
0 |
1 |
if ($endlines) |
|
168
|
3 |
0 |
if @stubs |
|
174
|
4 |
8 |
unless $fullname |
|
176
|
0 |
8 |
if exists $Cache{$fullname} |
|
183
|
8 |
0 |
defined $protoype ? : |