Mercurial > pub > Impl
view Lib/IMPL/base.pm @ 144:b56ebc31bf18
Empty nodes no more created while transforming a post request to the DOM document
minor speed improvements to the object CTOR caching
Added support for a secure processing (and 'laundering' ) a CGI parameters
Many minor fixes
author | wizard |
---|---|
date | Tue, 13 Jul 2010 02:05:38 +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