File Coverage

blib/lib/Mixin/Historian/Driver/Array.pm

Criterion	Covered	Total	%
statement	19	19	100.0
branch			n/a
condition			n/a
subroutine	7	7	100.0
pod	0	3	0.0
total	26	29	89.6

package Mixin::Historian::Driver::Array 0.102001;
use base 'Mixin::Historian::Driver';
# ABSTRACT: a driver that stores history in an in-memory array (for testing)

use strict;
use warnings;

#pod =head1 DESCRIPTION
#pod
#pod This driver, meant primarily for testing, logs history events as hashrefs in an
#pod in-memory arrayref stored in the driver.
#pod
#pod The events may accessed by the driver's C method, and are returned as
#pod a list of hashrefs in the form:
#pod
#pod   {
#pod     time   => $epoch_seconds,
#pod     record => $hashref_passed_to_add_history,
#pod   }
#pod
#pod =cut

sub new {
  my ($class, $arg) = @_;

  return bless {
    array => [],
  } => $class;
}

sub _array {
  $_[0]{array};
}

sub entries {
  my ($self) = @_;
  return @{ $self->_array };
}

sub add_history {
  my ($self, $arg) = @_;

  my $record = $arg->{args}[0];

  push @{ $self->_array }, {
    time   => time,
    record => $record,
  };
}

1;

__END__