File Coverage

blib/lib/XAS/Lib/Pidfile/Unix.pm

Criterion	Covered	Total	%
statement	3	18	16.6
branch	0	6	0.0
condition	0	3	0.0
subroutine	1	3	33.3
pod	1	2	50.0
total	5	32	15.6

package XAS::Lib::Pidfile::Unix;

our $VERSION = '0.02';

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

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

sub scan_name {
    my $self = shift;

    # just return the name of the script

    my $c = sprintf('%s', $self->env->script);

    return compress($c);

}

sub is_running {
    my $self = shift;

    my $pid = $self->_get_pid();
    my $commandline = $self->scan_name();

    if (defined($pid)) {

        # use ps to scan for an existing process with this pid

        my $command = "ps -p $pid -o comm=";
        my ($output, $rc, $sig) = run_cmd($command);

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

            foreach my $line (@$output) {

                $line = compress(trim($line));
                $self->log->debug(sprintf("\"%s\" = \"%s\"", $commandline, $line));

                return $pid if ($commandline =~ /$line/);

            }

        }

    }

    return undef;

}

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

1;

__END__