--- a/Lib/IMPL/Config/Resolve.pm	Tue Apr 27 20:10:07 2010 +0400
+++ b/Lib/IMPL/Config/Resolve.pm	Wed Apr 28 17:50:55 2010 +0400
@@ -1,47 +1,61 @@
 package IMPL::Config::Resolve;
-use base qw(IMPL::Object IMPL::Object::Autofill IMPL::Object::Serializable);
+use strict;
+use base qw(IMPL::Object IMPL::Object::Serializable);
 
 use IMPL::Class::Property;
 use IMPL::Exception;
 
 BEGIN {
-	public property target => prop_all;
-	public property path => prop_all;
-	public property default => prop_all
+	public property path => prop_all|prop_list;
 }
 
 __PACKAGE__->PassThroughArgs;
 
 sub CTOR {
-	my ($this) = @_;
+	my $this = shift;
+	
+	my $list = $this->path;
 	
-	die new IMPL::InvalidArgumentException("The argument is mandatory","target") unless $this->target;
-	die new IMPL::InvalidArgumentException("The argument is mandatory","path") unless $this->path;
+	while(my $name = shift ) {
+		my $args = shift;
+		$list->Append({ method => $name, (defined $args ? (args => $args) : ()) });
+	}
+	
+	die new IMPL::InvalidArgumentException("The argument is mandatory","path") unless $this->path->Count;
 }
 
 sub Invoke {
-	my ($this) = @_;
-	
-	my $path = $this->path;
+	my ($this,$target,$default) = @_;
 	
-	if (ref $path eq 'ARRAY') {
-		my $result = $this->target;
-		$result = $this->_InvokeMember($result,$_) || return $this->default foreach @$path;
-		return $result;
-	} elsif (not ref $path) {
-		my $result = $this->target;
-		$result = $this->_InvokeMember($result,$_) || return $this->default foreach map { name => $_},split /\./,$this->path;
-		return $result;
-	} else {
-		die new IMPL::InvalidOperationException("Unsopported path type",ref $path);
-	}
+	my $result = $target;
+	$result = $this->_InvokeMember($result,$_) || return $default foreach $this->path;
+	
+	return $result;
 }
 
 sub _InvokeMember {
 	my ($self,$object,$member) = @_;
 	
+	my $method = $member->{method};
+	
 	local $@;
-	return eval { $object->($member->{method})(exists $member->{parameters} ? _as_list($member->{parameters}) : ()) };
+	return eval {
+		ref $object eq 'HASH' ?
+			$object->{$method}
+			:
+			$object->$method(
+				exists $member->{args} ?
+					_as_list($member->{args})
+					:
+					()
+			)
+	};
+}
+
+sub save {
+	my ($this,$ctx) = @_;
+	
+	$ctx->AddVar($_->{method},$_->{args}) foreach $this->path;
 }
 
 sub _as_list {