File Coverage

blib/lib/Eidolon/Driver/Router/Consequent.pm

Criterion	Covered	Total	%
statement	12	35	34.2
branch	0	10	0.0
condition	0	13	0.0
subroutine	4	7	57.1
pod	1	1	100.0
total	17	66	25.7

package Eidolon::Driver::Router::Consequent;
# ==============================================================================
#
#   Eidolon
#   Copyright (c) 2009, Atma 7
#   ---
#   Eidolon/Driver/Router/Consequent.pm - consequent regexp router
#
# ==============================================================================

use base qw/Eidolon::Driver::Router/;
use List::Util qw/first/;
use warnings;
use strict;

our $VERSION  = "0.01"; # 2009-04-06 05:10:02

# ------------------------------------------------------------------------------
# find_handler()
# find query handler
# ------------------------------------------------------------------------------
sub find_handler
{
    my ($self, $r, $query, @params, $route, $ctrl, $handler);

    $self  = shift;
    $r     = Eidolon::Core::Registry->get_instance;
    $query = $r->cgi->get_query || "/";
    $route = undef;

    throw DriverError::Router::NoRoutes if (!exists $r->config->{"routes"});

    # find matching route
    $route = first { @params = $query =~ /^$_$/ } keys %{ $r->config->{"routes"} };

    # do neccessary checks
    throw DriverError::Router::NotFound($query) if (!$route);
    throw DriverError::Router::Forbidden if
    (
        $r->loader->get_object("Eidolon::Driver::User")             &&
       !$r->loader->get_object("Eidolon::Driver::User")->authorized &&

        (
            $r->config->{"app"}->{"policy"} eq "private"          &&
           !defined($r->config->{"routes"}->{ $route }->[2])      ||
            defined($r->config->{"routes"}->{ $route }->[2])      &&
            $r->config->{"routes"}->{ $route }->[2] eq "private"
        )
    );

    $ctrl    = $r->config->{"routes"}->{ $route }->[0];
    $handler = $r->config->{"routes"}->{ $route }->[1] || "default";

    # try to load the controller
    {
        local $SIG{"__DIE__"} = sub {};
        eval "require $ctrl";
    }

    throw CoreError::Compile($@) if $@;

    $self->{"controller"} = $ctrl;
    $self->{"handler"}    = "$ctrl\::$handler";

    # delete undefined parameters
    foreach (0 .. $#params)
    {
        delete $params[$_] unless (defined $params[$_]);
    }

    $self->{"params"} = \@params;
}

1;

__END__