view release on metacpan or  search on metacpan

lib/App/SimpleScan/Plugin/Cache.pm  view on Meta::CPAN

package App::SimpleScan::Plugin::Cache;

our $VERSION = '0.02';

use warnings;
use strict;
use Carp;

sub pragmas {
  no strict 'refs';
  *{caller() . '::_cache'} = \&_do_cache;
  *{caller() . '::_nocache'} = \&_do_nocache;
  return ['cache', \&_do_cache],
         ['nocache', \&_do_nocache];
}

sub _do_nocache {
  my ($self, $rest) = @_;
  $self->stack_code("mech()->nocache();\n");
}
    
sub _do_cache {