t/lib/DBICTest/BaseResult.pm

   1 package #hide from pause
   2   DBICTest::BaseResult;
   3
   4 use strict;
   5 use warnings;
   6
   7 use base qw(DBICTest::Base DBIx::Class::Core);
   8
   9 #use base qw/DBIx::Class::Relationship::Cascade::Rekey DBIx::Class::Core/;
  10
  11 __PACKAGE__->table ('bogus');
  12 __PACKAGE__->resultset_class ('DBICTest::BaseResultSet');
  13
  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
  32 1;