File Coverage

blib/lib/XAS/Lib/App/Service.pm

Criterion	Covered	Total	%
statement	17	52	32.6
branch	1	8	12.5
condition			n/a
subroutine	6	15	40.0
pod	4	4	100.0
total	28	79	35.4

package XAS::Lib::App::Service;

our $VERSION = '0.01';

my $mixin;

BEGIN {
    $mixin = 'XAS::Lib::App::Service::Unix';
    $mixin = 'XAS::Lib::App::Service::Win32' if ($^O eq 'MSWin32');
}

use Try::Tiny;
use Pod::Usage;
use XAS::Lib::Pidfile;
use XAS::Lib::Service;

use XAS::Class
  debug      => 0,
  version    => $VERSION,
  base       => 'XAS::Lib::App',
  mixin      => $mixin,
  constants  => 'TRUE FALSE',
  filesystem => 'File',
  utils      => 'dotid',
  accessors  => 'daemon service pid',
;

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

sub define_signals {
    my $self = shift;

}

sub define_pidfile {
    my $self = shift;

    my $script = $self->env->script;

    $self->log->debug('entering define_pidfile()');

    $self->{pid} = XAS::Lib::Pidfile->new(-pid => $$);

    if (my $num = $self->pid->is_running()) {

        $self->throw_msg(
            dotid($self->class). '.define_pidfile.runerr',
            'pid_run_error',
            $script, $num
        );

    }

    $self->pid->write() or
        $self->throw_msg(
            dotid($self->class) . '.define_pidfile.wrterr',
            'pid_write_error',
            $self->pid->file
        );

    $self->log->debug('leaving define_pidfile()');

}

sub run {
    my $self = shift;

    my $rc = $self->SUPER::run();

    if (my $pid = $self->{'pid'}) {

        $pid->remove();

    }

    return $rc;

}

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

sub init {
    my $class = shift;

    my $self = $class->SUPER::init(@_);

    $self->{'service'} = XAS::Lib::Service->new();

    return $self;

}

sub _default_options {
    my $self = shift;

    my $options = $self->SUPER::_default_options();

    $self->{'daemon'}  = FALSE;

    $options->{'daemon'} = \$self->{'daemon'};

    $options->{'install'} = sub {
        $self->install_service();
        exit 0;
    };

    $options->{'deinstall'} = sub {
        $self->remove_service();
        exit 0;
    };

    $options->{'pid-file=s'} = sub {
        my $pidfile = File($_[1]);
        $self->env->pid_file($pidfile);
    };

    $options->{'cfg-file=s'} = sub {
        my $cfgfile = File($_[1]);
        $self->env->cfg_file($cfgfile);
    };

    return $options;

}

1;

__END__