File Coverage

blib/lib/App/SimpleScan/Plugin/Cache.pm

Criterion	Covered	Total	%
statement	12	21	57.1
branch			n/a
condition			n/a
subroutine	4	7	57.1
pod	1	1	100.0
total	17	29	58.6

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 {
  my ($self, $rest) = @_;
  $self->stack_code("mech()->cache();\n");
}


1; # Magic true value required at end of module
__END__