File Coverage

blib/lib/Zymurgy/Brewer.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::Brewer;
2             #use base qw(BASE);
3 1     1   1237 use Class::Std;
  1         2  
  1         7  
4 1     1   95 use Class::Std::Utils;
  1         2  
  1         6  
5              
6 1     1   38 use warnings;
  1         1  
  1         21  
7 1     1   5 use strict;
  1         1  
  1         49  
8 1     1   5 use Carp;
  1         2  
  1         73  
9              
10 1     1   6 use version; our $VERSION = qv('0.0.3');
  1         1  
  1         32  
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__