t/lib/RestTest/Schema/ResultSet/Track.pm

   1 package # hide from PAUSE
   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   }
  16   my $rs = $self->SUPER::search(@_);
  17 }
  18
  19 1;