# HG changeset patch
# User sergey
# Date 1355843911 -14400
# Node ID 91bae9f41a9cf2d52f5cff5a5c3e7c8683c7d47e
# Parent  32aceba4ee6d74b225917c5a6e12f4a3bd2b45c0
Added class for referencing paths in configuration files

diff -r 32aceba4ee6d -r 91bae9f41a9c Lib/IMPL/Config/Path.pm
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/Lib/IMPL/Config/Path.pm	Tue Dec 18 19:18:31 2012 +0400
@@ -0,0 +1,29 @@
+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;
\ No newline at end of file