);
__PACKAGE__->might_have (
- 'next_track',
- __PACKAGE__,
- sub {
- my ( $me_alias, $rel_alias, $me_result_source, $rel_name, $optional_me_object ) = @_;
- return
- ({ "${rel_alias}.cd" => { '=', \"${me_alias}.cd" },
- "${rel_alias}.position" => { '>', \"${me_alias}.position" },
- },
- $optional_me_object &&
- { "${rel_alias}.cd" => $optional_me_object->cd,
- "${rel_alias}.position" => { '>', $optional_me_object->position },
- });
- },
+ next_track => __PACKAGE__,
+ sub {
+ my $args = shift;
+ return (
+ { "$args->{foreign_alias}.cd" => { -ident => "$args->{self_alias}.cd" },
+ "$args->{foreign_alias}.position" => { '>' => { -ident => "$args->{self_alias}.position" } },
+ },
+ $args->{self_rowobj} && {
+ "$args->{foreign_alias}.cd" => $args->{self_rowobj}->cd,
+ "$args->{foreign_alias}.position" => { '>' => $args->{self_rowobj}->position },
+ }
+ )
+ }
);
1;