7 use DBIx::Class::Schema::Loader 0.05;
8 use Data::Dumper::Concise;
11 package CPANDB::Schema;
12 use base qw/DBIx::Class::Schema::Loader/;
14 __PACKAGE__->loader_options (
19 my $s = CPANDB::Schema->connect (sub { CPANDB->dbh } );
21 # reference names are unstable - just create rels manually
22 # is there a saner way to do that?
23 my $distclass = $s->class('Distribution');
24 $distclass->has_many (
26 $s->class('Dependency'),
29 $s->unregister_source ('Distribution');
30 $s->register_class ('Distribution', $distclass);
33 # a proof of concept how to find out who uses us *AND* SQLT
34 my $us_and_sqlt = $s->resultset('Distribution')->search (
36 'deps.dependency' => 'DBIx-Class',
37 'deps_2.dependency' => 'SQL-Translator',
40 join => [qw/deps deps/],
41 order_by => 'me.author',
42 select => [ 'me.distribution', 'me.author', map { "$_.phase" } (qw/deps deps_2/)],
43 as => [qw/dist_name dist_author req_dbic_at req_sqlt_at/],
44 result_class => 'DBIx::Class::ResultClass::HashRefInflator',
48 print Dumper [$us_and_sqlt->all];