First stab at restructuring with tests_recursive() - no functional changes

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

diff --git a/examples/Schema/testdb.pl b/examples/Schema/testdb.pl
new file mode 100644 (file)
index 0000000..9ca3e39
--- /dev/null
+++ b/examples/Schema/testdb.pl
@@ -0,0 +1,122 @@
+#!/usr/bin/perl -w
+
+use MyDatabase::Main;
+use strict;
+
+my $schema = MyDatabase::Main->connect('dbi:SQLite:db/example.db');
+# for other DSNs, e.g. MySql, see the perldoc for the relevant dbd
+# driver, e.g perldoc L<DBD::mysql>.
+
+get_tracks_by_cd('Bad');
+get_tracks_by_artist('Michael Jackson');
+
+get_cd_by_track('Stan');
+get_cds_by_artist('Michael Jackson');
+
+get_artist_by_track('Dirty Diana');
+get_artist_by_cd('The Marshall Mathers LP');
+
+
+sub get_tracks_by_cd {
+    my $cdtitle = shift;
+    print "get_tracks_by_cd($cdtitle):\n";
+    my $rs = $schema->resultset('Track')->search(
+        {
+            'cd.title' => $cdtitle
+        },
+        {
+            join     => [qw/ cd /],
+        }
+    );
+    while (my $track = $rs->next) {
+        print $track->title . "\n";
+    }
+    print "\n";
+}
+
+sub get_tracks_by_artist {
+    my $artistname = shift;
+    print "get_tracks_by_artist($artistname):\n";
+    my $rs = $schema->resultset('Track')->search(
+        {
+            'artist.name' => $artistname
+        },
+        {
+            join => {
+                'cd' => 'artist'
+            },
+        }
+    );
+    while (my $track = $rs->next) {
+        print $track->title . "\n";
+    }
+    print "\n";
+}
+
+
+sub get_cd_by_track {
+    my $tracktitle = shift;
+    print "get_cd_by_track($tracktitle):\n";
+    my $rs = $schema->resultset('Cd')->search(
+        {
+            'tracks.title' => $tracktitle
+        },
+        {
+            join     => [qw/ tracks /],
+        }
+    );
+    my $cd = $rs->first;
+    print $cd->title . "\n\n";
+}
+
+sub get_cds_by_artist {
+    my $artistname = shift;
+    print "get_cds_by_artist($artistname):\n";
+    my $rs = $schema->resultset('Cd')->search(
+        {
+            'artist.name' => $artistname
+        },
+        {
+            join     => [qw/ artist /],
+        }
+    );
+    while (my $cd = $rs->next) {
+        print $cd->title . "\n";
+    }
+    print "\n";
+}
+
+
+
+sub get_artist_by_track {
+    my $tracktitle = shift;
+    print "get_artist_by_track($tracktitle):\n";
+    my $rs = $schema->resultset('Artist')->search(
+        {
+            'tracks.title' => $tracktitle
+        },
+        {
+            join => {
+                'cds' => 'tracks'
+            }
+        }
+    );
+    my $artist = $rs->first;
+    print $artist->name . "\n\n";
+}
+
+         
+sub get_artist_by_cd {
+    my $cdtitle = shift;
+    print "get_artist_by_cd($cdtitle):\n";
+    my $rs = $schema->resultset('Artist')->search(
+        {
+            'cds.title' => $cdtitle
+        },
+        {
+            join     => [qw/ cds /],
+        }
+    );
+    my $artist = $rs->first;
+    print $artist->name . "\n\n";
+}