use_ok('DBICTest');
-use DBIx::Class::CDBICompat::HasA;
-
-unshift(@DBICTest::ISA, 'DBIx::Class::CDBICompat::HasA');
+DBICTest::CD->load_components(qw/CDBICompat::HasA/);
DBICTest::CD->has_a( 'year', 'DateTime',
inflate => sub { DateTime->new( year => shift ) },
);
# inflation test
-my $cd = DBICTest::CD->retrieve(3);
+my $cd = DBICTest::CD->find(3);
is( ref($cd->year), 'DateTime', 'year is a DateTime, ok' );
);
# inflation test
-$cd = DBICTest::CD->retrieve(3);
+$cd = DBICTest::CD->find(3);
is( ref($cd->year), 'DateTime', 'year is a DateTime, ok' );