Select Code to Download

__PACKAGE__->has_many(
  "tbl_requests",
...
  { "foreign.PID" => "self.PID" },
  { cascade_copy => 0, cascade_delete => 0 },
);

my @requests = $schema->resultset( 'TblPerson' )->search({
                                                   LastName => 'Smith'
+,
...
    print "PrefName: " . $request->PrefName . "\n";
    print "Status: " . $request->tbl_requests->status . " . "\n";
}

__PACKAGE__->belongs_to(
  "p",
...
  { PID => "PID" },
  { is_deferrable => 1, on_delete => "NO ACTION", on_update => "NO ACT
+ION" },
);

        my @requests = $schema->resultset( 'TblRequests' )->search({
                              'p.LastName' => 'Smith',
...
    print "SternID: " . $request->p->username . "\n";
    print "Status: " . $request->status . " . "\n";
}