File Coverage

blib/lib/XAS/Lib/Mixins/Process/Unix.pm

Criterion	Covered	Total	%
statement	6	19	31.5
branch	0	12	0.0
condition	0	3	0.0
subroutine	2	3	66.6
pod	1	1	100.0
total	9	38	23.6

package XAS::Lib::Mixins::Process::Unix;

our $VERSION = '0.01';

use XAS::Class
  debug   => 0,
  version => $VERSION,
  base    => 'XAS::Base',
  mixins  => 'proc_status',
  utils   => 'run_cmd trim :validation',
;

use Data::Dumper;

# ----------------------------------------------------------------------
# Public Methods
# ----------------------------------------------------------------------

sub proc_status {
    my $self = shift;
    my ($pid, $alias) = validate_params(\@_, [
        1,
        { optional => 1, default => "" },
    ]);

    my $stat = 0;
    my $cmd = "ps -p $pid -o state=";
    my ($output, $rc, $sig) = run_cmd($cmd);

    if (defined($rc) && $rc == 0) {

        my $line = trim($output->[0]);

        # UNIX states
        # from man ps
        #
        #   D    Uninterruptible sleep (usually IO)
        #   R    Running or runnable (on run queue)
        #   S    Interruptible sleep (waiting for an event to complete)
        #   T    Stopped, either by a job control signal or because it
        #        is being traced.
        #   W    paging (not valid since the 2.6.xx kernel)
        #   X    dead (should never be seen)
        #   Z    Defunct ("zombie") process, terminated but not reaped
        #        by its parent.

        $stat = 6 if ($line eq 'T');    # suspended ready
        $stat = 5 if ($line eq 'D');    # suspended blocked
#        $stat = 4 if ($line eq '?');    # blocked
        $stat = 3 if ($line eq 'R');    # running
        $stat = 2 if ($line eq 'S');    # ready
        $stat = 1 if ($line eq 'Z');    # other
#        $stat = 0 if ($line eq '?');    # unknown

    }

    return $stat;

}

# ----------------------------------------------------------------------
# Private Methods
# ----------------------------------------------------------------------

1;

__END__