File Coverage

blib/lib/TL1ng.pm

Criterion	Covered	Total	%
statement	12	20	60.0
branch	0	10	0.0
condition	0	5	0.0
subroutine	4	5	80.0
pod	1	1	100.0
total	17	41	41.4

package TL1ng;

use 5.008000;

use strict;
use warnings;

use Carp;


our $VERSION = '0.08';


sub new {
    my ($class, $params) = @_;

	croak "Parameter list must be an anonymous hash!\n"
	   if $params && ref $params ne "HASH";
	$params = {} if ! $params;


	# Since this class is just an abstract factory (kinda),
	# determine the conrete TL1ng class to instantiate...
	# Use TL1ng::Base as a default if none is provided.
	my $inst_class = defined $params->{Type}
		? "${class}::" . $params->{Type} : "${class}::Base";


	# Clean up parameters we've used here - anything left over will
	# be passed to the class we're instantiating.
	$params->{Type} and delete $params->{Type};


	# Instantiate the apropriate TL1 object
	eval "require $inst_class" || croak "Couldn't load $inst_class!";

	my $tl1_obj = $inst_class->new($params)
		|| return; #croak "Couldn't instantiate $inst_class!\n";

    return $tl1_obj;
}


1;
__END__