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

##</code><code>##

my @requests = $schema->resultset( 'TblPerson' )->search({
                                                   LastName => 'Smith',
                                                   FirstName => 'John' },
                { prefetch => 'tbl_requests' }
        );

foreach my $request (@requests) {
    print "Name: " . $request->LastName . ", " .$request->FirstName . "\n";
    print "SternID: " . $request->username . "\n";
    print "PrefName: " . $request->PrefName . "\n";
    print "Status: " . $request->tbl_requests->status . " . "\n";
}

##</code><code>##

__PACKAGE__->belongs_to(
  "p",
  "DB::MyDBS::Result::TblPerson",
  { PID => "PID" },
  { is_deferrable => 1, on_delete => "NO ACTION", on_update => "NO ACTION" },
);

##</code><code>##

        my @requests = $schema->resultset( 'TblRequests' )->search({
                              'p.LastName' => 'Smith',
                              'p.FirstName' => 'John' },
                { prefetch => 'p' }
        );

foreach my $request (@requests) {
    print "Name: " . $request->p->LastName . ", ". $request->p->FirstName . "\n";
    print "SternID: " . $request->p->username . "\n";
    print "Status: " . $request->status . " . "\n";
}