File Coverage

blib/lib/Data/Remember/Util.pm

Criterion	Covered	Total	%
statement	29	31	93.5
branch	11	18	61.1
condition			n/a
subroutine	6	6	100.0
pod	2	2	100.0
total	48	57	84.2

package Data::Remember::Util;
{
  $Data::Remember::Util::VERSION = '0.140490';
}
use strict;
use warnings;

use Carp;
use Sub::Exporter -setup => {
    exports => [ qw( process_que init_brain ) ],
};

# ABSTRACT: common helper utilities


sub process_que {
    my $que = shift;

    my @ques;
    if (ref $que eq 'ARRAY') {
        @ques = @$que;
    }

    elsif (ref $que eq 'HASH') {
        for my $key (sort keys %$que) {
            push @ques, $key, $que->{$key};
        }
    }

    else {
        @ques = ($que);
    }

    for my $que (@ques) {
        return undef unless defined $que;
    }

    return \@ques;
}


sub init_brain {
    my $brain = shift;

    $brain = 'Data::Remember::' . $brain
        unless $brain =~ /::/;

    $brain =~ /^[\w:]+$/
        or croak qq{This does not look like a valid brain: $brain};

    Class::Load::load_class($brain)
        or carp qq{The brain $brain may not have loaded correctly: $@};

    my $gray_matter = $brain->new(@_);

    # Duck typing!
    $gray_matter->can('remember')
        or croak qq{Your brain cannot remember facts: $brain};
    $gray_matter->can('recall')
        or croak qq{Your brain cannot recall facts: $brain};
    $gray_matter->can('forget')
        or croak qq{Your brain cannot forget facts: $brain};

    return $gray_matter;
}

1;

__END__