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') |