[catagits/Catalyst-Controller-DBIC-API.git] / t / lib / RestTest / Controller / API / RPC / TrackSetupDBICArgs.pm

package RestTest::Controller::API::RPC::TrackSetupDBICArgs;
use Moose;
BEGIN { extends 'Catalyst::Controller::DBIC::API::RPC' }

use namespace::autoclean;

__PACKAGE__->config
    ( action => { setup => { PathPart => 'track_setup_dbic_args', Chained => '/api/rpc/rpc_base' } },
      class => 'RestTestDB::Track',
      select => [qw/position title/],
      ordered_by => [qw/position/],
      );

override list_munge_parameters => sub
{
	my ($self, $c) = @_;

	$c->req->search_parameters->[0]->{'me.position'} = { '!=' => '1' };
};

1;
Commit	Line	Data
d2739840	1	package RestTest::Controller::API::RPC::TrackSetupDBICArgs;
	2	use Moose;
	3	BEGIN { extends 'Catalyst::Controller::DBIC::API::RPC' }
	4
	5	use namespace::autoclean;
	6
	7	__PACKAGE__->config
	8	( action => { setup => { PathPart => 'track_setup_dbic_args', Chained => '/api/rpc/rpc_base' } },
	9	class => 'RestTestDB::Track',
	10	select => [qw/position title/],
	11	ordered_by => [qw/position/],
	12	);
	13
	14	override list_munge_parameters => sub
	15	{
	16	my ($self, $c) = @_;
	17
	18	$c->req->search_parameters->[0]->{'me.position'} = { '!=' => '1' };
	19	};
	20
	21	1;