File Coverage

blib/lib/Pickles/WebApp.pm

Criterion	Covered	Total	%
statement	57	64	89.0
branch	7	16	43.7
condition			n/a
subroutine	14	16	87.5
pod	8	9	88.8
total	86	105	81.9

package Pickles::WebApp;
use strict;
use base qw(Class::Data::Inheritable);
use Plack::Util;
use Plack::Util::Accessor qw(config dispatcher container);
use Pickles::Util;
use Scalar::Util qw(blessed);

__PACKAGE__->mk_classdata( 'config_class' => 'Config' );
__PACKAGE__->mk_classdata( 'dispatcher_class' => 'Dispatcher' );
__PACKAGE__->mk_classdata( 'context_class' => 'Context' );
__PACKAGE__->mk_classdata( 'container_class' => 'Container' );

sub new {
    my $class = shift;
    my %args = @_;
    my $self = bless { %args }, $class;
    $self->config( $self->setup_config ) unless $self->config;
    $self->dispatcher( $self->setup_dispatcher ) unless $self->dispatcher;
    $self->container( $self->setup_container ) unless $self->container;
    $self;
}

sub handler {
    my $self = shift;
    $self = $self->new unless ref $self;
    my $app = sub {
        my $env = shift;
        my $c = $self->create_context(
            env => $env,
        );
        $c->dispatch;
    };
    $app;
}

sub appname { shift->config->appname; }

sub setup_config {
    my $self = shift;
    my $config_class =
        Plack::Util::load_class( $self->config_class, ref $self );
    $config_class->construct;
}

sub setup_dispatcher {
    my $self = shift;
    my $dispatcher_class =
        Plack::Util::load_class( $self->dispatcher_class, $self->appname );
    my $dispatcher = $dispatcher_class->new( file => $self->get_routes_file );
    $dispatcher->load_controllers( $self->appname );
    $dispatcher;
}

sub get_routes_file {
    my $self = shift;
    my $file = Pickles::Util::env_value( 'ROUTES', $self->appname );
    if (! $file) {
        $file = $self->config->path_to( 'etc/routes.pl' );
    }
    return $file;
}

sub setup_container {
    my $self = shift;
    my $container_class =
        Plack::Util::load_class( $self->container_class, ref $self );
    my $container = $container_class->new;
    $container->register( config => $self->config );
    my $file = $self->get_container_file;
    if ( -e $file ) {
        $container->load( $file );
    }
    $container;
}

sub get_container_file {
    my $self = shift;
    my $file = Pickles::Util::env_value('CONTAINER_FILE', $self->appname );
    if (! $file) {
        $file = $self->config->path_to( 'etc/container.pl' );
    }
    return $file;
}

sub create_context {
    my $self = shift;
    $self = $self->new unless blessed $self;
    my %args = (
        config => $self->config,
        dispatcher => $self->dispatcher,
        container => $self->container,
        @_
    );
    my $context_class =
        Plack::Util::load_class( $self->context_class, $self->appname );
    $context_class->new( %args );
}


1;

__END__