File Coverage

blib/lib/Eidolon/Core/Loader.pm

Criterion	Covered	Total	%
statement	24	28	85.7
branch	4	10	40.0
condition			n/a
subroutine	6	6	100.0
pod	3	3	100.0
total	37	47	78.7

package Eidolon::Core::Loader;
# ==============================================================================
#
#   Eidolon
#   Copyright (c) 2009, Atma 7
#   ---
#   Eidolon/Core/Loader.pm - driver loader
#
# ==============================================================================

use Eidolon::Driver::Exceptions;
use warnings;
use strict;

our $VERSION  = "0.02"; # 2009-05-13 22:32:29

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

    $class = shift;

    # class attributes
    $self = { "type_cache" => {} };

    bless $self, $class;

    return $self;
}

# ------------------------------------------------------------------------------
# load($class, @params)
# load a driver
# ------------------------------------------------------------------------------
sub load
{
    my ($self, $class, @params, $r);

    ($self, $class, @params) = @_;
    $r    = Eidolon::Core::Registry->get_instance;

    # loading driver
    eval "require $class";
    throw CoreError::Compile($@) if $@;

    throw CoreError::Loader::InvalidDriver($class) if !$class->isa("Eidolon::Driver");
    throw CoreError::Loader::AlreadyLoaded($class) if exists $self->{"type_cache"}->{$class};

    $self->{"type_cache"}->{$class} = $class->new( @params );
}

# ------------------------------------------------------------------------------
# \% get_object($class)
# get driver object
# ------------------------------------------------------------------------------
sub get_object
{
    my ($self, $class) = @_;

    # find object by class
    return $self->{"type_cache"}->{$class} if (exists $self->{"type_cache"}->{$class});

    # find driver by parent class
    foreach (keys %{ $self->{"type_cache"} })
    {
        return $self->{"type_cache"}->{$_} if ($_->isa($class));
    }

    return undef;
}

1;

__END__