# 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.05999_04';
+$VERSION = '0.06000';
sub MODIFY_CODE_ATTRIBUTES {
my ($class,$code,@attrs) = @_;
1;
-Create a class that represent artists, who have many CDs, in DB/Main/Artist.pm:
+Create a class to represent artists, who have many CDs, in DB/Main/Artist.pm:
package DB::Main::Artist;
use base qw/DBIx::Class/;
{ order_by => 'title' }
);
- my $millenium_cds_rs = $ds->resultset('CD')->search(
+ my $millennium_cds_rs = $ds->resultset('CD')->search(
{ year => 2000 },
{ prefetch => 'artist' }
);
- my $cd = $millenium_cds_rs->next; # SELECT ... FROM cds JOIN artists ...
+ my $cd = $millennium_cds_rs->next; # SELECT ... FROM cds JOIN artists ...
my $cd_artist_name = $cd->artist->name; # Already has the data so no query
my $new_cd = $ds->resultset('CD')->new({ title => 'Spoon' });
$ds->txn_do(sub { $new_cd->update }); # Runs the update in a transaction
- $millenium_cds_rs->update({ year => 2002 }); # Single-query bulk update
+ $millennium_cds_rs->update({ year => 2002 }); # Single-query bulk update
=head1 DESCRIPTION