Unnamed

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}->{$event}->{entries}) {
        @{$self->{cache}->{$event}->{entries}} = $event->entries;
    }

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

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

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

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

1;