File Coverage

blib/lib/Ukigumo/Agent.pm

Criterion	Covered	Total	%
statement	27	40	67.5
branch	0	8	0.0
condition			n/a
subroutine	9	15	60.0
pod	3	6	50.0
total	39	69	56.5

package Ukigumo::Agent;
use strict;
use warnings;
use 5.010001;
use version; our $VERSION = version->declare("v0.1.7");
use parent qw(Amon2 Amon2::Web);
use Carp ();

sub load_config {
    my ($c, $file) = @_;

    my $config = do $file;
    Carp::croak("$file: $@") if $@;
    Carp::croak("$file: $!") unless defined $config;
    unless ( ref($config) eq 'HASH' ) {
        Carp::croak("$file does not return HashRef.");
    }

    $config;
}

use Ukigumo::Agent::Dispatcher;
use Ukigumo::Logger;

__PACKAGE__->load_plugins(qw(Web::JSON ShareDir));

sub dispatch {
    my ($c) = @_;
    return Ukigumo::Agent::Dispatcher->dispatch($c);
}

{
    use Ukigumo::Agent::View;
    my $view = Ukigumo::Agent::View->make_instance(__PACKAGE__);
    sub create_view { $view }
}

{
    my $_manager;
    sub register_manager { $_manager = $_[1] }
    sub manager { $_manager || die "Missing manager" }
}

{
    my $_logger = Ukigumo::Logger->new;
    sub logger { $_logger }
}

1;
__END__