if (@f_method) {
quote_sub "${class}::${rel}", sprintf( <<'EOC', perlstring $rel), { '$rf' => \sub { my $o = shift; $o = $o->$_ for @f_method; $o } };
- my $rs = shift->search_related( %s => @_);
+ my $rs = shift->related_resultset(%s)->search_rs( @_);
$rs->{attrs}{record_filter} = $rf;
return (wantarray ? $rs->all : $rs);
EOC
}
sub new_related {
- return shift->search_related(shift)->new_result(shift);
+ return shift->search_related(shift)->new_result(@_);
}
=head1 FURTHER QUESTIONS?