Mason::Plugin::Cache (3pm)

version 0.05

    my $result = $.cache->get('key');
    if (!defined($result)) {
        ... compute $result ...
        $.cache->set('key', $result, '5 minutes');
    }

    ...

    % $.Cache('key2', '1 hour') {{
      <!-- this will be cached for an hour -->
    % }}

Adds a \*(C`cache\*(C' method and \*(C`Cache\*(C' filter to access a cache (\s-1CHI\s0) object with a namespace unique to the component.

cache_defaults

Hash of parameters passed to cache constructor. Defaults to driver=>'File', root_dir => 'DATA_DIR/cache' which will create a basic file cache under Mason's data directory.

cache_root_class

Class used to create a cache. Defaults to \s-1CHI\s0.

cache

Returns a new cache object with the namespace set to the component's path. Parameters to this method, if any, are combined with cache_defaults and passed to the cache_root_class constructor. The cache object is memoized when no parameters are passed. my $result = $.cache->get('key');

cache

Same as calling \*(C`cache\*(C' on the current component class. This usage will be familiar to Mason 1 users. my $result = $m->cache->get('key');

Caches the content using \*(C`$self->cache\*(C' and the supplied cache $key. $options is a scalar or hash reference. If a scalar, it is treated as the \*(C`expires_in\*(C' duration and passed as the third argument to \*(C`set\*(C'. If it is a hash reference, it may contain name/value pairs for both \*(C`get\*(C' and \*(C`set\*(C'. %cache_params, if any, are passed to \*(C`$self->cache\*(C'. % $.Cache($my_key, '1 hour') {{ <!-- this will be cached for an hour --> % }}

% $.Cache($my_key, { expire_if => sub { $.refresh } }, driver => 'RawMemory') {{ <!-- this will be cached until $.refresh is true --> % }} If neither $key nor $options are passed, the key is set to 'Default' and the cache never expires. % $.Cache() {{ <!-- cache this forever, or until explicitly removed --> % }}

The mailing list for Mason and Mason plugins is [email protected]. You must be subscribed to send a message. To subscribe, visit https://lists.sourceforge.net/lists/listinfo/mason-users <https://lists.sourceforge.net/lists/listinfo/mason-users>.

You can also visit us at \*(C`#mason\*(C' on <irc://irc.perl.org/#mason>.

Bugs and feature requests will be tracked at \s-1RT:\s0

http://rt.cpan.org/NoAuth/Bugs.html?Dist=Mason-Plugin-Cache [email protected]

The latest source code can be browsed and fetched at:

http://github.com/jonswar/perl-mason-plugin-cache git clone git://github.com/jonswar/perl-mason-plugin-cache.git

Mason

Jonathan Swartz <[email protected]>

This software is copyright (c) 2011 by Jonathan Swartz.

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