1 BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) }
13 package DBICTest::Legacy::Storage;
14 use base 'DBIx::Class::Storage::DBI::SQLite';
16 use Data::Dumper::Concise;
18 sub source_bind_attributes { return {} }
22 my $schema = DBICTest::Schema->clone;
23 $schema->storage_type('DBICTest::Legacy::Storage');
24 $schema->connection('dbi:SQLite::memory:');
27 { $schema->storage->ensure_connected }
28 qr/\Qstorage subclass DBICTest::Legacy::Storage provides (or inherits) the method source_bind_attributes()/,
29 'deprecated use of source_bind_attributes throws',