Update of /cvsroot/openinteract/OpenInteract2/lib/OpenInteract2
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv5273
Modified Files:
Cache.pm
Log Message:
debugging/doc updates
Index: Cache.pm
===================================================================
RCS file: /cvsroot/openinteract/OpenInteract2/lib/OpenInteract2/Cache.pm,v
retrieving revision 1.10
retrieving revision 1.11
diff -C2 -d -r1.10 -r1.11
*** Cache.pm 18 Feb 2004 05:25:26 -0000 1.10
--- Cache.pm 31 Oct 2004 00:26:25 -0000 1.11
***************
*** 15,18 ****
--- 15,26 ----
my ( $pkg, $conf ) = @_;
my $class = ref $pkg || $pkg;
+ $conf ||= {};
+ $log ||= get_logger( LOG_CACHE );
+ if ( $log->is_info ) {
+ $log->info( "Instantiating new cache of class '$class'" );
+ foreach my $key ( keys %{ $conf } ) {
+ $log->info( "...with key '$key' => '$conf->{ $key }'" );
+ }
+ }
my $self = bless( {}, $class );
$self->{_cache_object} = $self->initialize( $conf );
***************
*** 176,179 ****
--- 184,188 ----
use_spops = 0
class = OpenInteract2::Cache::File
+ directory = /path/to/cache
max_size = 2000000
***************
*** 286,292 ****
object passed in:
! cache_info->default_expire - Default expiration time for items
! cache_info->max_size - Maximum size (in bytes) of cache
! dir->cache_content - Root directory for content cache
B<get_data( $cache_object, $key )>
--- 295,300 ----
object passed in:
! cache_info.default_expire - Default expiration time for items
! cache_info.max_size - Maximum size (in bytes) of cache
B<get_data( $cache_object, $key )>
***************
*** 310,321 ****
Clears the cache of all items.
- =head1 TODO
-
- Nothing known.
-
- =head1 BUGS
-
- None known.
-
=head1 COPYRIGHT
--- 318,321 ----
***************
*** 327,329 ****
=head1 AUTHORS
! Chris Winters E<lt>ch...@cw...E<gt>
\ No newline at end of file
--- 327,329 ----
=head1 AUTHORS
! Chris Winters E<lt>ch...@cw...E<gt>
|
