Commit | Line | Data |
660cf1be |
1 | package #hide from pause |
2 | DBICTest::BaseResult; |
3 | |
4 | use strict; |
5 | use warnings; |
6 | |
19938f3b |
7 | #use base qw/DBIx::Class::Relationship::Cascade::Rekey DBIx::Class::Core/; |
d88ecca6 |
8 | use base qw/DBIx::Class::Core/; |
660cf1be |
9 | use DBICTest::BaseResultSet; |
10 | |
660cf1be |
11 | __PACKAGE__->table ('bogus'); |
12 | __PACKAGE__->resultset_class ('DBICTest::BaseResultSet'); |
13 | |
19938f3b |
14 | #sub add_relationship { |
15 | # my $self = shift; |
16 | # my $opts = $_[3] || {}; |
17 | # if (grep { $_ eq $_[0] } qw/ |
18 | # cds_90s cds_80s cds_84 artist_undirected_maps mapped_artists last_track |
19 | # /) { |
20 | # # nothing - join-dependent or non-cascadeable relationship |
21 | # } |
22 | # elsif ($opts->{is_foreign_key_constraint}) { |
23 | # $opts->{on_update} ||= 'cascade'; |
24 | # } |
25 | # else { |
26 | # $opts->{cascade_rekey} = 1 |
27 | # unless ref $_[2] eq 'CODE'; |
28 | # } |
29 | # $self->next::method(@_[0..2], $opts); |
30 | #} |
31 | |
660cf1be |
32 | 1; |