Branch Coverage

blib/lib/No/Worries/Stat.pm
Criterion Covered Total %
branch 25 68 36.7


line true false branch
68 4 0 unless defined $user
69 0 0 if ($user =~ /^\d+$/) { }
72 0 0 unless (exists $_CachedUid{$user})
75 0 0 unless defined $_CachedUid{$user}
91 4 0 unless defined $group
92 0 0 if ($group =~ /^\d+$/) { }
95 0 0 unless (exists $_CachedGid{$group})
98 0 0 unless defined $_CachedGid{$group}
114 0 4 unless defined $mode
115 4 0 if ($mode =~ /^([\+\-])?(\d+)$/) { }
117 1 3 substr($2, 0, 1) eq '0' ? :
120 1 3 if ($action eq '+') { }
1 2 elsif ($action eq '-') { }
148 4 0 unless defined $mtime
161 0 0 if ($message->{'user'} and $stat->[4] != $option->{'uid'})
165 0 0 if ($message->{'group'} and $stat->[5] != $option->{'gid'})
169 0 0 unless @todo and $option->{'callback'}->($path, join($", @todo))
170 0 0 unless chown $stat->[4], $stat->[5], $path
187 1 3 if ($stat->[2] & 4095) == $mode
188 0 3 unless $option->{'callback'}->($path, $message->{'mode'})
189 0 3 unless chmod $mode, $path
201 0 0 if $stat->[9] == $option->{'mtime'}
202 0 0 unless $option->{'callback'}->($path, $message->{'mtime'})
205 0 0 unless utime $stat->[8], $option->{'mtime'}, $path
226 4 0 if @_
232 0 4 unless keys %message
233 0 4 if ($option{'follow'}) { }
235 0 0 unless @stat
238 0 4 unless @stat
240 0 4 if -l _
245 0 4 if $message{'user'} or $message{'group'}
248 4 0 if $message{'mode'}
251 0 4 if $message{'mtime'}
262 1 8 unless (@_Mode2Type)