Anonymous

use strict;
use warnings ;

###############################################################################
package ChimeFault::EventCache;

# return an empty ring structure
sub new {
    my $class = shift;
    my $self = bless {}, $class;
    $self->{cache} = {} ;
    return $self;
}

sub entriesdata {
    my ($self,$event) = @_;

    unless (defined $self->{cache}->{entries}) {
        $self->{cache}->{entries} = [ $event->entries ];
    }

    return $self->{cache}->{entries};
}

sub milestonesdata {
    my ($self,$event) = @_;

    unless (defined $self->{cache}->{milestones}) {
        @{$self->{cache}->{milestones}} = $event->milestones;
    }

    return @{$self->{cache}->{milestones}};
}

1;