lib/Device/ScanShare.pm | |||
---|---|---|---|
Criterion | Covered | Total | % |
condition | 17 | 40 | 42.5 |
line | l | !l | condition |
---|---|---|---|
64 | 0 | 0 | warn "cant resolve $arg to rel unixpath" and return |
113 | 0 | 0 | warn "Cant match $basepath into $arg" and return |
180 | 0 | 1 | warn "path $$argv{'path'} is not on disk" and return 0 |
184 | 0 | 0 | warn "base $$argv{'base'} is not on disk" and return 0 |
188 | 0 | 0 | warn "can't resolve [$abs] to within [$base]?" and return 0 |
239 | 0 | 0 | warn 'Cannot create, already on disk: ' . $self->userdirs_abs_path and return 0 |
453 | 0 | 0 | warn "Cannot open file for reading: '${abs}', $!" and return |
line | !l | l&&!r | l&&r | condition |
---|---|---|---|---|
216 | 3 | 0 | 1 | $self->exists_label($$argv{'label'}) and warn "Cannot add label:$$argv{'label'} path:$$argv{'path'} host: $$argv{'host'}, label is being used." |
line | l | !l | condition |
---|---|---|---|
18 | 1 | 0 | $self ||= {} |
328 | 5 | 1 | $count ||= 0 |
345 | 5 | 5 | $$self{'id'} ||= 0 |
353 | 0 | 10 | $$hash{'end'} ||= 0 |
line | l | !l&&r | !l&&!r | condition |
---|---|---|---|---|
110 | 0 | 5 | 0 | _is_unixpath($arg) or $arg = _to_abs_unixpath($basepath, $arg) |
158 | 20 | 3 | 0 | $$h{'abs_unixpath'} ||= $self->to_abs_unixpath($$h{'path'}) |
159 | 20 | 3 | 0 | $$h{'rel_unixpath'} ||= $self->to_rel_unixpath($$h{'path'}) |
170 | 0 | 5 | 0 | $$argv{'host'} ||= $$self{'default_host'} |
352 | 7 | 3 | 0 | $$hash{'host'} ||= $$self{'default_host'} |