File Coverage

lib/Measure/Everything/Adapter/Base.pm
Criterion Covered Total %
statement 6 13 46.1
branch n/a
condition 0 3 0.0
subroutine 2 5 40.0
pod 0 3 0.0
total 8 24 33.3


line stmt bran cond sub pod time code
1             package Measure::Everything::Adapter::Base;
2 1     1   748 use strict;
  1         1  
  1         25  
3 1     1   4 use warnings;
  1         1  
  1         116  
4              
5             # ABSTRACT: Base class for adapters
6              
7             sub new {
8 0     0 0   my $class = shift;
9 0           my $self = {@_};
10 0           bless $self, $class;
11 0           $self->init(@_);
12 0           return $self;
13             }
14              
15       0 0   sub init { }
16              
17             sub write {
18 0   0 0 0   my $class = ref( $_[0] ) || $_[0];
19 0           die "$class does not implement 'write'";
20             }
21              
22             1;
23              
24             __END__