view Lib/IMPL/base.pm @ 157:c7652cf29a80

Fixed PostToDom with empty fields issue. Fixed the includes search order for TT::Document.
author wizard
date Wed, 20 Oct 2010 18:02:47 +0400
parents e6447ad85cb4
children 6ce1f052b90a
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; 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