8 my $schema = MyDatabase::Main->connect('dbi:SQLite:db/example.db');
9 # for other DSNs, e.g. MySql, see the perldoc for the relevant dbd
10 # driver, e.g perldoc L<DBD::mysql>.
12 get_tracks_by_cd('Bad');
13 get_tracks_by_artist('Michael Jackson');
15 get_cd_by_track('Stan');
16 get_cds_by_artist('Michael Jackson');
18 get_artist_by_track('Dirty Diana');
19 get_artist_by_cd('The Marshall Mathers LP');
22 sub get_tracks_by_cd {
24 print "get_tracks_by_cd($cdtitle):\n";
25 my $rs = $schema->resultset('Track')->search(
27 'cd.title' => $cdtitle
33 while (my $track = $rs->next) {
34 print $track->title . "\n";
39 sub get_tracks_by_artist {
40 my $artistname = shift;
41 print "get_tracks_by_artist($artistname):\n";
42 my $rs = $schema->resultset('Track')->search(
44 'artist.name' => $artistname
52 while (my $track = $rs->next) {
53 print $track->title . "\n";
60 my $tracktitle = shift;
61 print "get_cd_by_track($tracktitle):\n";
62 my $rs = $schema->resultset('Cd')->search(
64 'tracks.title' => $tracktitle
67 join => [qw/ tracks /],
71 print $cd->title . "\n\n";
74 sub get_cds_by_artist {
75 my $artistname = shift;
76 print "get_cds_by_artist($artistname):\n";
77 my $rs = $schema->resultset('Cd')->search(
79 'artist.name' => $artistname
82 join => [qw/ artist /],
85 while (my $cd = $rs->next) {
86 print $cd->title . "\n";
93 sub get_artist_by_track {
94 my $tracktitle = shift;
95 print "get_artist_by_track($tracktitle):\n";
96 my $rs = $schema->resultset('Artist')->search(
98 'tracks.title' => $tracktitle
106 my $artist = $rs->first;
107 print $artist->name . "\n\n";
111 sub get_artist_by_cd {
113 print "get_artist_by_cd($cdtitle):\n";
114 my $rs = $schema->resultset('Artist')->search(
116 'cds.title' => $cdtitle
122 my $artist = $rs->first;
123 print $artist->name . "\n\n";