view release on metacpan or  search on metacpan

t/lib/MyApp/Schema/Result/Track.pm  view on Meta::CPAN

package MyApp::Schema::Result::Track;

use warnings;
use strict;

use base qw( DBIx::Class::Core );

__PACKAGE__->load_components(qw/ Events /);

__PACKAGE__->table('track');

__PACKAGE__->add_columns(
  trackid => {
    data_type => 'integer',
    is_auto_increment => 1
  },
  cdid => {
    data_type => 'integer',
  },
  id => {
    data_type => 'varchar(16)',
  },
  title => {
    data_type => 'text',
  },
);

__PACKAGE__->set_primary_key('trackid');

__PACKAGE__->add_unique_constraint([qw( title cdid )]);

__PACKAGE__->belongs_to('cd' => 'MyApp::Schema::Result::Cd', 'cdid');

__PACKAGE__->has_many(
    'events' => ( 'MyApp::Schema::Result::TrackEvent', 'trackid' ),
    { cascade_delete => 0 },
);

sub event_defaults {
    my ($self, $event, $params) = @_;
    my $title = $params->{details}->{title} || 'N/A';
    return ( title => $title, $self->next::method(@_) );
}

1;