-package # hide from PAUSE
+package # hide from PAUSE
DBICTest::Schema::Track;
use base qw/DBICTest::BaseResult/;
data_type => 'datetime',
is_nullable => 1
},
- small_dt => { # for mssql and sybase DT tests
- data_type => 'smalldatetime',
- is_nullable => 1
- },
);
__PACKAGE__->set_primary_key('trackid');
{ join_type => 'left' },
);
+__PACKAGE__->might_have (
+ 'next_track',
+ __PACKAGE__,
+ sub {
+ my ( $me, $as, $self_rsrc, $rel_name ) = @_;
+ return {
+ "${as}.cd" => (ref $me ? $me->cd : { '=' => \"${me}.cd" }),
+ "${as}.position" => { '>', (ref $me ? $me->position : \"${me}.position" )},
+ };
+ },
+);
+
1;