view Lib/IMPL/Code/MethodCache.pm @ 171:59e5fcb59d86

Исправления, изменена концепция веб-форм
author sourcer
date Mon, 06 Jun 2011 03:30:36 +0400
parents c2aa10fbb396
children
line wrap: on
line source

package IMPL::Code::MethodCache;
use strict;
use IMPL qw(Debug);

my %cachedMethods;

sub dbgBuildCachedMethod {
	my ($class,$method,$prefix,$mappers)= @_;
	
	no strict 'refs';
	
	$prefix ||= 'call';
	
	my $proxyMethod = "$prefix$method";
	
	die new IMPL::Exception("A proxy method already exists") if *{"${class}::$proxyMethod"}{CODE};
	
	my @methodCache = cacheMethod($class,$method,$mappers);
	
	*{"${class}::$proxyMethod"} = sub {
		$_->(@_) foreach @methodCache;
	}
}

sub cacheMethod {
	my ($class,$method,$mappers) = @_;
}

1;