=> Now using warnings pragma. warnings::compat is required under $] < 5.006.

   => Lots of internal fixes/re-organization to comply with Perl::Critic

      policies.

   => Bundle .perlcriticrc

0.81 Sun Sep 13 08:34:21 2009

                           : 'OFF';

}

   my $self   = shift;

   my $parent = $self->[CACHE_PARENT];

   %{$CACHE}  = ();

Returns the type of the cache.

Resets the in-memory cache and deletes all cache files, 

if you are using a disk cache.

use strict;

use warnings;

use vars qw($VERSION);

use Text::Template::Simple::Constants qw( MAX_FL RE_INVALID_CID );

use Text::Template::Simple::Util      qw( LOG DEBUG DIGEST fatal );

   return $self;

}

   my $self = shift;

   return ${$self};

}

   my $self = shift;

   my $val  = shift;

   ${$self} = $val if defined $val;

      LOG( IDGEN => 'Generating ID from empty data' ) if DEBUG;

   }

      $custom ? $self->_custom( $data, $regex )

              : $self->DIGEST->add( $data )->hexdigest

   );

}

sub _custom {

Generates an unique cache id for the supplied data.

Returns the generated cache ID.

Set the cache ID.

        ok( $size > 0, "We could call size( $size bytes )" );

        my $before = $size;

        $size = $t->cache->size;

can_ok( 'Text::Template::Simple::Cache::ID',

        qw/

            new

            generate

            _custom

        /

            new

            id

            type

            dumper

            _dump_ids

            _dump_structure