File Coverage

blib/lib/Data/Seek.pm

Criterion	Covered	Total	%
statement	24	25	96.0
branch	7	8	87.5
condition	2	3	66.6
subroutine	4	4	100.0
pod	1	1	100.0
total	38	41	92.6

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

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

use Data::Object::Class;

our $VERSION = '0.06'; # 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;

    unless (UNIVERSAL::isa($data, 'HASH')) {
        Data::Seek::Exception->throw(
            message => 'DATA NOT A HASH REFERENCE OR BLESSED HASH OBJECT'
        );
    }

    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(
            object => $data
        ),
    );

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

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

    return $search->result;
}

1;

__END__