File Coverage

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

Criterion	Covered	Total	%
statement	6	49	12.2
branch	0	2	0.0
condition			n/a
subroutine	2	12	16.6
pod	5	5	100.0
total	13	68	19.1

package XAS::Lib::POE::Service;

our $VERSION = '0.03';

use POE;

use XAS::Class
  debug   => 0,
  version => $VERSION,
  base    => 'XAS::Lib::POE::Session',
  vars => {
    PARAMS => {
      -alias => { optional => 1, default => 'service' }
    }
  }
;

# ----------------------------------------------------------------------
# Public Events
# ----------------------------------------------------------------------

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

sub session_initialize {
    my $self = shift;

    my $alias = $self->alias;

    $self->log->debug("$alias: session_initialize()");

    $poe_kernel->state('session_idle',   $self, '_session_idle');
    $poe_kernel->state('session_pause',  $self, '_session_pause');
    $poe_kernel->state('session_resume', $self, '_session_resume');
    $poe_kernel->state('session_status', $self, '_session_status');

    $poe_kernel->sig('HUP', 'session_interrupt');

}

sub session_idle {
    my $self = shift;

    my $alias = $self->alias;

    $self->log->debug("$alias: session_idle()");

}

sub session_pause {
    my $self = shift;

    my $alias = $self->alias;

    $self->log->debug("$alias: session_pause()");

}

sub session_resume {
    my $self = shift;

    my $alias = $self->alias;

    $self->log->debug("$alias: session_resume()");

}

sub session_status {
    my $self   = shift;
    my $status = shift;

    my $alias = $self->alias;

    $self->log->debug("$alias: session_status()");

    $self->{'__status'} = $status if (defined($status));

    return $self->{'__status'};

}

# ----------------------------------------------------------------------
# Public Accessors
# ----------------------------------------------------------------------

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

# ----------------------------------------------------------------------
# Private Events
# ----------------------------------------------------------------------

sub _session_init {
    my ($self) = $_[OBJECT];

    my $alias = $self->alias;

    $self->log->debug("$alias: _session_init()");

    $self->session_initialize();

}

sub _session_idle {
    my ($self) = $_[OBJECT];

    my $alias = $self->alias;

    $self->log->debug("$alias: session_idle()");

    $self->session_idle();

}

sub _session_pause {
    my ($self) = $_[OBJECT];

    my $alias = $self->alias;

    $self->log->debug("$alias: session_pause()");

    $self->session_pause();

}

sub _session_resume {
    my ($self) = $_[OBJECT];

    my $alias = $self->alias;

    $self->log->debug("$alias: _session_resume()");

    $self->session_resume();

}

sub _session_status {
    my ($self, $status) = @_[OBJECT, ARG0];

    my $alias = $self->alias;

    $self->log->debug("$alias: _session_status()");

    $self->session_status($status);

}

1;

__END__