File Coverage

lib/AutoCode/ModuleLoader.pm

Criterion	Covered	Total	%
statement	18	22	81.8
branch	5	6	83.3
condition	2	3	66.6
subroutine	5	6	83.3
pod	0	3	0.0
total	30	40	75.0

package AutoCode::ModuleLoader;
use strict;
use AutoCode::ModuleFactory;
our $SCHEMA;
our $FACTORY;
our %LOADED; # Cache

# In the previous design, the method 'import' can load any specific type. And
# we forbid the feature, since it cannot return virtual package we want, and
# the users should not guess/predict what the virtual package is, which is the
# internal business to decide the VP of this AutoCode.

sub import {
    my $pkg=shift;
    $pkg->load_schema(@_) if @_;
}

sub load_schema {
    my ($pkg, $schema, $prefix)=@_;
    AutoCode::Root->_load_module($schema);
    my @args = (defined $prefix and $prefix ne 'default')
        ? (-package_prefix => $prefix):();
    $SCHEMA= $schema->new(@args);
    $FACTORY=AutoCode::ModuleFactory->new(
        -schema => $SCHEMA
    );
}

# Cache is at work.
sub load {
    my ($pkg, $type, $prefix)=@_;
    return $LOADED{$type} if(exists $LOADED{$type});
    my $vp = $FACTORY->make_module($type);
    $LOADED{$type}=$vp;
    return $vp;

}

sub load_all {
    my ($pkg)=@_;
    my @types=$SCHEMA->get_all_types;
    foreach(@types){
        $pkg->load($_);
    }

}

1;
__END__