view Lib/IMPL/base.pm @ 145:bd10093bb122

Minor changes
author wizard
date Wed, 21 Jul 2010 06:27:12 +0400
parents 44977efed303
children e6447ad85cb4
line wrap: on
line source

package IMPL::base;
use strict;

my %loaded;

sub import {
	shift;
	
	no strict 'refs';
	my $class = caller;
	
	foreach my $baseClass (@_) {
		unless ($loaded{$baseClass}) {
			undef $!;
			undef $@;
			$loaded{$baseClass} = 1;
			eval "require $baseClass;";
			
			die $@ if $@ and not $!;
		}
		
		#TODO debug warn if base class is empty;
		
		push @{"${class}::ISA"}, $baseClass;
	}
}

1;

__END__

=pod

=head1 NAME

C<IMPL::base> быстрая версия директивы C<base>.

=cut