package
App::RecordStream::Accumulator;
our
$VERSION
=
"4.0.8"
;
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;