KiokuDB::Backend::Role::Query::Simple::Linear - Query::Simple implemented with

KiokuDB documentation Contained in the KiokuDB distribution.

Index

Code Index:

NAME

Top

KiokuDB::Backend::Role::Query::Simple::Linear - Query::Simple implemented with a linear scan of all entries.

SYNOPSIS

Top

    package MyBackend;
    use Moose;

    with qw(
        KiokuDB::Backend::Role::Scan
        KiokuDB::Backend::Role::Query::Simple::Linear
    );

DESCRIPTION

Top

This role can provide a primitive search facility (the API described in KiokuDB::Backend::Role::Query::Simple) using the api provided by KiokuDB::Backend::Role::Scan. While very inefficient for large data sets, of your databases are small this can be useful.

KiokuDB documentation Contained in the KiokuDB distribution. 
#!/usr/bin/perl

package KiokuDB::Backend::Role::Query::Simple::Linear;
use Moose::Role;

use namespace::clean -except => 'meta';

with qw(KiokuDB::Backend::Role::Query::Simple);

requires "root_entries";

sub simple_search {
    my ( $self, $proto ) = @_;

    # FIXME $proto is sql::abstract 2? or...?

    my $root_set = $self->root_entries;

    return $root_set->filter(sub {
        return [ grep {
            my $entry = $_;
            $self->compare_naive($entry->data, $proto);
        } @$_ ]
    });
}

__PACKAGE__

__END__