[Openinteract-commits] CVS: OpenInteract2/lib/OpenInteract2 Cache.pm,1.13,1.14

[Chris W. <la...@us...>]

Update of /cvsroot/openinteract/OpenInteract2/lib/OpenInteract2
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv10769/lib/OpenInteract2

Modified Files:
	Cache.pm 
Log Message:
add some sugar to get() to allow just a single argument (the key) to be passed in

Index: Cache.pm
===================================================================
RCS file: /cvsroot/openinteract/OpenInteract2/lib/OpenInteract2/Cache.pm,v
retrieving revision 1.13
retrieving revision 1.14
diff -C2 -d -r1.13 -r1.14
*** Cache.pm	18 Mar 2005 04:09:48 -0000	1.13
--- Cache.pm	3 Jul 2005 16:24:21 -0000	1.14
***************
*** 45,49 ****
      }
  
!     my $key       = $p->{key};
      my $is_object = 0;
      my $obj_class = undef;
--- 45,58 ----
      }
  
!     # allow for get( $key ) and get({ key => $key }) calling methods
!     my ( $key );
!     if ( ref $p ) {
!         $key = $p->{key};
!     }
!     else {
!         $key = $p;
!         $p   = {}; 
!     }
! 
      my $is_object = 0;
      my $obj_class = undef;
***************
*** 57,62 ****
      }
      unless ( $key ) {
!         $log->is_debug &&
!             $log->debug( "Cache MISS (no key)" );
          return undef;
      }
--- 66,70 ----
      }
      unless ( $key ) {
!         $log->is_debug && $log->debug( "Cache MISS (no key)" );
          return undef;
      }
***************
*** 64,74 ****
      my $data = $self->get_data( $self->{_cache_object}, $key );
      unless ( $data ) {
!         $log->is_debug &&
!             $log->debug( "Cache MISS [$key]" );
          return undef;
      }
  
!     $log->is_debug &&
!         $log->debug( "Cache HIT [$key]" );
      if ( $is_object ) {
          return undef unless ( $obj_class->post_cache_get( $data ) );
--- 72,80 ----
      my $data = $self->get_data( $self->{_cache_object}, $key );
      unless ( $data ) {
!         $log->is_debug && $log->debug( "Cache MISS [$key]" );
          return undef;
      }
  
!     $log->is_debug && $log->debug( "Cache HIT [$key]" );
      if ( $is_object ) {
          return undef unless ( $obj_class->post_cache_get( $data ) );
***************
*** 244,252 ****
  =back
  
! B<get( \%params )>
  
  Returns the data in the cache associated with a key; undef if data
  corresponding to the key is not found.
  
  B<set( \%params )>
  
--- 250,262 ----
  =back
  
! B<get( $key || \%params )>
  
  Returns the data in the cache associated with a key; undef if data
  corresponding to the key is not found.
  
+ Note that the common case (where you just want to retrieve a cached
+ item by key) allows you to skip creating a hashref to pass in a single
+ argument.
+ 
  B<set( \%params )>