File Coverage

lib/Measure/Everything/Adapter/Test.pm

Criterion	Covered	Total	%
statement	9	18	50.0
branch			n/a
condition			n/a
subroutine	3	7	42.8
pod	2	4	50.0
total	14	29	48.2

package Measure::Everything::Adapter::Test;
use strict;
use warnings;

use base qw(Measure::Everything::Adapter::Base);

# ABSTRACT: Test Adapter: for testing...

sub init {
    my $self = shift;
    $self->{_stats} = [];
}

sub write {
    my $self = shift;

    push(@{$self->{_stats}}, [@_]);
}


sub get_stats {
    my $self = shift;

    return $self->{_stats};
}


sub reset {
    my $self = shift;

    $self->{_stats} = [];
}

1;

__END__