11 package DBICTest::Legacy::Storage;
12 use base 'DBIx::Class::Storage::DBI::SQLite';
14 use Data::Dumper::Concise;
16 sub source_bind_attributes { return {} }
20 my $schema = DBICTest::Schema->clone;
21 $schema->storage_type('DBICTest::Legacy::Storage');
22 $schema->connection('dbi:SQLite::memory:');
24 $schema->storage->dbh_do( sub { $_[1]->do(<<'EOS') } );
26 artistid INTEGER PRIMARY KEY NOT NULL,
28 rank integer NOT NULL DEFAULT 13,
33 my $legacy = sub { $schema->resultset('Artist')->search({ name => 'foo'})->next };
34 if (DBIx::Class->VERSION >= 0.09) {
37 qr/XXXXXXXXX not sure what error to put here yet XXXXXXXXXXXXXXX/,
38 'deprecated use of source_bind_attributes throws',
44 qr/\QThe source_bind_attributes() override in DBICTest::Legacy::Storage relies on a deprecated codepath/,
45 'Warning issued during invocation of legacy storage codepath',