6 use lib 't/cdbi/testlib';
7 use DBIC::Test::SQLite (); # this will issue the necessary SKIPs on missing reqs
9 eval { require Time::Piece }
10 or plan skip_all => 'Time::Piece required for this test';
13 use base qw(DBIx::Class::CDBICompat);
14 Temp::DBI->columns(All => qw(id date));
16 my $strptime_inflate = sub {
17 Time::Piece->strptime(shift, "%Y-%m-%d")
20 date => 'Time::Piece',
21 inflate => $strptime_inflate
27 Temp::Person->table('people');
28 Temp::Person->columns(Info => qw(name pet));
29 Temp::Person->has_a( pet => 'Temp::Pet' );
33 Temp::Pet->table('pets');
34 Temp::Pet->columns(Info => qw(name));
35 Temp::Pet->has_many(owners => 'Temp::Person');
40 my $pn_meta = Temp::Person->meta_info('has_a');
41 is_deeply [sort keys %$pn_meta], [qw/date pet/], "Person has Date and Pet";
45 my $pt_meta = Temp::Pet->meta_info;
46 is_deeply [keys %{$pt_meta->{has_a}}], [qw/date/], "Pet has Date";
47 is_deeply [keys %{$pt_meta->{has_many}}], [qw/owners/], "And owners";
51 my $pet = Temp::Person->meta_info( has_a => 'pet' );
52 is $pet->class, 'Temp::Person';
53 is $pet->foreign_class, 'Temp::Pet';
54 is $pet->accessor, 'pet';
55 is $pet->name, 'has_a';
59 my $owners = Temp::Pet->meta_info( has_many => 'owners' );
61 is_deeply $owners->args, {
68 my $date = Temp::Pet->meta_info( has_a => 'date' );
69 is $date->class, 'Temp::DBI';
70 is $date->foreign_class, 'Time::Piece';
71 is $date->accessor, 'date';
72 is $date->args->{inflate}, $strptime_inflate;