1 package DBICTest::ExplodingStorage::Sth;
9 package DBICTest::ExplodingStorage;
14 use base 'DBIx::Class::Storage::DBI::SQLite';
18 my ($self, $sql) = @_;
19 return bless {}, "DBICTest::ExplodingStorage::Sth" unless $count++;
20 return $self->next::method($sql);
24 return 0 if $count == 1;
25 return shift->next::method(@_);