The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
#!perl

use strict;
use warnings;

use lib 't/lib';
use Test::More;
use Test::Deep;

use TestSchema;
my $schema = TestSchema->deploy_or_connect();
$schema->prepopulate;

my $rs = $schema->resultset('Search');

cmp_deeply
   [$rs->not_like('me.name', 'bar%')->all],
   [$rs->search({ 'me.name' => { '-not_like' => 'bar%' } })->all],
   'not_like works the same';

done_testing;