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; 1;";
			
			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