Branch Coverage

blib/lib/File/Path/Tiny.pm
Criterion Covered Total %
branch 37 50 74.0


line true false branch
12 4 12 if -d $path
13 1 11 if (-e $path)
15 7 4 if substr($mask, 0, 1) eq '0'
22 11 30 unless defined $_dir
24 2 28 if $_dir eq ''
26 18 10 unless (-d $progressive)
27 0 18 unless mkdir $progressive, $mask or -d $progressive
30 11 0 if -d $path
37 3 117 if (-e _ and not -d _)
38 1 116 unless -d _
40 0 111 unless empty_dir($path, $fast)
42 0 111 unless rmdir $path or not -e $path
49 0 122 if (-e _ and not -d _)
52 122 0 unless ($fast)
55 0 122 unless File::Path::Tiny::chdir($path)
60 0 122 unless opendir my $dh, $path
61 301 122 if $_ ne '.'
65 113 9 if @contents
68 80 99 if (not -l $long and -d _) { }
70 0 80 unless rm($long, $fast) or not -e $long
74 0 89 unless unlink $long or not -e $long
80 112 0 unless ($fast)
81 0 112 unless File::Path::Tiny::chdir($starting_point)
109 0 758 if (not defined $cur_dev && defined $cur_ino) { }
117 10 748 if ($orig_dev ne $cur_dev or $orig_ino ne $cur_ino)