| line |
true |
false |
branch |
|
92
|
4 |
0 |
defined $lock ? :
|
|
107
|
2 |
4 |
if ($self->use_subdir) { }
|
|
110
|
3 |
1 |
unless -d $preferred
|
|
113
|
6 |
0 |
if ($self->lock) { }
|
|
116
|
0 |
6 |
unless wantarray
|
|
117
|
6 |
0 |
if (my $lock = $self->try_lock($preferred))
|
|
133
|
2 |
2 |
if ($self->lock) { }
|
|
134
|
2 |
0 |
if (my $lock = $self->try_lock($dir))
|
|
150
|
0 |
8 |
unless $self->lock
|
|
158
|
1 |
5 |
unless -d $dir
|
|
167
|
0 |
16 |
if -d $dir and -w $dir
|
|
171
|
16 |
0 |
if (-d $t and -w $t)
|
|
173
|
16 |
0 |
if -d $dir and -w $dir or not -e $dir
|
|
183
|
0 |
0 |
if ($self->can('logger') and my $logger = $self->logger) { }
|
|
186
|
0 |
0 |
unless $self->verbose
|