File Coverage

blib/lib/App/Alice/MessageStore/Memory.pm

Criterion	Covered	Total	%
statement	8	16	50.0
branch	1	4	25.0
condition			n/a
subroutine	2	4	50.0
pod	0	3	0.0
total	11	27	40.7

package App::Alice::MessageStore::Memory;

use Any::Moose;

has msgbuffer => (
  is => 'rw',
  isa => 'ArrayRef',
  default => sub {[]}
);

has buffersize => (
  is => 'ro',
  default => 100
);

sub add {
  my ($self, $message) = @_;
  push @{$self->msgbuffer}, $message;
  if (@{$self->msgbuffer} > $self->buffersize) {
    shift @{$self->msgbuffer};
  }
}

sub clear {
  my $self = shift;
  $self->msgbuffer([]);
}

sub with_messages {
  my ($self, $cb, $start, $complete_cb) = @_;
  $cb->(@{ $self->msgbuffer });
  $complete_cb->() if $complete_cb;
}

__PACKAGE__->meta->make_immutable;
1;