Branch Coverage

blib/lib/Module/Husbandry.pm
Criterion Covered Total %
branch 35 332 10.5


line true false branch
46 0 0 ref $_[-1] ? :
48 0 0 if ($$options{'describe'}) { }
60 0 0 if (defined $$options{'_prog_name'})
63 0 0 if $msg =~ /^\W/
67 0 0 unless $$options{'quiet'}
87 0 0 unless (-d $dir or _d_c('mkdir -p ', _rel $dir, $options))
103 0 0 if $dir eq Cwd::cwd()
105 0 0 unless _d_c('chdir ', _rel $dir, $options)
146 3 10 @_ && ref $_[-1] ? :
157 0 6 $^O =~ /Win32/ ? :
0 6 unless $^O =~ /Win32/ ? s[^lib[\\/]+][]i : s[^lib[\\/]+][]
166 6 10 $spec =~ /[^\w:']/ ? :
168 2 8 $$options{'as_dir'} ? :
205 0 0 @_ && ref $_[-1] ? :
212 0 0 if @names == 1
264 0 0 if (-f 'Makefile') { }
0 0 elsif (-f 'Makefile.PL') { }
265 0 0 if (-f 'Makefile.PL')
266 0 0 unless (_d_c('touch Makefile.PL', $options))
268 0 0 unless utime $time, $time, 'Makefile.PL'
270 0 0 if ((stat 'Makefile')[9] >= $time and not _d_c('untouch Makefile', $options))
273 0 0 unless utime $time - 1, $time - 1, 'Makefile'
279 0 0 unless _d_c("make Makefile\n", $options)
282 0 0 unless _d_c("$^X Makefile\n", $options)
285 0 0 unless $$options{'describe'}
303 0 0 @_ && ref $_[-1] ? :
306 0 0 if (-e 'MANIFEST' and not _d_c('cp MANIFEST MANIFEST.old', $options))
307 0 0 unless open MANIFEST, '
314 0 0 if -e 'MANIFEST.old'
316 0 0 unless rename 'MANIFEST', 'MANIFEST.old'
327 0 0 unless ($$options{'describe'})
330 0 0 unless @$manifest
332 0 0 unless open MANIFEST, '>MANIFEST'
334 0 0 unless print MANIFEST map("$_\n", sort(grep((!$seen{$_}++), @$manifest)))
339 0 0 if $$options{'clean_up_MANIFEST'} and not _d_c('rm MANIFEST.old', $options)
345 0 0 @_ && ref $_[-1] ? :
348 0 0 unless (_d_c('echo ', join(' ', map("'${_}'", @_)), ' >> MANIFEST ## and sort it', $options))
370 0 0 @_ && ref $_[-1] ? :
374 0 0 unless (_d_c(q[cat MANIFEST.old | grep -v '], join('|', map("$_", @_)), q[' >> MANIFEST], $options))
410 0 0 @_ > 3 ? :
413 0 0 if _d_c('install ', basename($$from{'Filename'}), " $$to{'Filename'}\n", $options)
419 0 0 unless open F, $$from{'Filename'}
420 0 0 unless open T, ">$$to{'Filename'}"
434 0 0 unless print T $_
439 0 0 if (my $perms = delete $meta{'chmod'})
440 0 0 unless (_d_c("chmod $perms $$to{'Filename'}", $options))
441 0 0 if substr($perms, 0, 1) eq '0'
442 0 0 unless chmod $perms, $$to{'Filename'}
467 0 2 unless (defined $Module::Husbandry::template_dir)
468 0 0 $^O =~ /Win32/ ? :
0 0 $^O =~ /Win32/ ? :
514 0 6 $^O =~ /Win32/ ? :
5 1 $$_{'Filename'} =~ ($^O =~ /Win32/ ? qr/\.p[ml]\z/i : qr/\.p[ml]\z/) ? :
541 0 0 unless -e $skel_dir
547 0 0 unless -f $_
582 0 0 @_ && ref $_[-1] ? :
591 0 0 if ($$options{'recurse'}) { }
612 0 0 unless -e $$from{'Filename'}
615 0 0 unless -f _
618 0 0 if -d $$to{'Filename'}
621 0 0 if -e _
634 0 0 if ($test_script_from and $test_script_to and -f $$test_script_from{'Filename'})
658 0 0 if length $$from{'Filename'} > $from_w
660 0 0 if length $$to{'Filename'} > $to_w
667 0 0 if length $_ > $f_w
677 0 0 unless (_d_c(sprintf("munge %-${from_w}s > %s\n", $from_fn, $to_fn), $options))
681 0 0 unless open FROM, "<$from_fn"
682 0 0 unless open TO, ">$to_fn"
711 0 0 unless defined $Module::Husbandry::time
718 0 0 ref $_[-1] ? :
733 0 0 if -e $$module{'Filename'}
742 0 0 if (defined $test_script)
744 0 0 if -e $$test_script{'Filename'}
749 0 0 if @errors
756 0 0 ref $_[-1] ? :
769 0 0 ref $_[-1] ? :
784 0 0 if -e $$program{'Program'}
800 0 0 if @errors
807 0 0 ref $_[-1] ? :
820 0 0 ref $_[-1] ? :
837 0 0 unless @files
850 0 0 if (ref $_) { }
0 0 elsif ($_ eq 'reconfigure!') { }
889 0 0 unless defined $Module::Husbandry::workdir
903 0 0 unless /\bbak_(\d+)/
905 0 0 if $n > $max
910 0 0 if -e $bd
919 0 0 @_ && ref $_[-1] ? :
928 0 0 if ($$options{'recurse'}) { }
949 0 0 unless -e $$from{'Filename'}
952 0 0 unless -f _
955 0 0 if -d $$to{'Filename'}
958 0 0 if -e _
971 0 0 if ($test_script_from and $test_script_to and -f $$test_script_from{'Filename'})
1006 0 0 if ($File::Find::prune)
1007 0 0 $is_d ? :
1011 0 0 if $is_d
1013 0 0 if (-B $_)
1018 0 0 if $p eq $$from{'Filename'} or $test_script_from and $p eq $$test_script_from{'Filename'}
1024 0 0 unless open FROM, "<$p"
1026 0 0 if (/$substs_pat/)
1034 0 0 unless &close('FROM')
1052 0 0 if length $$from{'Filename'} > $from_w
1054 0 0 if length $$from{'BakFilename'} > $bak_w
1056 0 0 if length $$to{'Filename'} > $to_w
1069 0 0 unless _d_c(sprintf("cp %-${from_w}s %s\n", $from_fn, $bak_fn), $options)
1079 0 0 if length $_ > $f_w
1090 0 0 unless (_d_c(sprintf("munge %-${bak_w}s > %s\n", $bak_fn, $to_fn), $options))
1094 0 0 unless open BAK, "<$bak_fn"
1095 0 0 unless open NEW, ">$to_fn"
1106 0 0 if $from_fn ne $to_fn and not _d_c("rm $from_fn\n", $options)
1128 0 0 @_ && ref $_[-1] ? :
1139 0 0 if ($$options{'recurse'}) { }
1161 0 0 unless -e $$doomed{'Filename'}
1164 0 0 unless -f _
1176 0 0 if ($doomed_test_script and -f $$doomed_test_script{'Filename'})
1212 0 0 if ($File::Find::prune)
1213 0 0 $is_d ? :
1217 0 0 if $is_d
1219 0 0 if (-B $_)
1224 0 0 if grep(($p eq $$_{'Filename'}), @doomed)
1226 0 0 unless open SURVIVORS, "<$p"
1228 0 0 if (/$spoor_pat_re/)
1234 0 0 unless &close('SURVIVORS')
1241 0 0 if (@spoor)
1247 0 0 if length $$_[0] > $sfn_w
1248 0 0 if length $$_[1] > $ln_w
1267 0 0 if length $$from{'Filename'} > $from_w
1269 0 0 if length $$from{'BakFilename'} > $bak_w
1283 0 0 unless _d_c(sprintf("cp %-${from_w}s %s\n", $from_fn, $bak_fn), $options)
1292 0 0 unless unlink $from_fn
1307 0 0 if @$messages
1308 0 0 @$messages ? :
1313 0 0 unless length $message
1322 0 0 length $messages ? :
1337 0 0 if length $message
1338 0 0 if length $examples
1339 0 0 if length $options
1340 0 0 if length $desc
1346 0 0 exit length $messages ? :
1382 8 4 if (substr($_, 0, 1) eq '-') { }
0 4 elsif ($_ eq 'check') { }
2 2 elsif ($_ eq 'param_count') { }
2 0 elsif ($_ eq 'examples') { }
0 0 elsif ($_ eq 'description') { }
1384 0 8 if $desc =~ s/^(\w+)://
1386 0 8 if $desc =~ s/^(\w+)=//
1389 8 0 unless (defined $canonical_spelling)
1398 8 0 $type eq 'flag' ? :
1410 0 2 if ($desc =~ /\A(\d+)\.\.((?:\d+)?)\z/) { }
1412 0 0 unless length $max_params
1429 0 2 unless $found_examples
1433 2 0 if (defined $min_params)
1436 0 0 $min_params - @_ > 1 ? :
0 0 $min_params != $max_params ? :
0 0 @_ - $max_params > 1 ? :
0 0 $min_params != $max_params ? :
0 2 @_ > $max_params ? :
0 2 @_ < $min_params ? :
1461 0 2 if $check
1463 0 2 if @errors
1475 2 2 if (substr($p, 0, 1) eq '-') { }
1477 0 2 unless (defined $d)
1482 2 0 if (ref $d eq 'CODE') { }
1483 0 1 unless defined &$d()
1498 0 2 if @errors