| line | % | coverage | branch |
| 24 | 100 | T | F | if -d '.dest' |
| 25 | 50 | T | F | unless mkdir '.dest' |
| 26 | 50 | T | F | unless open my $watch, '>', '.dest/watch' |
| 28 | 100 | T | F | if (-f 'dest.watch') |
| 29 | 50 | T | F | unless open my $watches, '<', 'dest.watch' |
| 48 | 50 | T | F | @errors ? : |
| 60 | 50 | T | F | unless -d '.dest' |
| 61 | 100 | T | F | unless $dir |
| 62 | 100 | T | F | unless -d $dir |
| 63 | 100 | T | F | if grep {$dir eq $_;} $self->_watches |
| 65 | 50 | T | F | unless open my $watch, '>>', '.dest/watch' |
| 77 | 50 | T | F | unless -d '.dest' |
| 78 | 100 | T | F | unless $dir |
| 79 | 100 | T | F | unless grep {$dir eq $_;} $self->_watches |
| 82 | 50 | T | F | unless open my $watch, '>', '.dest/watch' |
| 91 | 100 | T | F | unless $path |
| 93 | 50 | T | F | if defined $ext |
| 99 | 50 | T | F | unless open my $file, '>', "$path/$_$ext" |
| 103 | 50 | T | F | if $@ |
| 112 | 100 | T | F | if ($path) { } |
| 123 | 100 | T | F | unless m[/deploy(?:\.[^\/]+)?]u |
| 137 | 50 | T | F | unless -d '.dest' |
| 139 | 100 | T | F | if (-f 'dest.watch') |
| 141 | 100 | T | F | if $diff |
| 150 | 50 | T | F | if $a and $a =~ m[/dest.wrap$]u or $b and $b =~ m[/dest.wrap$]u |
| 151 | 100 | T | F | unless $printed_path++ |
| 153 | 50 | T | F | if (not $b) { } |
| 100 | T | F | elsif (not $a) { } |
| 161 | 50 | T | F | unless $seen_actions{$action}++ |
| 168 | 50 | T | F | if ($@ and $@ =~ /Not a directory/u) { } |
| 172 | 100 | T | F | unless $printed_path |
| 182 | 100 | T | F | unless (defined $path) |
| 192 | 50 | T | F | if $a =~ m[/dest.wrap$]u or $b =~ m[/dest.wrap$]u |
| 203 | 50 | T | F | unless -d '.dest' |
| 205 | 100 | T | F | if (-f 'dest.watch') |
| 207 | 50 | T | F | unless open my $watch, '<', 'dest.watch' |
| 210 | 100 | T | F | unless (grep {$_ eq $candidate;} @watches) |
| 220 | 50 | T | F | if (@paths) |
| 229 | 50 | T | F | if $a and $a =~ m[/dest.wrap$]u or $b and $b =~ m[/dest.wrap$]u |
| 231 | 50 | T | F | if (not $b) { } |
| 50 | T | F | elsif (not $a) { } |
| 246 | 0 | T | F | if ($type eq 'deploy') { } |
| 261 | 50 | T | F | unless -d '.dest' |
| 267 | 100 | T | F | unless $name |
| 268 | 50 | T | F | unless -d '.dest' |
| 276 | 100 | T | F | unless $name |
| 277 | 50 | T | F | unless -d '.dest' |
| 296 | 50 | T | F | unless -d '.dest' |
| 306 | 50 | T | F | unless -d '.dest' |
| 321 | 50 | T | F | unless open my $watch, '<', '.dest/watch' |
| 329 | 100 | T | F | if ($path) { } |
| 333 | 50 | T | F | unless ($file) |
| 337 | 50 | T | F | unless $self->_execute($file, $redeploy) |
| 344 | 100 | T | F | unless m[/$type]u |
| 345 | 50 | T | F | unless $self->_execute($_) |
| 355 | 50 | T | F | if $seen_files{$file}++ |
| 363 | 50 | T | F | if ($type eq 'deploy' and not $run_quiet and -f '.dest/' . $file or $type eq 'revert' and not -f $file) |
| 367 | 0 | T | F | if ($is_dependency) { } |
| 375 | 50 | T | F | unless open my $content, '<', $file |
| 379 | 50 | T | F | unless $1 |
| 383 | 50 | T | F | unless $files[0] |
| 384 | 100 | T | F | if $type eq 'deploy' and not -f '.dest/' . $files[0] or $type eq 'revert' and -f '.dest/' . $files[0] |
| 391 | 100 | T | F | if $nodes[0] eq '.dest' |
| 394 | 50 | T | F | if (-f "$path/dest.wrap") |
| 401 | 100 | T | F | if ($type eq 'verify') { } |
| 405 | 50 | T | F | $wrap ? : |
| 50 | T | F | unless run([grep({defined $_;} $wrap ? $wrap : undef, $file)], \(undef), \$out, \$err) |
| 410 | 0 | T | F | $err ? : |
| 50 | T | F | if $run_quiet |
| 412 | 50 | T | F | if $err |
| 413 | 100 | T | F | $out ? : |
| 419 | 50 | T | F | $wrap ? : |
| 421 | 50 | T | F | if ($@) |
| 430 | 100 | T | F | if ($type eq 'deploy') |