File Coverage

blib/lib/Data/Seek.pm

Criterion	Covered	Total	%
statement	27	27	100.0
branch	7	8	87.5
condition	2	3	66.6
subroutine	5	5	100.0
pod	1	1	100.0
total	42	44	95.4

# ABSTRACT: Search Complex Data Structures
package Data::Seek;

use Data::Seek::Data;
use Data::Seek::Search;

use Data::Object::Class;
use Data::Object qw(:core);

our $VERSION = '0.08'; # VERSION

has 'cache' => (
    is      => 'rw',
    default => 0
);

has 'data' => (
    is      => 'ro',
    default => sub {{}}
);

has 'ignore' => (
    is      => 'rw',
    default => 0
);

sub search {
    my ($self, @criteria) = @_;
    my $cache  = $self->cache;
    my $data   = $self->data;
    my $ignore = $self->ignore;

    Data::Seek::Exception->throw('Not Searchable')
        unless UNIVERSAL::isa($data, 'HASH');

    my $search;

    if ($self->cache) {
        if ($search = $self->{cached_search}) {
            $search->criteria({});
        }
    }

    $search //= Data::Seek::Search->new(
        cache  => $cache,
        ignore => $ignore,
        data   => Data::Seek::Data->new($data),
    );

    $search->criterion($_) for @criteria;

    if ($self->cache) {
        $self->{cached_search} = $search;
    }
    else {
        $self->{cached_search} = undef;
    }

    return $search->result;
}

1;

__END__