t/lib/DBICTest/ExplodingStorage.pm

   1 package DBICTest::ExplodingStorage::Sth;
   2
   3 sub execute {
   4   die "Kablammo!";
   5 }
   6
   7 sub bind_param {}
   8
   9 package DBICTest::ExplodingStorage;
  10
  11 use strict;
  12 use warnings;
  13
  14 use base 'DBIx::Class::Storage::DBI::SQLite';
  15
  16 my $count = 0;
  17 sub sth {
  18   my ($self, $sql) = @_;
  19   return bless {},  "DBICTest::ExplodingStorage::Sth" unless $count++;
  20   return $self->next::method($sql);
  21 }
  22
  23 sub connected {
  24   return 0 if $count == 1;
  25   return shift->next::method(@_);
  26 }
  27
  28 1;