blib/lib/Filesys/POSIX/ReducedPrivileges.pm | |||
---|---|---|---|
Criterion | Covered | Total | % |
branch | 10 | 12 | 83.3 |
line | true | false | branch |
---|---|---|---|
75 | 1 | 2 | unless my $path = $opts{'path'} |
83 | 1 | 1 | unless $root->dir |
95 | 5 | 9 | unless $self->{'_privileges_reduced'} == 1 |
102 | 0 | 9 | unless ($> == $self->{'_uid'} and int $) eq int $self->{'_gid'}) |
111 | 5 | 9 | unless $self->{'_privileges_reduced'} == 0 |
115 | 0 | 9 | unless ($> == $self->{'_original_uid'} and int $) eq int $self->{'_original_gid'}) |