File Coverage

blib/lib/Class/LazyFactory.pm

Criterion	Covered	Total	%
statement	42	43	97.6
branch	12	26	46.1
condition			n/a
subroutine	8	8	100.0
pod	2	2	100.0
total	64	79	81.0

package Class::LazyFactory;
use 5.006001;
use strict;
use warnings;
use Carp;
use Class::Inspector;
use UNIVERSAL;

our @ISA = qw();

our $VERSION = '0.02';

my $class_config = [
    { }, # element[0] is namespace
    { }, # element[1] is constructor
];

sub initialize_factory {
    my $class = shift;
    my %p = @_;

    (not ref($class))
        or croak "new() must be called as a class method";

    # namespace
    if (exists $p{namespace}) {
        (defined $p{namespace})
            or croak "namespace must be defined";
        $class_config->[0]->{$class} = $p{namespace};
    }

    # constructor
    if (exists $p{constructor}) {
        (defined $p{constructor})
            or croak "namespace must be defined";
        $class_config->[1]->{$class} = $p{constructor};
    }

}

sub new {
    my $class = shift;
    my $concrete_class = shift;
    (not ref($class))
        or croak "new() must be called as a class method";
    ($concrete_class)
        or croak "Undefined concrete class name";
    if (exists $class_config->[0]->{$class}) {
        $concrete_class = join('::', $class_config->[0]->{$class}, $concrete_class);
    }
    # load if necessary
    my $loaded = Class::Inspector->loaded($concrete_class);
    (defined $loaded)
        or croak "Invalid concrete class name: $concrete_class";
    if (not $loaded) {
        eval "require $concrete_class;"
            or croak "Unable to require concrete class: $concrete_class";
    }
    # construct instance
    my $constructor = 'new';
    if (exists $class_config->[1]->{$class}) {
        $constructor = $class_config->[1]->{$class};
    }
    $concrete_class->can($constructor)
        or croak "Unable to instantiate $concrete_class with invalid constructor: $constructor";

    my $i = $concrete_class->$constructor(@_);
    return $i;
}


1;
__END__