[catagits/Catalyst-Controller-DBIC-API.git] / t / lib / RestTest / Schema / ResultSet / Track.pm

package # hide from PAUSE
    RestTest::Schema::ResultSet::Track;

use base 'RestTest::Schema::ResultSet';

sub search {
	my $self = shift;
	my ($clause, $params) = @_;

  if (ref $clause eq 'ARRAY') {
    # test custom attrs
    if (my $pretend = delete $clause->[0]->{'cd.pretend'}) {
      $clause->[0]->{'cd.year'} = $pretend;
    }
  }
  my $rs = $self->SUPER::search(@_);
}

1;
Commit	Line	Data
406086f3	1	package # hide from PAUSE
d2739840	2	RestTest::Schema::ResultSet::Track;
	3
	4	use base 'RestTest::Schema::ResultSet';
	5
	6	sub search {
	7	my $self = shift;
	8	my ($clause, $params) = @_;
	9
	10	if (ref $clause eq 'ARRAY') {
	11	# test custom attrs
	12	if (my $pretend = delete $clause->[0]->{'cd.pretend'}) {
	13	$clause->[0]->{'cd.year'} = $pretend;
	14	}
	15	}
406086f3	16	my $rs = $self->SUPER::search(@_);
d2739840	17	}
	18
	19	1;