File Coverage

blib/lib/Deeme/Backend/Memory.pm

Criterion	Covered	Total	%
statement	41	43	95.3
branch			n/a
condition	7	8	87.5
subroutine	10	11	90.9
pod	0	7	0.0
total	58	69	84.0

package Deeme::Backend::Memory;

use strict;
use 5.008_005;
our $VERSION = '0.01';
use Deeme::Obj 'Deeme::Backend';
use Carp 'croak';

sub events_get {
    my $self        = shift;
    my $name        = shift;
    my $deserialize = shift || 1;
    #deserializing subs and returning a reference
    #return undef if ( !$event );
    return $self->{'events'}{$name}{'functions'};
}    #get events

sub events_reset{
    my $self=shift;
    delete $self->{'events'};
}

sub events_onces {
    my $self = shift;
    my $name = shift;
    #deserializing subs and returning a reference
    return @{ $self->{'events'}{$name}{'onces'} };
}    #get events

sub once_update {
    my $self  = shift;
    my $name  = shift;
    my $onces = shift;
    $self->{'events'}{$name}{'onces'} = $onces;
}    #get events

sub event_add {
    my $self = shift;
    my $name = shift;
    my $cb   = shift;
    my $once = shift || 0;
      push @{$self->{'events'}{$name}{'functions'} ||= []}, $cb;
      push @{$self->{'events'}{$name}{'onces'} ||= []}, $once;

    return $cb;
}

sub event_delete {
    my $self = shift;
    my $name = shift;

    delete $self->{'events'}{$name};

}    #delete event

sub event_update {
    my $self      = shift;
    my $name      = shift;
    my $functions = shift;
    my $serialize = shift;

    $self->{'events'}{$name}{'functions'} = $functions;
}    #update event


1;

__END__