Select Code to Download

 
  while (my $cd = $rs->next) {
    print "CD: " . $cd->title . ", Artist: " . $cd->artist->name;
  }

 
  SELECT artist.* FROM artist WHERE artist.id = ?

 
  my $rs = $schema->resultset('CD')->search(
    {
...
  # JOIN artist ON cd.artist = artist.id
  # WHERE artist.name = 'Bob Marley'
  # ORDER BY artist.name

 
  while (my $cd = $rs->next) {
    print "CD: " . $cd->title . ", Artist: " . $cd->artist->name;
  }

$c->stash->{nodes} = [$c->model('QDB::Nodes')->search(
    {},
    {
...
      }
    }
      )];

package Qinfo::QDBSchema::MuxTypes;

use base qw/DBIx::Class/;
...
__PACKAGE__->has_many('sdh_mux_settings' => 'Qinfo::QDBSchema::SdhMuxS
+ettings','mux_type_id');

1;

package Qinfo::QDBSchema::Nodes;

use base qw/DBIx::Class/;
...
__PACKAGE__->belongs_to('networks' => 'Qinfo::QDBSchema::Networks','ne
+t_id');

1;

package Qinfo::QDBSchema::SdhMuxSettings;

use base qw/DBIx::Class/;
...
__PACKAGE__->belongs_to('mux_types' => 'Qinfo::QDBSchema::MuxTypes','m
+ux_type_id');

1;

SELECT me.net_id, me.node_id, me.node_name, me.node_type_id, sdh_mux_s
+ettings.no
de_id, sdh_mux_settings.mux_type_id, sdh_mux_settings.ip_address, sdh_
+mux_settin
...
me WHERE ( me.node_id = ? ): '7'
SELECT me.node_id, me.mux_type_id, me.ip_address, me.nsap FROM sdh_mux
+_settings
me WHERE ( me.node_id = ? ): '8'