Vim Patior

Edit file

File name : NullCache.pm

Content :

######################################################################
# $Id: NullCache.pm,v 1.7 2002/07/18 06:15:18 dclinton Exp $
# Copyright (C) 2001 Jay Sachs, 2002 DeWitt Clinton All Rights Reserved
#
# Software distributed under the License is distributed on an "AS
# IS" basis, WITHOUT WARRANTY OF ANY KIND, either expressed or
# implied. See the License for the specific language governing
# rights and limitations under the License.
######################################################################

package Cache::NullCache;

use strict;
use vars qw( @ISA );
use Cache::BaseCache;
use Cache::Cache qw( $EXPIRES_NOW  );

@ISA = qw ( Cache::BaseCache );

sub Clear
{
}

sub Purge
{
}

sub Size
{
  return 0;
}

sub new
{
  my ( $proto ) = @_;

return bless( {}, ref( $proto ) || $proto );
}

sub clear
{
}

sub get
{
  return undef;
}

sub get_object
{
  return undef;
}

sub purge
{
}

sub remove
{
}

sub set
{
}

sub set_object
{
}

sub size
{
  return 0;
}

sub get_default_expires_in
{
  return $EXPIRES_NOW;
}

sub get_keys
{
  return ( );
}

sub get_identifiers
{
  warn( "get_identifiers has been marked deprepricated.  use get_keys" );

return ( );
}

sub get_auto_purge_interval
{
  return 0;
}

sub set_auto_purge_interval
{
}

sub get_auto_purge_on_set
{
  return 0;
}

sub set_auto_purge_on_set
{
}

sub get_auto_purge_on_get
{
  return 0;
}

sub set_auto_purge_on_get
{
}

__END__

=pod

=head1 NAME

Cache::NullCache -- implements the Cache interface.

=head1 DESCRIPTION

The NullCache class implements the Cache::Cache interface, but does
not actually persist data.  This is useful when developing and
debugging a system and you wish to easily turn off caching.  As a
result, all calls to get and get_object will return undef.

=head1 SYNOPSIS

use Cache::NullCache;

my $cache = new Cache::NullCache( );

See Cache::Cache for the usage synopsis.

=head1 METHODS

See Cache::Cache for the API documentation.

=head1 OPTIONS

See Cache::Cache for standard options.

=head1 PROPERTIES

See Cache::Cache for default properties.

=head1 SEE ALSO

Cache::Cache

=head1 AUTHOR

Original author: Jay Sachs

Last author:     $Author: dclinton $

=cut