The Perl and Raku Conference 2025: Greenville, South Carolina - June 27-29 Learn more

#
# This file is part of CatalystX-ExtJS
#
# This software is Copyright (c) 2011 by Moritz Onken.
#
# This is free software, licensed under:
#
# The (three-clause) BSD License
#
package # hide
TestSchema::ResultSet::User;
use strict;
sub extjs_rest_user {
my ($self, $c) = @_;
return $self unless(my $ending = $c->req->params->{ending});
return $self->search({ id => { LIKE => '%'.$ending } });
}
sub hri {
shift->search( undef, { result_class => 'DBIx::Class::ResultClass::HashRefInflator' } );
}
sub none {
shift->search({ id => undef });
}
sub not {
my ($self, $c, $not) = @_;
$self->search({ id => { '!=' => $not } });
}
sub foo { shift }
1;