From Code to Community: Sponsoring The Perl and Raku Conference 2025 Learn more

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;