blib/lib/Shell/Guess.pm | |||
---|---|---|---|
Criterion | Covered | Total | % |
condition | 3 | 9 | 33.3 |
line | !l | l&&!r | l&&r | condition |
---|---|---|---|---|
98 | 0 | 2 | 0 | not defined $shell and -l $pw_shell |
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'} |