File Coverage

blib/lib/App/RecordStream/Accumulator.pm

Criterion	Covered	Total	%
statement	8	8	100.0
branch			n/a
condition	2	2	100.0
subroutine	3	3	100.0
pod	0	3	0.0
total	13	16	81.2

package App::RecordStream::Accumulator;

our $VERSION = "4.0.23";

sub accept_record {
  my $this = shift;
  $this->accumulate_record(shift);
}

sub accumulate_record {
  my $this = shift;
  push @{$this->get_records()}, shift;
}

sub get_records {
  my $this = shift;

  $this->{'RECORDS'} ||= [];
  return $this->{'RECORDS'};
}

1;