File Coverage

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

Criterion	Covered	Total	%
statement	12	61	19.6
branch	0	24	0.0
condition	0	18	0.0
subroutine	4	11	36.3
pod	1	1	100.0
total	17	115	14.7

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

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

our $VERSION  = "0.02"; # 2009-04-06 01:41:56

# ------------------------------------------------------------------------------
# $ _find_controller($items)
# find controller
# ------------------------------------------------------------------------------
sub _find_controller
{
    my ($self, $items, $r, $ctrl, $ctrl_path, $module);

    ($self, $items) = @_;

    $r         = Eidolon::Core::Registry->get_instance;
    $ctrl      = "";
    $ctrl_path = $r->config->{"app"}->{"lib"}  . "/" .
                 $r->config->{"app"}->{"name"} . "/Controller/";

    # compose controller's name
    while ($_ = shift(@$items))
    {
        $module = ucfirst($_);
        $ctrl_path .= "/$module";

        if (-d $ctrl_path)
        {
            $ctrl .= "::$module";
        }
        elsif (-f "$ctrl_path.pm" && ($module ne "Default" || $ctrl))
        {
            $ctrl .= "::$module";
            last;
        }
        else
        {
            unshift(@$items, $_);
            last;
        }
    }

    $ctrl = "::Default" if (!$ctrl);
    $self->{"controller"} = $r->config->{"app"}->{"name"}."::Controller$ctrl";
}

# ------------------------------------------------------------------------------
# _find_action($items)
# find action
# ------------------------------------------------------------------------------
sub _find_action
{
    my ($self, $r, $items, $handler, $ctrl, $action, @params);

    ($self, $items) = @_;
    $action  = ($items && (@$items > 0)) ? join("/", @$items) : undef;
    $handler = undef;
    $ctrl    = $self->{"controller"};
    $r       = Eidolon::Core::Registry->get_instance;

    {
        local $SIG{"__DIE__"} = sub {};
        eval "require $ctrl";
    }

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

    # find action
    if ($action)
    {
        $handler = first
        {
            /^Action\(['|"]?(.+?)['|"]?\)$/o &&
            (@params = $action =~ /^$1$/)
        } keys %{ $ctrl->code_cache };

        # if handler was found
        if ($handler)
        {
            $handler = $ctrl->code_cache->{ $handler };

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

            $self->{"params"} = \@params;
        }
    }
    else
    {
        $handler = $ctrl->code_cache->{"Default"};
    }

    throw DriverError::Router::NotFound  if (!$handler);
    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" &&
                !first { /^Public$/ } @{ $ctrl->attr_cache->{$handler} }
            ) ||

            first { /^Private$/ } @{ $ctrl->attr_cache->{$handler} }
        )
    );

    $self->{"handler"} = $handler;
}

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

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

    $query = $r->cgi->get_query;
    @items = $query ? split /\//, $query : ();

    $self->_find_controller( \@items );
    $self->_find_action    ( \@items );
}

1;

__END__