File Coverage

blib/lib/XAS/Lib/App.pm

Criterion	Covered	Total	%
statement	15	75	20.0
branch	0	8	0.0
condition			n/a
subroutine	5	27	18.5
pod	8	8	100.0
total	28	118	23.7

package XAS::Lib::App;

our $VERSION = '0.05';

use Try::Tiny;
use Pod::Usage;
use Hash::Merge;
use Getopt::Long;

use XAS::Class
  debug      => 0,
  version    => $VERSION,
  base       => 'XAS::Base',
  mixin      => 'XAS::Lib::Mixins::Handlers',
  import     => 'CLASS',
  utils      => 'dotid',
  filesystem => 'File',
  vars => {
    PARAMS => {
      -throws   => { optional => 1, default => undef },
      -facility => { optional => 1, default => undef },
      -priority => { optional => 1, default => undef },
    }
  }
;

#use Data::Dumper;

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

sub signal_handler {
    my $signal = shift;

    my $ex = XAS::Exception->new(
        type => 'xas.lib.app.signal_handler',
        info => 'process interrupted by signal ' . $signal
    );

    $ex->throw();

}

sub define_signals {
    my $self = shift;

    $SIG{'INT'}  = \&signal_handler;
    $SIG{'QUIT'} = \&signal_handler;

}

sub define_pidfile {
    my $self = shift;

}

sub define_daemon {
    my $self = shift;

}

sub run {
    my $self = shift;

    my $rc = 0;

    try {

        $self->define_signals();
        $self->define_daemon();
        $self->define_pidfile();

        $self->main();

    } catch {

        my $ex = $_;

        $rc = $self->exit_handler($ex);

    };

    return $rc;

}

sub main {
    my $self = shift;

    $self->log->warn('You need to override main()');

}

sub options {
    my $self = shift;

    return {};

}

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

sub init {
    my $class = shift;

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

    if (defined($self->throws)) {

        $self->env->throws($self->throws);
        $self->class->throws($self->throws);

    }

    if (defined($self->priority)) {

        $self->env->priority($self->priority);

    }

    if (defined($self->facility)) {

        $self->env->facility($self->facility);

    }

    my $options = $self->options();
    my $defaults = $self->_default_options();

    $self->_parse_cmdline($defaults, $options);

    return $self;

}

sub _default_options {
    my $self = shift;

    my $version = $self->CLASS->VERSION;
    my $script  = $self->env->script;

    return {
        'alerts!'  => sub { $self->env->alerts($_[1]); },
        'help|h|?' => sub { pod2usage(-verbose => 0, -exitstatus => 0); },
        'manual'   => sub { pod2usage(-verbose => 2, -exitstatus => 0); },
        'version'  => sub { printf("%s - v%s\n", $script, $version); exit 0; },
        'debug'    => sub {
            $self->env->xdebug(1);
            $self->log->level('debug', 1);
        },
        'priority=s' => sub {
            $self->env->priority($_[1]);
        },
        'facility=s' => sub {
            $self->env->facility($_[1]);
        },
        'log-file=s' => sub {
            my $logfile = File($_[1]);
            $self->env->log_type('file');
            $self->env->log_file($logfile);
            $self->log->activate();
        },
        'log-type=s' => sub {
            $self->env->log_type($_[1]);
            $self->log->activate();
        },
        'log-facility=s' => sub {
            $self->env->log_facility($_[1]);
        },
    };

}

sub _parse_cmdline {
    my ($self, $defaults, $optional) = @_;

    my $hm = Hash::Merge->new('RIGHT_PRECEDENT');
    my %options = %{ $hm->merge($defaults, $optional) };

    GetOptions(%options) or pod2usage(-verbose => 0, -exitstatus => 1);

}

1;

__END__