lib/Catalyst/Plugin/Cache/Backend/Util.pm

   1 #!/usr/bin/perl
   2
   3 package Catalyst::Plugin::Cache::Backend::Util;
   4
   5 use strict;
   6 use warnings;
   7
   8 sub default_ttl {
   9     my ( $self, $key ) = @_;
  10     2 * 60 * 60; # 2 hours
  11 }
  12
  13 sub expires {
  14     my ( $self, $key ) = @_;
  15     time() + $self->default_ttl( $key );
  16 }
  17
  18 sub serialize_value {
  19
  20 }
  21
  22 sub deserialize_value {
  23
  24 }
  25
  26 __PACKAGE__;
  27
  28 __END__
  29
  30 =pod
  31
  32 =head1 NAME
  33
  34 Catalyst::Plugin::Cache::Backend::Util - Useful base class methods for cache
  35 backends.
  36
  37 =head1 SYNOPSIS
  38
  39         use Catalyst::Plugin::Cache::Backend::Util;
  40
  41 =head1 DESCRIPTION
  42
  43 =cut
  44
  45