X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=examples%2FSchema%2Finsertdb.pl;h=a7017955c2e625147ad759f646fe37c31c9832c6;hb=f54428abf9cc7d7e5604745335694eaf558f6820;hp=6ce1ed93fd4af77befc22c13161ab78d2da41438;hpb=50891152d0b24649bfd67bdba97feec86b11c064;p=dbsrgits%2FDBIx-Class.git

diff --git a/examples/Schema/insertdb.pl b/examples/Schema/insertdb.pl
index 6ce1ed9..a701795 100644
--- a/examples/Schema/insertdb.pl
+++ b/examples/Schema/insertdb.pl
@@ -1,7 +1,9 @@
-#!/usr/bin/perl -w
+#!/usr/bin/env perl
 
-use MyDatabase::Main;
 use strict;
+use warnings;
+
+use MyDatabase::Main;
 
 my $schema = MyDatabase::Main->connect('dbi:SQLite:db/example.db');
 
@@ -23,10 +25,10 @@ my %albums = (
 
 my @cds;
 foreach my $lp (keys %albums) {
-    my $artist = $schema->resultset('Artist')->search({
+    my $artist = $schema->resultset('Artist')->find({
         name => $albums{$lp}
     });
-    push @cds, [$lp, $artist->first];
+    push @cds, [$lp, $artist->id];
 }
 
 $schema->populate('Cd', [
@@ -47,10 +49,10 @@ my %tracks = (
 
 my @tracks;
 foreach my $track (keys %tracks) {
-    my $cdname = $schema->resultset('Cd')->search({
+    my $cd = $schema->resultset('Cd')->find({
         title => $tracks{$track},
     });
-    push @tracks, [$cdname->first, $track];
+    push @tracks, [$cd->id, $track];
 }
 
 $schema->populate('Track',[