File Coverage

blib/lib/Eidolon/Application.pm

Criterion	Covered	Total	%
statement	32	77	41.5
branch	0	20	0.0
condition	0	2	0.0
subroutine	10	14	71.4
pod	3	3	100.0
total	45	116	38.7

package Eidolon::Application;
# ==============================================================================
#
#   Eidolon
#   Copyright (c) 2009, Atma 7
#   ---
#   Eidolon/Application.pm - application class
#
# ==============================================================================

use Eidolon::Core::Exceptions;
use Eidolon::Core::Registry;
use Eidolon::Core::Loader;
use Eidolon::Core::CGI;
use warnings;
use strict;

our $VERSION = "0.02"; # 2009-05-12 05:12:54

# application interface types
use constant
{
    "TYPE_CGI"  => 0,
    "TYPE_FCGI" => 1
};

# ------------------------------------------------------------------------------
# \% new()
# constructor
# ------------------------------------------------------------------------------
sub new
{
    my ($class, $self);

    $class = shift;

    $self = {};
    bless $self, $class;

    return $self;
}

# ------------------------------------------------------------------------------
# start($type)
# start the application
# ------------------------------------------------------------------------------
sub start
{
    my ($self, $name, $type, $r, $config);

    ($self, $type) = @_;

    $name = ref $self;
    $type = TYPE_CGI unless defined $type;

    $r = Eidolon::Core::Registry->new;
    $config = "$name\::Config";

    # load config
    {
        local $SIG{"__DIE__"} = sub {};
        eval "require $config";
    }

    throw CoreError::Compile($@) if $@;
    $r->config( $config->new($name, $type) );
}

# ------------------------------------------------------------------------------
# handle_request()
# handle HTTP request
# ------------------------------------------------------------------------------
sub handle_request
{
    my ($self, $r, $e, $ctrl, $handler, $router);

    $self = shift;
    $r    = Eidolon::Core::Registry->get_instance;

    eval
    {
        local $SIG{"__DIE__"} = sub
        {
            $_[0]->rethrow if ($_[0] eq "Eidolon::Core::Exception");
            throw CoreError($_[0]);
        };

        # some useful classes
        $r->cgi   ( Eidolon::Core::CGI->new    );
        $r->loader( Eidolon::Core::Loader->new );

        # load drivers specified in config
        foreach (@{ $r->config->{"drivers"} })
        {
            $r->loader->load
            (
                $_->{"class"},
                exists $_->{"params"} ? @{ $_->{"params"} } : ()
            );
        }

        # get a router
        $router = $r->loader->get_object("Eidolon::Driver::Router");
        throw CoreError::NoRouter unless $router;

        # find and start a request handler
        $router->find_handler;

        {
            no strict "refs";
            &{ $router->get_handler }( @{ $router->get_params || [] } );
        }
    };

    # if something went wrong
    if ($@)
    {
        $e = $@;

        throw CoreError::NoErrorHandler($e) unless $r->config->{"app"}->{"error"};
        $ctrl = $r->config->{"app"}->{"error"}->[0] || undef;

        eval "require $ctrl";
        throw CoreError::Compile($@) if $@;

        # find the error handler
        $handler = $r->config->{"app"}->{"error"}->[1];
        throw CoreError::NoErrorHandler($e) unless $handler;

        $handler = "$ctrl\::$handler";

        {
            no strict "refs";
            &{ $handler }( ( $e ) );
        }
    }

    # cleanup
    $r->free;
}

1;

__END__