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