Branch Coverage

File:bin/unburden-home-dir
Coverage:53.0%

line%coveragebranch
1450TFif ($@)
154100TFif (-e $configfile)
181100TFunless /^sent |^total size|^\s*$/
18850TFunless ($which_lsof)
209100TFunless ($DRYRUN)
210100TFif (-d $from) { }
21150TFunless $from =~ m[/$]
21250TFunless $to =~ m[/$]
23350TFunless ($DRYRUN)
23450TFunless symlink $old, $new
245100TFunless (-d $parent_dir)
247100TFunless $DRYRUN
26150TFif ($type eq 'D') { }
0TFelsif ($type eq 'F') { }
26550TFunless $DRYRUN
2730TFunless $DRYRUN
28950TFif ($is_dir)
29650TFif ($link ne $target)
30250TFif (-e $target) { }
3040TFif $unexpected_type
3240TFif ($line =~ /^p(.*)$/) { }
0TFelsif ($line =~ /^c(.*)$/) { }
3290TFunless ($pid)
349100TFif (-d $item) { }
50TFelsif (-f _) { }
36050TFif ($lsof_parsed) { }
37350TFunless move $itemexpanded, $target
3860TFunless ($DRYRUN)
3870TFif $is_dir
3880TFif $is_file
40150TFunless ($DRYRUN)
40250TFif (type_is_directory($type)) { }
0TFelsif (type_is_file($type)) { }
4080TFunless touch($target)
428100TFunless ($DRYRUN)
42950TFunless symlink $target, $itemexpanded
45250TFunless ($is_file or $is_dir)
45650TFif ($is_file and not -f $itemexpanded)
46250TFif ($is_dir and not -d $itemexpanded)
47550TFif ($USE_LSOF and files_in_use($itemexpanded))
48050TFif $unexpected_type
48250TFif ($action eq 'r' or $action eq 'd') { }
50TFelsif ($action eq 'm') { }
53150TFif ($path =~ s[$ENV{'HOME'}/?][]) { }
540100TFif -l $path_to_check
55650TFif ($itemexpanded =~ /[][*?]/)
561100TFif (my $symlink = symlink_in_path($itemexpanded))
570100TFif (not -e $itemexpanded || -l $itemexpanded) { }
100TFelsif (-l $itemexpanded) { }
59450TFif ($itemexpanded =~ /[][*?]/)
60350TFif (-l $item_in_home)
60850TFif ($itemexpanded eq $link_target) { }
610100TFunless $DRYRUN
637100TFunless -r $list
64050TFunless open LIST, '<', $list
642100TFif /^#|^ *$/
647100TFunless defined $action
64950TFunless (defined $item and defined $replacement)
65350TFunless (type_is_directory($type) or type_is_file($type))
65750TFif ($action ne 'd' and $action ne 'r' and $action ne 'm')
662100TFif ($item =~ m[^(\.\.)?/])
667100TFif ($REVERT) { }
67250TFif (defined $FILTER)
6730TFunless $i =~ /$FILTER/
67950TFif (defined $FILTER)
6800TFunless $i =~ /$FILTER/