File Coverage

blib/lib/Module/DynamicSubModule.pm

Criterion	Covered	Total	%
statement	15	34	44.1
branch	0	14	0.0
condition	0	6	0.0
subroutine	5	7	71.4
pod	1	1	100.0
total	21	62	33.8

package Module::DynamicSubModule;

use 5.008008;
use strict;
use warnings;

our $VERSION = '0.01';

# Preloaded methods go here.

$Module::DynamicSubModule::isDebugMode = 1;

use vars qw|$AUTOLOAD|;

sub new($$$@){
    shift;
    my $sBaseName = shift;
    my $sName = shift;
    return {} if(!defined $sName or $sName eq '');
    return if $sName eq 'DESTROY';
    my $sClassName = $sBaseName.'::'.ucfirst($sName);
    eval "require $sClassName";
    if(!$@){
	no strict 'refs';
	return $sClassName->new(@_);
    }else{
	print STDERR $@ if $Module::DynamicSubModule::isDebugMode;
	return if !defined $sName;
	shift while scalar(@_) > 0 and !defined $_[0];
	return if scalar(@_)%2==0;
	my %hE = ($sName,@_);
	return bless \%hE,$sBaseName;
    }
}
sub AUTOLOAD{
    my $oS = shift;
    my $sAlgoName = substr($AUTOLOAD,rindex($AUTOLOAD,'::')+2);
    return if $sAlgoName eq 'DESTROY';
    $oS->new($sAlgoName,@_);
}

1;

__END__