use base qw/DBICTest::BaseResult/;
use Carp qw/confess/;
-__PACKAGE__->load_components(qw/InflateColumn::DateTime Ordered/);
+__PACKAGE__->load_components(qw{
+ +DBICTest::DeployComponent
+ InflateColumn::DateTime
+ Ordered
+});
__PACKAGE__->table('track');
__PACKAGE__->add_columns(
{ join_type => 'left' },
);
-__PACKAGE__->might_have (
- next_track => __PACKAGE__,
+__PACKAGE__->has_many (
+ next_tracks => __PACKAGE__,
sub {
my $args = shift;
}
);
+our $hook_cb;
+
+sub sqlt_deploy_hook {
+ my $class = shift;
+
+ $hook_cb->($class, @_) if $hook_cb;
+ $class->next::method(@_) if $class->next::can;
+}
+
1;