# i.e. first release of 0.XX *must* be 0.XX000. This avoids fBSD ports
# brain damage and presumably various other packaging systems too
-$VERSION = '0.08099_04';
+$VERSION = '0.08099_07';
$VERSION = eval $VERSION; # numify for warning-free dev releases
package MyDB::Schema;
use base qw/DBIx::Class::Schema/;
- __PACKAGE__->load_classes();
+ __PACKAGE__->load_namespaces();
1;
Create a table class to represent artists, who have many CDs, in
-MyDB/Schema/Artist.pm:
+MyDB/Schema/Result/Artist.pm:
- package MyDB::Schema::Artist;
+ package MyDB::Schema::Result::Artist;
use base qw/DBIx::Class/;
__PACKAGE__->load_components(qw/Core/);
__PACKAGE__->table('artist');
__PACKAGE__->add_columns(qw/ artistid name /);
__PACKAGE__->set_primary_key('artistid');
- __PACKAGE__->has_many(cds => 'MyDB::Schema::CD');
+ __PACKAGE__->has_many(cds => 'MyDB::Schema::Result::CD');
1;
A table class to represent a CD, which belongs to an artist, in
-MyDB/Schema/CD.pm:
+MyDB/Schema/Result/CD.pm:
- package MyDB::Schema::CD;
+ package MyDB::Schema::Result::CD;
use base qw/DBIx::Class/;
__PACKAGE__->load_components(qw/Core/);
# Execute a joined query to get the cds.
my @all_john_cds = $johns_rs->search_related('cds')->all;
- # Fetch only the next row.
+ # Fetch the next available row.
my $first_john = $johns_rs->next;
# Specify ORDER BY on the query.
bricas: Brian Cassidy <bricas@cpan.org>
+caelum: Rafael Kitover <rkitover@cpan.org>
+
captainL: Luke Saunders <luke.saunders@gmail.com>
castaway: Jess Robinson
mattlaw: Matt Lawrence
+michaelr: Michael Reddick <michael.reddick@gmail.com>
+
ned: Neil de Carteret
nigel: Nigel Metheringham <nigelm@cpan.org>
phaylon: Robert Sedlacek <phaylon@dunkelheit.at>
+plu: Johannes Plunien <plu@cpan.org>
+
quicksilver: Jules Bean
rafl: Florian Ragwitz <rafl@debian.org>
rdj: Ryan D Johnson <ryan@innerfence.com>
-ribasushi: Peter Rabbitson <rabbit@rabbit.us>
+ribasushi: Peter Rabbitson <rabbit+dbic@rabbit.us>
+
+rjbs: Ricardo Signes <rjbs@cpan.org>
+
+robkinyon: Rob Kinyon <rkinyon@cpan.org>
sc_: Just Another Perl Hacker
willert: Sebastian Willert <willert@cpan.org>
+wreis: Wallace Reis <wreis@cpan.org>
+
zamolxes: Bogdan Lucaciu <bogdan@wiz.ro>
+norbi: Norbert Buchmuller <norbi@nix.hu>
+
+solomon: Jared Johnson <jaredj@nmgi.com>
+
=head1 LICENSE
You may distribute this code under the same terms as Perl itself.