/ 
CGI-Application-Plugin-Cache-Adaptive-0.02
River stage zero No dependents
/ CGI::Application::Plugin::Cache::Adaptive

NAME

CGI::Application::Plugin::Cache::Adaptive - Provide cacheable to method using attribute.

VERSION

version 0.02

SYNOPSIS

package MyApp;
use base qw(CGI::Application);
use CGI::Application::Plugin::Cache::Adaptive;

use Cache::FileCache;

sub setup {
  my $self = shift;

  $self->start_mode('default');
  $self->run_modes(
      'default' => 'do_default'
  );

  $self->cache_adaptive({
      backend => Cache::FileCache->new({
          namespace => 'html_cache',
          max_size  => 10 * 1024 * 1024,
      }),
      expires_min => 3,
      expires_max => 60,
      check_load  => sub {
          my $entry = shift;
          int($entry->{process_time} * 2) - 1;
      },
  });
}

sub do_default : Cacheable(qw/path path_info query/) {
  sleep 10;
  return "test";
}

DESCRIPTION

This module provides adaptive cache to specified method by 'Cacheable' attribute. Cache mechanism depends on Cache::Adaptive.

USAGE

Cacheable attribute

Cacheable attribute is able to accept some arguments. The arguments effects Cache::Adaptive behavior.

The arguments must be array or hash reference. See below the arguments detail.

Array arguments

Example,

sub do_something : Cacheable(qw/path session/) {
    # process by user
}

Array arguments accepts 4 items,

path

Add path(script_name) to cache key salt.

query

Add query string to cache key salt.

path_info

Add path_info to cache key salt.

session

Add session_id to cache key salt.

Hash reference arguments

Example,

sub do_something : Cacheable({key_from => [qw/path path_info/], label => 'memcached'}) {
    # some process
}

Hash reference accepts 2 original key and any key permitted by Cache::Adaptive's access method.

key_from

Same as array arguments. See "Array arguments" in CGI::Application::Plugin::Cache::Adaptive.

label

Change cache profile to specified labeled cache object. See "cache_adaptive($label)" in Cache::Adaptive.

METHODS

cache_adaptive()

Alias cache_adaptive('default'). See "cache_adaptive($label)" in CGI::Application::Plugin::Cache::Adaptive

cache_adaptive($label)

Get Cache::Adaptive object by label.

cache_adaptive($hash_ref)

Set Cache::Adaptive object to 'default' label. The $hash_ref is Cache::Adaptive's new parameter.

cache_adaptive($cache_obj)

Set Cache::Adaptive or that inheritance object to 'default' label.

cache_adaptive($label, $hash_ref)

Set Cache::Adaptive object to specified label. The $hash_ref is Cache::Adaptive's new parameter.

cache_adaptive($label, $cache_obj)

Set Cache::Adaptive or that inheritance object to specified label.

CGI::Application::Cacheable()

Provide cacheable to specified method. See Attribute::Handlers

SEE ALSO

Cache::Adaptive
CGI::Application
CGI::Application::Plugin::AutoRunmode
Attribute::Handlers

AUTHOR

Toru Yamaguchi, <zigorou@cpan.org>

THANKS

Kazuho Oku, <kazuhooku@gmail.com>

BUGS

Please report any bugs or feature requests to bug-cgi-application-plugin-cache-adaptive@rt.cpan.org, or through the web interface at http://rt.cpan.org. I will be notified, and then you'll automatically be notified of progress on your bug as I make changes.

COPYRIGHT & LICENSE

Copyright 2007 Toru Yamaguchi, All Rights Reserved.

This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.