[dbsrgits/DBIx-Class-Historic.git] / t / lib / DBICTest / ExplodingStorage.pm

package DBICTest::ExplodingStorage::Sth;

sub execute {
  die "Kablammo!";
}

sub bind_param {}

package DBICTest::ExplodingStorage;

use strict;
use warnings;

use base 'DBIx::Class::Storage::DBI::SQLite';

my $count = 0;
sub sth {
  my ($self, $sql) = @_;
  return bless {},  "DBICTest::ExplodingStorage::Sth" unless $count++;
  return $self->next::method($sql);
}

sub connected {
  return 0 if $count == 1;
  return shift->next::method(@_);
}

1;
Commit	Line	Data
0b5dee17	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;