File Coverage

blib/lib/Data/Remember.pm

Criterion	Covered	Total	%
statement	84	84	100.0
branch			n/a
condition	1	2	50.0
subroutine	25	25	100.0
pod	8	8	100.0
total	118	119	99.1

use strict;
use warnings;

package Data::Remember;
{
  $Data::Remember::VERSION = '0.140490';
}
# ABSTRACT: remember complex information without giving yourself a headache

use Carp;
use Scalar::Util qw/ reftype /;
use Class::Load ();
use Data::Remember::Class;


sub import {
    my $class   = shift;
    my $brain   = shift || 'Memory';

    my $caller = caller;

    my $gray_matter = Data::Remember::Class->new($brain, @_);
    $class->_import_brain( $gray_matter => $caller );
}

sub _import_brain {
    my $class   = shift;
    my $brain   = shift;
    my $package = shift;

    no strict 'refs';

    *{"$package\::remember"}          = remember($brain);
    *{"$package\::remember_these"}    = remember_these($brain);
    *{"$package\::recall"}            = recall($brain);
    *{"$package\::recall_each"}       = recall_each($brain);
    *{"$package\::recall_and_update"} = recall_and_update($brain);
    *{"$package\::forget"}            = forget($brain);
    *{"$package\::forget_when"}       = forget_when($brain);
    *{"$package\::brain"}             = brain($brain);
}


sub remember {
    my $brain = shift;

    sub ($$) {
        my $que  = shift;
        my $fact = shift;

        $brain->remember($que, $fact);
        return;
    };
}


sub remember_these {
    my $brain = shift;

    sub ($$) {
        my $que  = shift;
        my $fact = shift;

        $brain->remember_these($que, $fact);
        return;
    };
}


sub recall {
    my $brain = shift;

    sub ($) {
        my $que = shift;

        return scalar $brain->recall($que);
    };
}


sub recall_each {
    my $brain = shift;

    sub ($) {
        my $que = shift;

        return scalar $brain->recall_each($que);
    };
}


sub recall_and_update {
    my $brain = shift;

    sub (&$) {
        my $code = shift;
        my $que  = shift;

        return scalar $brain->recall_and_update($code, $que);
    };
}


sub forget {
    my $brain = shift;

    sub ($) {
        my $que = shift;

        $brain->forget($que);
        return;
    };
}


sub forget_when {
    my $brain = shift;

    sub (&$) {
        my $code = shift;
        my $que = shift;

        $brain->forget_when($code, $que);
        return;
    };
}


sub brain {
    my $brain = shift;

    sub () { return $brain->brain };
}


1;

__END__