use strict;
use lib qw( ... );
use MyDatabase::Main;

my ($s_seconds, $s_microseconds) = gettimeofday;
my $schema = MyDatabase::Main->connect('dbi:mysql:dbname=test',

"xxxxxx",

"XXXXX");
my $artistname = 'Michael Jackson';
my $artists_rs = $schema->resultset('Artist');
## my $artists_rs = $schema->resultset('Artist')->search(
##                                                  { 'name' => "Michael
Jackson" }
##                                                );

while (my $a = $artists_rs->next) {
  print "Artist ID: ", $a->artistid, ".) ", $a->name, ".\n";
  my $cd_rs = $a->cds;
  while (my $c = $cd_rs->next) {
    print "  CD Id: ", $c->cdid, ".) ", $c->title, ".\n";
    my $track_rs = $c->tracks;
    while (my $t = $track_rs->next) {
      print "      ID: ", $t->trackid, ".) ", $t->title, ".\n";
    }
    print "\n";
  }  ## CD's Loop.
  print "\n";
} ## Artists Loop.

my ($e_seconds, $e_microseconds) = gettimeofday;
my $elapsed = tv_interval(
                        [$s_seconds, $s_microseconds],
                        [$e_seconds, $e_microseconds]
                      );
print "Elapsed:${elapsed}.\n";
##</code><code>##

Artist ID: 1.) Michael Jackson.
  CD Id: 1.) Thriller.
      ID: 3.) Billie Jean.
      ID: 6.) Beat It.

  CD Id: 2.) Bad.
      ID: 4.) Leave Me Alone.
      ID: 5.) Smooth Criminal.
      ID: 7.) Dirty Diana.


Artist ID: 2.) Eminem.
  CD Id: 3.) The Marshall Mathers LP.
      ID: 1.) The Way I Am.
      ID: 2.) Stan.


Artist ID: 3.) Nick Drake.
  CD Id: 4.) Pink Moon.
      ID: 9.) From the Morning.
      ID: 10.) Pink Moon.
      ID: 14.) Things Behind the Sun.

  CD Id: 6.) Bryter Layter.
      ID: 8.) Northern Sky.
      ID: 13.) Bryter Layter.


Artist ID: 4.) The Doors.
  CD Id: 5.) LA Woman.
      ID: 11.) Riders on the Storm.
      ID: 12.) Love Her Madly.


Elapsed:0.223685.