File Coverage

blib/lib/Data/Seek/Search/Result.pm

Criterion	Covered	Total	%
statement	35	35	100.0
branch			n/a
condition			n/a
subroutine	7	7	100.0
pod	3	3	100.0
total	45	45	100.0

# ABSTRACT: Data::Seek Search Result Class
package Data::Seek::Search::Result;

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

use Data::Object::Class;

our $VERSION = '0.06'; # VERSION

has 'datasets' => (
    is      => 'ro',
    default => sub { shift->search->perform },
    lazy    => 1
);

has 'search' => (
    is      => 'ro',
    default => sub { Data::Seek::Search->new },
    lazy    => 1
);

sub data {
    my $self = shift;
    my $sets = $self->datasets;
    my $data = {};

    for my $set (@$sets) {
        for my $node (@{$$set{nodes}}) {
            $$data{$node} = $$set{dataset}{$node};
        }
    }

    $data = Data::Seek::Data->new(object => $data);
    return $data->decode;
}

sub nodes {
    my $self = shift;
    my $sets = $self->datasets;
    my $keys = [];

    for my $set (@$sets) {
        push @$keys, sort @{$$set{nodes}};
    }

    return $keys;
}

sub values {
    my $self = shift;
    my $sets = $self->datasets;
    my $vals = [];

    for my $set (@$sets) {
        push @$vals, $$set{dataset}{$_} for sort @{$$set{nodes}};
    }

    return $vals;
}

1;

__END__