| line |
true |
false |
branch |
|
48
|
7 |
0 |
defined $_[0] && !ref($_[0]) && $_[0] =~ /^[^\W\d]\w*(?:::\w+)*\z/s ? : |
|
53
|
7 |
0 |
defined &_CLASS($_[0]) && eval "require $_[0]; 1" && $_[0]->isa($_[1]) && $_[0] ne $_[1] ? : |
|
116
|
3 |
0 |
$File::HomeDir::IMPLEMENTED_BY->can('my_desktop') ? : |
|
123
|
3 |
0 |
$File::HomeDir::IMPLEMENTED_BY->can('my_documents') ? : |
|
130
|
3 |
0 |
$File::HomeDir::IMPLEMENTED_BY->can('my_music') ? : |
|
137
|
3 |
0 |
$File::HomeDir::IMPLEMENTED_BY->can('my_pictures') ? : |
|
144
|
3 |
0 |
$File::HomeDir::IMPLEMENTED_BY->can('my_videos') ? : |
|
151
|
3 |
0 |
$File::HomeDir::IMPLEMENTED_BY->can('my_data') ? : |
|
158
|
0 |
0 |
ref $_[-1] eq 'HASH' ? : |
|
159
|
0 |
0 |
unless my $dist = pop() |
|
164
|
0 |
0 |
unless defined $data |
|
167
|
0 |
0 |
$data eq &home() ? : |
|
173
|
0 |
0 |
if -d $var |
|
176
|
0 |
0 |
unless $params->{'create'} |
|
186
|
0 |
0 |
ref $_[-1] eq 'HASH' ? : |
|
187
|
0 |
0 |
unless my $dist = pop() |
|
190
|
0 |
0 |
$File::HomeDir::IMPLEMENTED_BY->can('my_config') ? : |
|
197
|
0 |
0 |
unless defined $config |
|
200
|
0 |
0 |
$config eq &home() ? : |
|
206
|
0 |
0 |
if -d $etc |
|
209
|
0 |
0 |
unless $params->{'create'} |
|
222
|
0 |
0 |
$File::HomeDir::IMPLEMENTED_BY->can('users_home') ? : |
|
229
|
0 |
0 |
$File::HomeDir::IMPLEMENTED_BY->can('users_desktop') ? : |
|
236
|
0 |
0 |
$File::HomeDir::IMPLEMENTED_BY->can('users_documents') ? : |
|
243
|
0 |
0 |
$File::HomeDir::IMPLEMENTED_BY->can('users_music') ? : |
|
250
|
0 |
0 |
$File::HomeDir::IMPLEMENTED_BY->can('users_pictures') ? : |
|
257
|
0 |
0 |
$File::HomeDir::IMPLEMENTED_BY->can('users_videos') ? : |
|
264
|
0 |
0 |
$File::HomeDir::IMPLEMENTED_BY->can('users_data') ? : |
|
276
|
0 |
3 |
if ($_[0] and $_[0] eq 'File::HomeDir') |
|
282
|
1 |
2 |
unless @_ |
|
286
|
1 |
1 |
unless (defined $name) |
|
290
|
0 |
1 |
unless (length $name) |
|
297
|
0 |
1 |
if ($name eq '.') |