| line |
true |
false |
branch |
|
46
|
100 |
4 |
ref $_[-1] eq 'HASH' ? : |
|
50
|
1 |
103 |
unless defined $path and length $path |
|
55
|
2 |
101 |
if ('File::Spec'->file_name_is_absolute($path)) { } |
|
|
30 |
71 |
elsif ($root = $config->{'root'}) { } |
|
69
|
7 |
96 |
if $dir eq '.' |
|
74
|
2 |
101 |
if @fields and not length $fields[0] |
|
76
|
30 |
73 |
$root ? : |
|
92
|
0 |
103 |
defined $config->{'stat'} ? : |
|
95
|
94 |
9 |
if ($self->{'stat'}) |
|
96
|
1 |
93 |
unless @stat = stat $abs |
|
101
|
93 |
0 |
unless ($config->{'noid'}) |
|
102
|
93 |
0 |
unless getpwuid $self->{'uid'} |
|
103
|
0 |
93 |
unless getgrgid $self->{'gid'} |
|
120
|
1 |
1 |
if ref $path eq ref $self |
|
121
|
0 |
2 |
if $path =~ m[^/] |
|
122
|
0 |
2 |
unless $self->{'home'} |