Condition Coverage

blib/lib/Shell/Guess.pm
Criterion Covered Total %
condition 3 9 33.3


and 3 conditions

line !l l&&!r l&&r condition
98 0 2 0 not defined $shell and -l $pw_shell

or 3 conditions

line l !l&&r !l&&!r condition
59 0 0 1 eval { do { die unless open my $fh, '<', 'File::Spec'->catfile('', 'proc', getppid, 'cmdline'); my $command_line = readline $fh; die unless defined $command_line; close $fh; $command_line =~ s/\0.*$//; _unixy_shells($command_line) } } || eval { do { require Unix::Process; my $method = $^O eq 'solaris' ? 'comm' : 'command'; my($command) = map({s/\s+.*$//; $_;} 'Unix::Process'->$method(getppid)); _unixy_shells($command) } }
86 0 0 2 shift() || $ENV{'USER'} || $ENV{'USERNAME'} || $ENV{'LOGNAME'}