Branch Coverage

blib/lib/Doit/User.pm
Criterion Covered Total %
branch 15 112 13.3


line true false branch
30 3 4 exists $opts{'cache'} ? :
31 1 6 if %opts
34 5 1 if ($cache)
37 0 3 unless (defined $uid and defined $gid and defined $homedir)
39 1 2 unless (defined $uid)
43 1 1 if ($cache)
51 0 5 if ($( != $gid)
52 0 5 if ($) != $gid)
53 0 5 if ($< != $uid)
54 0 5 if ($> != $uid)
69 0 0 unless $^O =~ /^(linux|freebsd)$/
72 0 0 unless (defined $username)
75 0 0 unless delete $opts{'groups'}
78 0 0 unless delete $opts{'ssh_keys'}
86 0 0 if %opts
91 0 0 if ($ensure eq 'absent') { }
0 0 elsif ($ensure ne 'present') { }
92 0 0 if (defined $got_username)
97 0 0 $^O eq 'freebsd' ? :
0 0 $^O eq 'linux' ? :
104 0 0 if (defined $got_username) { }
109 0 0 if (defined $uid and defined $got_uid && $got_uid != $uid || !defined($got_uid))
115 0 0 $^O eq 'freebsd' ? :
0 0 $^O eq 'linux' ? :
117 0 0 if ($cmd eq 'useradd')
118 0 0 if ($^O eq 'linux') { }
0 0 elsif ($^O eq 'freebsd') { }
133 0 0 if (defined $home and defined $got_home && $got_home ne $home || !defined($got_home)) { }
0 0 elsif ($cmd eq 'useradd') { }
139 0 0 $cmd eq 'usermod' ? :
0 0 $^O eq 'freebsd' ? :
0 0 $^O eq 'linux' ? :
143 0 0 $cmd eq 'usermod' ? :
0 0 $^O eq 'freebsd' ? :
0 0 $^O eq 'linux' ? :
147 0 0 if (defined $shell and defined $got_shell && $got_shell ne $shell || !defined($got_shell))
153 0 0 $^O eq 'freebsd' ? :
0 0 $^O eq 'linux' ? :
157 0 0 if (@groups)
160 0 0 if (join($", @want_groups) ne join($", @got_groups))
161 0 0 $^O eq 'freebsd' ? :
0 0 $^O eq 'linux' ? :
166 0 0 if ($cmd eq 'useradd' or @args)
168 0 0 if ($^O eq 'linux') { }
0 0 elsif ($^O eq 'freebsd') { }
175 0 0 if (not $self->is_dry_run) { }
178 0 0 unless (defined $got_username)
182 0 0 if (defined $home) { }
189 0 0 if (@ssh_keys)
206 0 0 unless (defined $username)
208 0 0 unless (defined $group)
211 0 0 unless ($user_groups{$group})
212 0 0 if ($^O eq 'linux') { }
0 0 elsif ($^O eq 'freebsd') { }
231 0 0 if $gname eq $username
232 0 0 if (&List::Util::first(sub { $_ eq $username; } , split(/\s+/, $members, 0)))