File Coverage

blib/lib/Text/MicroMason/Cache/Simple.pm
Criterion Covered Total %
statement 7 9 77.7
branch n/a
condition n/a
subroutine 4 5 80.0
pod 4 4 100.0
total 15 18 83.3


line stmt bran cond sub pod time code
1             package Text::MicroMason::Cache::Simple;
2              
3 4     4   12 use strict;
  4         4  
  4         345  
4              
5             ######################################################################
6              
7 18     18 1 13 sub new { my $class = shift; bless { @_ }, $class }
  18         96  
8              
9 118     118 1 460 sub get { $_[0]->{ $_[1] } }
10              
11 46     46 1 429 sub set { $_[0]->{ $_[1] } = $_[2] }
12              
13 0     0 1   sub clear { %{ $_[0] } = () }
  0            
14              
15             ######################################################################
16              
17             1;
18              
19             __END__