line |
true |
false |
branch |
114
|
0 |
1 |
@_ && ref $_[0] eq 'HASH' ? :
|
119
|
1 |
0 |
if (@modules) { }
|
123
|
0 |
3 |
defined $msg ? :
|
126
|
2 |
1 |
unless $thisok
|
153
|
3 |
0 |
@_ && ref $_[0] eq 'HASH' ? :
|
154
|
3 |
0 |
@_ ? :
|
157
|
0 |
3 |
unless eval "require $pc_class"
|
163
|
0 |
3 |
if (defined $rating) { }
|
166
|
0 |
0 |
unless ($ok)
|
168
|
0 |
0 |
@nakies == 1 ? :
|
181
|
2 |
1 |
unless $nopublics and not $verbose
|
201
|
0 |
1 |
@_ ? :
|
209
|
20 |
11 |
if (-d $file)
|
211
|
0 |
20 |
unless opendir DH, $file
|
216
|
30 |
0 |
if $_ ne 'CVS'
|
220
|
11 |
20 |
if (-f $file)
|
221
|
8 |
3 |
unless $file =~ /\.pm$/
|
224
|
3 |
0 |
if @parts and exists $starters{$parts[0]}
|
225
|
3 |
0 |
if @parts and $parts[0] eq 'lib'
|
226
|
3 |
0 |
if @parts
|
230
|
11 |
0 |
if (/^([a-zA-Z0-9_\.\-]+)$/ and $_ eq $1) { }
|
246
|
1 |
0 |
if -e 'blib'
|