t/lib/DBICTest/BaseResult.pm

   1 package #hide from pause
   2   DBICTest::BaseResult;
   3
   4 use strict;
   5 use warnings;
   6
   7 # must load before any DBIx::Class* namespaces
   8 use DBICTest::RunMode;
   9
  10 use base 'DBIx::Class::Core';
  11
  12 #use base qw/DBIx::Class::Relationship::Cascade::Rekey DBIx::Class::Core/;
  13
  14 __PACKAGE__->table ('bogus');
  15 __PACKAGE__->resultset_class ('DBICTest::BaseResultSet');
  16
  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
  35 1;