added reference implementation of DBIx::Class::Manual::Example

[dbsrgits/DBIx-Class.git] / t / examples / Schema / insertdb.pl

diff --git a/t/examples/Schema/insertdb.pl b/t/examples/Schema/insertdb.pl
new file mode 100644 (file)
index 0000000..6ce1ed9
--- /dev/null
+++ b/t/examples/Schema/insertdb.pl
@@ -0,0 +1,59 @@
+#!/usr/bin/perl -w
+
+use MyDatabase::Main;
+use strict;
+
+my $schema = MyDatabase::Main->connect('dbi:SQLite:db/example.db');
+
+#  here's some of the sql that is going to be generated by the schema
+#  INSERT INTO artist VALUES (NULL,'Michael Jackson');
+#  INSERT INTO artist VALUES (NULL,'Eminem');
+
+my @artists = (['Michael Jackson'], ['Eminem']);
+$schema->populate('Artist', [
+    [qw/name/],
+    @artists,
+]);
+
+my %albums = (
+    'Thriller' => 'Michael Jackson',
+    'Bad' => 'Michael Jackson',
+    'The Marshall Mathers LP' => 'Eminem',
+);
+
+my @cds;
+foreach my $lp (keys %albums) {
+    my $artist = $schema->resultset('Artist')->search({
+        name => $albums{$lp}
+    });
+    push @cds, [$lp, $artist->first];
+}
+
+$schema->populate('Cd', [
+    [qw/title artist/],
+    @cds,
+]);
+
+
+my %tracks = (
+    'Beat It'         => 'Thriller',
+    'Billie Jean'     => 'Thriller',
+    'Dirty Diana'     => 'Bad',
+    'Smooth Criminal' => 'Bad',
+    'Leave Me Alone'  => 'Bad',
+    'Stan'            => 'The Marshall Mathers LP',
+    'The Way I Am'    => 'The Marshall Mathers LP',
+);
+
+my @tracks;
+foreach my $track (keys %tracks) {
+    my $cdname = $schema->resultset('Cd')->search({
+        title => $tracks{$track},
+    });
+    push @tracks, [$cdname->first, $track];
+}
+
+$schema->populate('Track',[
+    [qw/cd title/],
+    @tracks,
+]);