| 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" |