test_match.pl

#!/usr/bin/env perl

use strict;
use warnings;

use feature 'say';
use Data::Dump;

use FindBin;
use lib "$FindBin::Bin/../lib";

use LawDB::Schema;

my $database = shift;
my $schema = LawDB::Schema->connect( 'dbi:SQLite:dbname=' . $database );

my @result = $schema->resultset('ArticleIdx')->search( { content => { match => 'secteur' } } );

foreach my $result (@result) {
    say $result->numid->lawid->title;
}