| line | % | coverage | branch |
|---|
| 47 | 50 | T | F | defined $_[0] && !ref($_[0]) && $_[0] =~ /^[^\W\d]\w*(?:::\w+)*\z/s ? : |
| 50 | 50 | T | F | defined _CLASS($_[0]) && eval "require $_[0];" && !$@ && $_[0]->isa($_[1]) && $_[0] ne $_[1] ? : |
| 97 | 0 | T | F | $File::HomeDir::IMPLEMENTED_BY->can('my_desktop') ? : |
| 103 | 0 | T | F | $File::HomeDir::IMPLEMENTED_BY->can('my_documents') ? : |
| 109 | 0 | T | F | $File::HomeDir::IMPLEMENTED_BY->can('my_music') ? : |
| 115 | 0 | T | F | $File::HomeDir::IMPLEMENTED_BY->can('my_pictures') ? : |
| 121 | 0 | T | F | $File::HomeDir::IMPLEMENTED_BY->can('my_videos') ? : |
| 127 | 0 | T | F | $File::HomeDir::IMPLEMENTED_BY->can('my_data') ? : |
| 134 | 0 | T | F | ref $_[-1] eq 'HASH' ? : |
| 135 | 0 | T | F | unless my $dist = pop() |
| 140 | 0 | T | F | unless defined $data |
| 143 | 0 | T | F | $data eq home() ? : |
| 148 | 0 | T | F | if -d $var |
| 151 | 0 | T | F | unless $$params{'create'} |
| 160 | 0 | T | F | ref $_[-1] eq 'HASH' ? : |
| 161 | 0 | T | F | unless my $dist = pop() |
| 164 | 0 | T | F | $File::HomeDir::IMPLEMENTED_BY->can('my_config') ? : |
| 170 | 0 | T | F | unless defined $config |
| 173 | 0 | T | F | $config eq home() ? : |
| 178 | 0 | T | F | if -d $etc |
| 181 | 0 | T | F | unless $$params{'create'} |
| 196 | 0 | T | F | $File::HomeDir::IMPLEMENTED_BY->can('users_home') ? : |
| 202 | 0 | T | F | $File::HomeDir::IMPLEMENTED_BY->can('users_desktop') ? : |
| 208 | 0 | T | F | $File::HomeDir::IMPLEMENTED_BY->can('users_documents') ? : |
| 214 | 0 | T | F | $File::HomeDir::IMPLEMENTED_BY->can('users_music') ? : |
| 220 | 0 | T | F | $File::HomeDir::IMPLEMENTED_BY->can('users_pictures') ? : |
| 226 | 0 | T | F | $File::HomeDir::IMPLEMENTED_BY->can('users_videos') ? : |
| 232 | 0 | T | F | $File::HomeDir::IMPLEMENTED_BY->can('users_data') ? : |
| 247 | 0 | T | F | if ($_[0] and $_[0] eq 'File::HomeDir') |
| 252 | 0 | T | F | unless @_ |
| 256 | 0 | T | F | unless (defined $name) |
| 259 | 0 | T | F | unless (length $name) |
| 265 | 0 | T | F | if ($name eq '.') |
| 295 | 0 | T | F | unless (defined $_[1]) |
| 300 | 0 | T | F | unless (length $_[1]) |