diff lib/IMPL/Config/ReferenceDescriptor.pm @ 421:7798345304bc ref20150831

working on IMPL::Config, removed old stuff
author cin
date Sun, 16 Jul 2017 22:59:39 +0300
parents 3ed0c58e9da3
children b0481c071bea
line wrap: on
line diff
--- a/lib/IMPL/Config/ReferenceDescriptor.pm	Sat Feb 25 22:35:26 2017 +0300
+++ b/lib/IMPL/Config/ReferenceDescriptor.pm	Sun Jul 16 22:59:39 2017 +0300
@@ -38,20 +38,22 @@
 
 	my $ref = $this->reference;
 	my %opts;
+	my $inst;
 	$opts{default} = $this->default
 	  if $this->optional;
 
 	if ( $this->lazy ) {
 		my $clone = $context->Clone();
-		return sub {
+		$inst = sub {
 			$clone->Resolve( $ref, %opts );
 		};
 	}
 	else {
-		return $context->Resolve( $ref, %opts );
+		$inst = $context->Resolve( $ref, %opts );
 	}
 
 	$context->LeaveScope();
+	return $inst;
 }
 
 1;