The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
package TestApp::Schema::ResultSet::Stations;
use parent 'DBIx::Class::ResultSet';
use strict;
use warnings;

sub controller_search {
   my $self = shift;
   return $self->search({ id => 3 });
}

sub controller_sort {
   my $self = shift;
   return $self->search(undef, { order_by => 'bill' });
}

1;