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; |