| line |
true |
false |
branch |
|
13
|
0 |
0 |
$_[0] ? : |
|
22
|
0 |
1 |
if ($fixpackage ne 'main') |
|
29
|
1 |
0 |
unless ($SKIP_CONFIG) |
|
35
|
0 |
1 |
if ($autouse{$caller}) |
|
40
|
0 |
1 |
if ($$state{'var'}) |
|
44
|
0 |
0 |
$sym eq '%' ? : |
|
48
|
0 |
1 |
if ($module eq $caller) |
|
51
|
1 |
0 |
if ($$state{'sub'}) |
|
58
|
1 |
0 |
if ($] >= 5.016) |
|
69
|
0 |
5 |
unless opendir my $f, $dd |
|
72
|
26 |
5 |
if $$stat[1] != $inode |
|
73
|
0 |
5 |
if $$stat[0] != $dev |
|
74
|
0 |
5 |
if $g eq '.' |
|
75
|
0 |
5 |
if $g eq '..' |
|
76
|
4 |
1 |
if $dd ne '/' |
|
85
|
0 |
6 |
unless -d $dd |
|
86
|
0 |
6 |
unless $limit |
|
89
|
1 |
5 |
if $st[0] == $rt[0] and $st[1] == $rt[1] |
|
98
|
0 |
0 |
if $_[1] |
|
107
|
1 |
0 |
if ($ourabs) |
|
108
|
0 |
1 |
if (-f "$ourabs/handy.pl") |
|
109
|
0 |
0 |
if ($ourabs =~ s[/lib\z][]) |
|
117
|
0 |
1 |
if (@_) |
|
121
|
0 |
0 |
unless $_ |
|
127
|
0 |
2 |
if (m[(/home/sites/[-\.\w]+|/home/\w+)]) |
|
129
|
0 |
0 |
if (-f "$candidate/config/site.pl") |
|
135
|
1 |
0 |
unless ($workspace) |
|
144
|
0 |
0 |
if UNIVERSAL::isa($location, 'Real::Handy') |
|
145
|
0 |
0 |
unless -d $location |
|
151
|
0 |
0 |
if (ref $INC[0]) { } |
|
152
|
0 |
0 |
if -d $l |
|
155
|
0 |
0 |
if -d $l |
|
158
|
0 |
0 |
if -f $c and -s $c |
|
168
|
1 |
0 |
unless exists &{$caller . '::CLASS';} |
|
174
|
0 |
7 |
if $s |
|
192
|
0 |
1 |
if (not $INC{$pm} or $INC{$pm} eq 'Stub') |
|
195
|
0 |
0 |
if $AUTOLOAD =~ /\bDESTROY\z/ |
|
200
|
0 |
0 |
if caller() eq $module |
|
201
|
0 |
0 |
if ($INC{$pm} || '') eq 'Stub' |
|
203
|
0 |
0 |
if $@ |
|
205
|
0 |
0 |
if exists &$autoload |
|
206
|
0 |
0 |
if (UNIVERSAL::isa($_[0], $module)) |
|
210
|
0 |
0 |
if $sub |
|
212
|
0 |
0 |
if ($sub) |
|
225
|
0 |
1 |
if ($_[0] =~ /\n/) |
|
232
|
1 |
0 |
unless ($state) |
|
237
|
1 |
0 |
if ($param) |
|
241
|
0 |
1 |
if (@var_import) |
|
244
|
1 |
0 |
if (@sub_import) |
|
255
|
0 |
0 |
if (ref $_[0]) |
|
258
|
0 |
0 |
if caller eq 'Real::Handy' |
|
261
|
0 |
0 |
if $x |
|
266
|
0 |
0 |
unless /^\w+\z/ |