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; |