[Http-webtest-commits] CVS: HTTP-WebTest/lib/HTTP/WebTest Plugin.pm,1.6,1.7

[Ilya M. <m_...@us...>]

Update of /cvsroot/http-webtest/HTTP-WebTest/lib/HTTP/WebTest
In directory usw-pr-cvs1:/tmp/cvs-serv24803/lib/HTTP/WebTest

Modified Files:
	Plugin.pm 
Log Message:
Cache values of test parameters


Index: Plugin.pm
===================================================================
RCS file: /cvsroot/http-webtest/HTTP-WebTest/lib/HTTP/WebTest/Plugin.pm,v
retrieving revision 1.6
retrieving revision 1.7
diff -C2 -d -r1.6 -r1.7
*** Plugin.pm	15 Feb 2002 13:13:39 -0000	1.6
--- Plugin.pm	15 Feb 2002 14:48:01 -0000	1.7
***************
*** 159,162 ****
--- 159,165 ----
  }
  
+ # reference on hash which caches return value of subroutine calls
+ *_sub_cache = make_access_method('_SUB_CACHE', sub { {} });
+ 
  # searches passed data structure for code references and replaces them
  # with value returned by referenced subs
***************
*** 166,170 ****
  
      if(ref($value) eq 'CODE') {
! 	$value = $value->();
      }
  
--- 169,180 ----
  
      if(ref($value) eq 'CODE') {
! 	# check if value is in cache; value returned from subroutine
! 	# is cached so we don't evaluate test parameter value more
! 	# than one time
! 	unless(${$self->_sub_cache}{$value}) {
! 	    ${$self->_sub_cache}{$value} = $value->();
! 	}
! 
! 	$value = ${$self->_sub_cache}{$value};
      }