Mercurial > pub > Impl
view Lib/IMPL/Config/Path.pm @ 359:833e663796c4
TTView: added view variable to pass rendering context between controls
TTView: display function renamed to display_for
WebResource: resources now marked with roles for searching a desired resource by a role in the resource chain
author | sergey |
---|---|
date | Mon, 25 Nov 2013 02:19:31 +0400 |
parents | 91bae9f41a9c |
children | 212cc86e470b |
line wrap: on
line source
package IMPL::Config::Path; use strict; use IMPL::Config(); use IMPL::require { Exception => 'IMPL::Exception', OpException => '-IMPL::InvalidOperationException' }; sub restore { my ($self,$data,$surrogate) = @_; die OpException->new("Invalid content") unless ref $data eq 'ARRAY' && @$data == 2; my ($base,$path) = @$data; my %types = ( appBase => 'AppBase', configBase => 'ConfigBase' ); my $method = $types{$base}; die OpException->new("Unsupported path type",$base) unless $method; return IMPL::Config->$method($path); } 1;