| blib/lib/App/MBUtiny/Util.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| condition | 1 | 55 | 1.8 |
| line | l | !l | condition |
|---|---|---|---|
| 164 | 0 | 0 | carp("Can't open '${f}': $!") and return $sum |
| 178 | 0 | 0 | carp("Can't open '${f}': $!") and return $sum |
| 216 | 0 | 0 | carp("Source directory not exists: $object") and return |
| 219 | 0 | 0 | carp("Target directory not defined: $target") and return |
| 263 | 0 | 0 | carp(sprintf(q[Can't create directoy "%s": ], $end, $!)) and return |
| 270 | 0 | 0 | carp(sprintf('Copy failed "%s" -> "%s": %s', $f, $end, $!)) and return |
| line | !l | l&&!r | l&&r | condition |
|---|---|---|---|---|
| 216 | 0 | 0 | 0 | -e $object and -d $object |
| 0 | 0 | 0 | $object and (-e $object and -d $object) | |
| 222 | 0 | 0 | 0 | $exclude and ref $exclude ne 'ARRAY' |
| 235 | 0 | 0 | 0 | -e $td and -d $td |
| 252 | 0 | 0 | 0 | -e $f and -f $f |
| 0 | 0 | 0 | -e $f and -f $f and grep {$_ eq $f;} @exf | |
| 0 | 0 | 0 | @exd and grep {_td($_, $f);} @exd | |
| 285 | 5 | 0 | 0 | $n and ref($n) =~ /ARRAY|HASH/ |
| 304 | 0 | 0 | 0 | defined $p and length $p |
| line | l | !l | condition |
|---|---|---|---|
| 212 | 0 | 0 | shift() || '' |
| 213 | 0 | 0 | shift() || '' |
| 290 | 0 | 0 | shift() || (return ()) |
| 292 | 0 | 0 | $uri->userinfo // '' |
| 297 | 0 | 0 | $user // '' |
| 0 | 0 | $pass // '' | |
| 300 | 0 | 0 | shift() || (return '') |
| 301 | 0 | 0 | shift() || 0 |