File Coverage

blib/lib/Zymurgy.pm
Criterion Covered Total %
statement 18 24 75.0
branch n/a
condition n/a
subroutine 6 8 75.0
pod 0 2 0.0
total 24 34 70.5


line stmt bran cond sub pod time code
1             package Zymurgy;
2             #use base qw(BASE);
3 1     1   23378 use Class::Std;
  1         18986  
  1         7  
4 1     1   4333 use Class::Std::Utils;
  1         13549  
  1         15  
5              
6 1     1   53 use warnings;
  1         7  
  1         28  
7 1     1   4 use strict;
  1         2  
  1         27  
8 1     1   4 use Carp;
  1         1  
  1         51  
9              
10 1     1   5 use version; our $VERSION = qv('0.0.3');
  1         1  
  1         3  
11              
12             {
13             my %attribute_of : ATTR( init_arg => 'attribute' );
14 0     0 0   sub get_attribute { my ($self) = @_; return $attribute_of{ident $self}; }
  0            
15 0     0 0   sub set_attribute { my ($self, $value) = @_; my $ident = ident $self; $attribute_of{$ident} = $value; return; }
  0            
  0            
  0            
16             }
17              
18             1; # Magic true value required at end of module
19             __END__