File Coverage

blib/lib/Eidolon/Driver/Router.pm

Criterion	Covered	Total	%
statement	17	20	85.0
branch			n/a
condition			n/a
subroutine	5	8	62.5
pod	4	4	100.0
total	26	32	81.2

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

use base qw/Eidolon::Driver/;
use Eidolon::Driver::Router::Exceptions;
use warnings;
use strict;

our $VERSION  = "0.02"; # 2009-05-14 05:25:08

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

    $class = shift;
    $self  =
    {
        "controller" => undef,  # relative path to controller
        "handler"    => undef,  # handler reference
        "params"     => undef   # handler params
    };

    bless $self, $class;

    return $self;
}

# ------------------------------------------------------------------------------
# find_handler()
# find a query handler
# ------------------------------------------------------------------------------
sub find_handler
{
    throw CoreError::AbstractMethod;
}

# ------------------------------------------------------------------------------
# get_handler()
# get handler reference
# ------------------------------------------------------------------------------
sub get_handler
{
    return $_[0]->{"handler"};
}

# ------------------------------------------------------------------------------
# get_params()
# get handler params
# ------------------------------------------------------------------------------
sub get_params
{
    return $_[0]->{"params"};
}

1;

__END__