File Coverage

blib/lib/Data/Remember/POE.pm

Criterion	Covered	Total	%
statement	12	28	42.8
branch	0	2	0.0
condition			n/a
subroutine	4	9	44.4
pod	6	6	100.0
total	22	45	48.8

use strict;
use warnings;

package Data::Remember::POE;
{
  $Data::Remember::POE::VERSION = '0.140490';
}
# ABSTRACT: a brain for Data::Remember linked to the POE session heap

use Data::Remember::Util
    init_brain  => { -as => '_init_brain' };


sub new {
    my $class  = shift;
    my @config = @_;

    return bless { config => \@config }, $class;
}


sub new_heap {
    my $self = shift;

    my @config = scalar(@_) ? @_ : @{ $self->{config} };

    return _init_brain(@config);
}


sub remember {
    my $self = shift;
    my $que  = shift;
    my $fact = shift;

    return POE::Kernel->get_active_session->get_heap->remember($que, $fact);
}


sub recall {
    my $self = shift;
    my $que  = shift;

    return POE::Kernel->get_active_session->get_heap->recall($que);
}


sub forget {
    my $self = shift;
    my $que  = shift;

    return POE::Kernel->get_active_session->get_heap->forget($que);
}


sub brain {
    my $self = shift;

    return POE::Kernel->get_active_session->get_heap;
}


1;

__END__