File Coverage

blib/lib/Acme/HidamariSketch/Base.pm
Criterion Covered Total %
statement 17 17 100.0
branch n/a
condition n/a
subroutine 5 5 100.0
pod 0 1 0.0
total 22 23 95.6


line stmt bran cond sub pod time code
1             package Acme::HidamariSketch::Base;
2              
3 4     4   61 use strict;
  4         7  
  4         143  
4 4     4   24 use warnings;
  4         7  
  4         97  
5 4     4   22 use utf8;
  4         8  
  4         21  
6              
7             our $VERSION = '0.05';
8              
9              
10             sub new {
11 40     40 0 730 my $class = shift;
12              
13 40         144 my $self = bless {}, $class;
14              
15 40         188 $self->_init;
16              
17 40         148 return $self;
18             }
19              
20             sub _init {
21 40     40   54 my $self = shift;
22 40         124 my %info = $self->info;
23              
24 40         685 $self->{$_} = $info{$_} for keys %info;
25              
26 40         144 return 1;
27             }
28              
29              
30             1;