Mercurial > pub > Impl
view Lib/IMPL/Web/View/ObjectFactory.pm @ 377:a0d342ac9a36
sync
author | cin |
---|---|
date | Tue, 14 Jan 2014 20:06:36 +0400 |
parents | 7c517134c42f |
children |
line wrap: on
line source
package IMPL::Web::View::ObjectFactory; use strict; our $AUTOLOAD; use IMPL::declare { require => { Exception => 'IMPL::Exception', OpException => '-IMPL::InvalidOperationException' }, base =>[ 'IMPL::Object::Factory' => '@_' ] }; use IMPL::Resources::Strings { MsgNoMethod => 'Method "%method%" isn\'t found in "%target%"' }; sub AUTOLOAD { my $this = shift; my ($method) = ($AUTOLOAD =~ m/(\w+)$/); return if $method eq 'DESTROY'; my $target = $this->factory; if ( $target->can($method) ) { return $target->$method(@_); } else { die OpException->new( MsgNoMethod( method => $method, target => $target ) ); } } 1;