blib/lib/Setup/Unix/User.pm | |||
---|---|---|---|
Criterion | Covered | Total | % |
condition | 34 | 74 | 45.9 |
line | !l | l&&!r | l&&r | condition |
---|---|---|---|---|
439 | 32 | 1 | 7 | $l->{'group'} ~~ \@$member_of and not $user ~~ \@mm |
441 | 32 | 1 | 7 | $l->{'group'} ~~ \@$not_member_of and $user ~~ \@mm |
449 | 0 | 0 | 0 | not @$not_member_of and @$member_of == 1 |
0 | 0 | 0 | not @$not_member_of and @$member_of == 1 and $member_of->[0] eq $group | |
460 | 0 | 0 | 0 | $exists && -d $home |
8 | 0 | 0 | $create_home and not $exists && -d $home |
line | l | !l | condition |
---|---|---|---|
58 | 217 | 0 | $args{-'tx_action'} // '' |
145 | 273 | 0 | $args{-'tx_action'} // '' |
190 | 124 | 0 | $args{'min_uid'} // 1000 |
124 | 0 | $args{'max_uid'} // 65534 | |
124 | 0 | $args{'min_gid'} // 1000 | |
124 | 0 | $args{'max_gid'} // 65534 | |
224 | 39 | 0 | $args{-'tx_action'} // '' |
368 | 8 | 0 | $args{'should_exist'} // 1 |
370 | 8 | 0 | $args{'create_home'} // 1 |
372 | 8 | 0 | $args{'use_skel'} // 1 |
373 | 8 | 0 | $args{'skel_dir'} // '/etc/skel' |
375 | 8 | 0 | $args{'member_of'} // [] |
377 | 8 | 0 | $args{'not_member_of'} // [] |
line | l | !l&&r | !l&&!r | condition |
---|---|---|---|---|
68 | 103 | 12 | 0 | $res->[0] == 200 or $res->[0] == 404 |
157 | 17 | 132 | 0 | $res->[0] == 200 or $res->[0] == 404 |
160 | 7 | 8 | 2 | not defined $uid or $uid == $res->[2]{'uid'} |
249 | 19 | 0 | 1 | @needs_add or @needs_del |
374 | 0 | 8 | 0 | $args{'group'} // $args{'user'} |
393 | 8 | 0 | 0 | $uentry->{'home'} // $args{'new_home'} |
0 | 0 | 0 | ($uentry->{'home'} // $args{'new_home'}) // "/home/$user" | |
443 | 7 | 0 | 1 | @needs_add or @needs_del |
459 | 8 | 0 | 0 | $uentry->{'home'} // $args{'new_home'} |
0 | 0 | 0 | ($uentry->{'home'} // $args{'new_home'}) // "/home/$user" |