Branch Coverage

File:lib/App/Dest.pm
Coverage:66.2%

line%coveragebranch
24100TFif -d '.dest'
2550TFunless mkdir '.dest'
2650TFunless open my $watch, '>', '.dest/watch'
28100TFif (-f 'dest.watch')
2950TFunless open my $watches, '<', 'dest.watch'
4850TF@errors ? :
6050TFunless -d '.dest'
61100TFunless $dir
62100TFunless -d $dir
63100TFif grep {$dir eq $_;} $self->_watches
6550TFunless open my $watch, '>>', '.dest/watch'
7750TFunless -d '.dest'
78100TFunless $dir
79100TFunless grep {$dir eq $_;} $self->_watches
8250TFunless open my $watch, '>', '.dest/watch'
91100TFunless $path
9350TFif defined $ext
9950TFunless open my $file, '>', "$path/$_$ext"
10350TFif $@
112100TFif ($path) { }
123100TFunless m[/deploy(?:\.[^\/]+)?]u
13750TFunless -d '.dest'
139100TFif (-f 'dest.watch')
141100TFif $diff
15050TFif $a and $a =~ m[/dest.wrap$]u or $b and $b =~ m[/dest.wrap$]u
151100TFunless $printed_path++
15350TFif (not $b) { }
100TFelsif (not $a) { }
16150TFunless $seen_actions{$action}++
16850TFif ($@ and $@ =~ /Not a directory/u) { }
172100TFunless $printed_path
182100TFunless (defined $path)
19250TFif $a =~ m[/dest.wrap$]u or $b =~ m[/dest.wrap$]u
20350TFunless -d '.dest'
205100TFif (-f 'dest.watch')
20750TFunless open my $watch, '<', 'dest.watch'
210100TFunless (grep {$_ eq $candidate;} @watches)
22050TFif (@paths)
22950TFif $a and $a =~ m[/dest.wrap$]u or $b and $b =~ m[/dest.wrap$]u
23150TFif (not $b) { }
50TFelsif (not $a) { }
2460TFif ($type eq 'deploy') { }
26150TFunless -d '.dest'
267100TFunless $name
26850TFunless -d '.dest'
276100TFunless $name
27750TFunless -d '.dest'
29650TFunless -d '.dest'
30650TFunless -d '.dest'
32150TFunless open my $watch, '<', '.dest/watch'
329100TFif ($path) { }
33350TFunless ($file)
33750TFunless $self->_execute($file, $redeploy)
344100TFunless m[/$type]u
34550TFunless $self->_execute($_)
35550TFif $seen_files{$file}++
36350TFif ($type eq 'deploy' and not $run_quiet and -f '.dest/' . $file or $type eq 'revert' and not -f $file)
3670TFif ($is_dependency) { }
37550TFunless open my $content, '<', $file
37950TFunless $1
38350TFunless $files[0]
384100TFif $type eq 'deploy' and not -f '.dest/' . $files[0] or $type eq 'revert' and -f '.dest/' . $files[0]
391100TFif $nodes[0] eq '.dest'
39450TFif (-f "$path/dest.wrap")
401100TFif ($type eq 'verify') { }
40550TF$wrap ? :
50TFunless run([grep({defined $_;} $wrap ? $wrap : undef, $file)], \(undef), \$out, \$err)
4100TF$err ? :
50TFif $run_quiet
41250TFif $err
413100TF$out ? :
41950TF$wrap ? :
42150TFif ($@)
430100TFif ($type eq 'deploy')