view release on metacpan or  search on metacpan

t/04_tut.t  view on Meta::CPAN

        {   '_score' => 1,
            '_id'    => 4,
            'title'  => 'test record four.'
        },
        {   '_score' => 2,
            '_id'    => 3,
            'title'  => 'test test record three.'
        },
        {   '_score' => 2,
            '_id'    => 8,
            'title'  => 'test test record eight.'
        },
        {   '_score' => 2,
            '_id'    => 9,
            'title'  => 'test test record nine.'
        },
        {   '_score' => 3,
            '_id'    => 5,
            'title'  => 'test test test record five.'
        },
        {   '_score' => 3,
            '_id'    => 7,
            'title'  => 'test test test record seven.'
        },
        {   '_score' => 4,
            '_id'    => 6,
            'title'  => 'test test test test record six.'
        }
    ]
);

# filter test.
$result = $g->call(
    select => {
        table          => "Site",
        query          => 'title:@test',
        filter         => '_id > 1 && _id < 5',
        output_columns => [qw(_id _score title)],
        sortby         => [qw(_score _id)],
    }
)->recv;

is_deeply(
    $result->items,
    [   {   '_score' => 3,
            '_id'    => 2,
            'title'  => 'test record 2.'
        },
        {   '_score' => 3,
            '_id'    => 4,
            'title'  => 'test record four.'
        },
        {   '_score' => 4,
            '_id'    => 3,
            'title'  => 'test test record three.'
        }
    ]
);

sub _cleanup {
    my @files = glob( File::Spec->catfile( $FindBin::RealBin, "data", "*" ) );
    if ( @files > 0 ) {
        for (@files) {
            unlink $_;
        }
    }
}