1 BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) }
13 package DBICTest::Legacy::Storage;
14 use base 'DBIx::Class::Storage::DBI::SQLite';
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:');
25 { $schema->storage->ensure_connected }
26 qr/\Qstorage subclass DBICTest::Legacy::Storage provides (or inherits) the method source_bind_attributes()/,
27 'deprecated use of source_bind_attributes throws',