view release on metacpan or  search on metacpan

lib/App/Standby/Group.pm  view on Meta::CPAN

package App::Standby::Group;
$App::Standby::Group::VERSION = '0.04';
BEGIN {
  $App::Standby::Group::AUTHORITY = 'cpan:TEX';
}
# ABSTRACT: Core logic

use 5.010_000;
use mro 'c3';
use feature ':5.10';

use Moose;
use namespace::autoclean;

# use IO::Handle;
# use autodie;
# use MooseX::Params::Validate;
# use Carp;
# use English qw( -no_match_vars );
# use Data::Dumper;
use Try::Tiny;

# extends ...
extends 'App::Standby';
# has ...
has 'services' => (
    'is'    => 'rw',
    'isa'   => 'HashRef',
    'lazy'  => 1,
    'builder' => '_init_services',
);

has 'group_id' => (
    'is'    => 'ro',
    'isa'   => 'Int',
    'required' => 1,
);

has 'name' => (
    'is'    => 'ro',
    'isa'   => 'Str',
    'required' => 1,
);
# with ...
# initializers ...
sub _init_services {
    my $self = shift;

    my %want_sv;
    my %has_sv;
    my $sql = 'SELECT id,name,class,desc FROM group_services WHERE group_id = ?';
    my $sth = $self->dbh()->prepexec($sql,$self->group_id());
    if(!$sth) {
        $self->logger()->log( message => 'Failed to get required services from DB due to SQL error: '.$self->dbh()->errstr, level => 'error', );
        return \%has_sv;
    }
    while( my ($sv_id, $sv_name, $sv_class, $sv_desc) = $sth->fetchrow_array()) {
        $want_sv{$sv_name}->{'id'} = $sv_id;
        $want_sv{$sv_name}->{'class'} = 'App::Standby::Service::'.$sv_class;
        $want_sv{$sv_name}->{'desc'} = $sv_desc;
    }
    $sth->finish();

    # try to load each requested service
    foreach my $sv_name ( sort keys %want_sv) {
        my $sv_class = $want_sv{$sv_name}->{'class'};
        my $sv_desc  = $want_sv{$sv_name}->{'desc'};
        my $load_result = $self->_load_class($sv_class);
        if($load_result ne $sv_class) {
            $self->logger()->log( message => 'Failed to load required class: '.$sv_class.' w/ error: '.$load_result, level => 'error', );
            next;
        }
        try {
            my $Service = $sv_class->new({
                'name'      => $sv_name,
                'description' => $sv_desc,
                'group_id'  => $self->group_id(),
                'dbh'       => $self->dbh(),
                'logger'    => $self->logger(),
            });
            $has_sv{$sv_name} = $Service;