1 package #hide from pause
7 # must load before any DBIx::Class* namespaces
10 use base 'DBIx::Class::Core';
12 #use base qw/DBIx::Class::Relationship::Cascade::Rekey DBIx::Class::Core/;
14 __PACKAGE__->table ('bogus');
15 __PACKAGE__->resultset_class ('DBICTest::BaseResultSet');
17 #sub add_relationship {
19 # my $opts = $_[3] || {};
20 # if (grep { $_ eq $_[0] } qw/
21 # cds_90s cds_80s cds_84 artist_undirected_maps mapped_artists last_track
23 # # nothing - join-dependent or non-cascadeable relationship
25 # elsif ($opts->{is_foreign_key_constraint}) {
26 # $opts->{on_update} ||= 'cascade';
29 # $opts->{cascade_rekey} = 1
30 # unless ref $_[2] eq 'CODE';
32 # $self->next::method(@_[0..2], $opts);