File Coverage

blib/lib/Data/Freezer/FreezingBag.pm
Criterion Covered Total %
statement 3 6 50.0
branch n/a
condition n/a
subroutine 1 2 50.0
pod 0 1 0.0
total 4 9 44.4


line stmt bran cond sub pod time code
1             package Data::Freezer::FreezingBag ;
2              
3 1     1   5852 use base qw/Class::AutoAccess/;
  1         2  
  1         992  
4              
5             our $VERSION = '0.01';
6              
7             sub new{
8 0     0 0   my ($class) = @_ ;
9 0           my $self = {
10             'freezeDate' => time , # Object creation
11             'content' => undef ,
12             'note' => ''
13             };
14 0           return bless $self, $class ;
15             }
16              
17             1;