line |
true |
false |
branch |
12
|
0 |
46 |
if $Device::ScanShare::DEBUG |
14
|
0 |
0 |
if $Device::ScanShare::DEBUG |
20
|
0 |
1 |
unless $$self{'userdirs_abs_path'} |
34
|
0 |
21 |
if defined $arg |
36
|
1 |
20 |
unless (defined $$self{'base_path'}) |
39
|
0 |
1 |
unless $$self{'base_path'} =~ s[/[^/]+txt$][]i |
56
|
0 |
0 |
unless $arg |
61
|
0 |
0 |
if _is_windowspath($arg) |
64
|
0 |
0 |
unless my $rel = _to_rel_unixpath($basepath, $arg) |
74
|
0 |
0 |
unless $arg |
75
|
0 |
0 |
unless $arg =~ /\\/ |
76
|
0 |
0 |
if $arg =~ m[/] |
82
|
0 |
5 |
unless $arg |
84
|
5 |
0 |
if $arg =~ /\\/ |
86
|
0 |
0 |
if $arg =~ m[^/] |
91
|
0 |
10 |
unless $arg |
95
|
10 |
0 |
if (-d "$basepath/$arg") |
99
|
0 |
0 |
unless my $a = Cwd::abs_path($arg) |
100
|
0 |
0 |
if -d $a |
108
|
0 |
5 |
unless $arg |
110
|
0 |
5 |
unless _is_unixpath($arg) or $arg = _to_abs_unixpath($basepath, $arg) |
113
|
0 |
5 |
unless $arg =~ s[^$basepath/][] |
126
|
0 |
1 |
unless $windowspath |
138
|
0 |
1 |
unless exists $self->_data->{$windowspath} |
151
|
0 |
24 |
unless $windowspath |
153
|
1 |
23 |
unless exists $self->_data->{$windowspath} |
168
|
0 |
5 |
unless $$argv{'label'} |
169
|
0 |
5 |
unless $$argv{'path'} |
177
|
5 |
0 |
if ($$argv{'path'} =~ m[^/]) |
180
|
1 |
4 |
unless my $abs = Cwd::abs_path($$argv{'path'}) |
184
|
0 |
4 |
unless my $base = Cwd::abs_path($self->base_path) |
188
|
0 |
4 |
unless $abs =~ s[^$base/][] |
208
|
0 |
4 |
if (exists $self->_data->{$windowspath}) |
216
|
1 |
3 |
if $self->exists_label($$argv{'label'}) and warn "Cannot add label:$$argv{'label'} path:$$argv{'path'} host: $$argv{'host'}, label is being used." |
222
|
0 |
3 |
unless (-d "$b/$unixpath") |
223
|
0 |
0 |
unless File::Path::mkpath("$b/$unixpath") |
239
|
0 |
1 |
if $self->exists |
247
|
0 |
4 |
unless defined $arg |
250
|
1 |
3 |
if $$h{'label'} eq $arg |
272
|
0 |
6 |
unless my $savefile = $self->_get_header |
279
|
0 |
6 |
unless my $l = length $savefile |
287
|
0 |
6 |
unless open SVF, '>', $temp |
295
|
0 |
6 |
unless rename $temp, $abs |
297
|
0 |
6 |
if ($Device::ScanShare::DEBUG) |
298
|
0 |
0 |
unless -f $abs |
333
|
2 |
4 |
-f $_[0]->userdirs_abs_path ? : |
367
|
0 |
0 |
unless $line =~ s/^([^=]+)=// |
406
|
3 |
96 |
unless (defined $$self{'data'}) |
408
|
2 |
1 |
unless ($self->exists) |
418
|
1 |
0 |
unless scalar @lines |
439
|
1 |
5 |
if ($line =~ /^Server\=([\d\.\w]+)$/i) |
443
|
4 |
1 |
if ($line =~ /^\[\w+\]|^NextID=/i) |
444
|
1 |
0 |
unless $line =~ m(^[^\[\]/\\=]+=) |
451
|
0 |
1 |
unless $abs |
453
|
0 |
1 |
unless open FILE, '<', $abs |