File Coverage

blib/lib/Banal/Utils/Class.pm

Criterion	Covered	Total	%
statement	9	31	29.0
branch	0	16	0.0
condition	0	8	0.0
subroutine	3	4	75.0
pod	1	1	100.0
total	13	60	21.6

#===============================================
package Banal::Utils::Class;

use utf8;
require Exporter;
no warnings;

use Carp;

@ISA = qw(Exporter);
@EXPORT_OK = qw( load_class);


##############################################################################"
# Utility functions
##############################################################################"


#----------------------------------
# Function, not a method!
#----------------------------------
sub load_class {
	my $oclass		= shift;
	my $prefixes	= shift || [''];
	my $opts		= shift || {};

	my $verbose		= $opts->{verbose} || 0;
	my $on_fail		= $opts->{on_fail} || 'warn';

	my $class;

	foreach my $pfx (@$prefixes) {
		$class = $pfx . $oclass;
		if (eval "require ($class);") {
			warn "load_class => Just required class '$class'\n";
			return $class;
		} else {
			if ($verbose >= 6) {
				my $msg = "load_class  => Tried to load(require) class '$oclass' via package name '$class' without any luck. Oh well. Next time perhaps.\n";

				print STDERR $msg;
			}
		}
	}

	if ($on_fail) {
		my $msg = "load_class  => Unable to load(require) class '$oclass'\n";

		print STDERR 	$msg if ($on_fail =~ /^print$/i);
		warn 			$msg if ($on_fail =~ /^warn$/i);
		die  			$msg if ($on_fail =~ /^die$/i);
		croak  			$msg if ($on_fail =~ /^croak$/i);
		clutch  		$msg if ($on_fail =~ /^clutch$/i);
	}


	return;
}





1;


__END__