Select Code to Download

package MyApp::Schema::Result::User;

...
  { role => "role" },
  { is_deferrable => 1, on_delete => "CASCADE", on_update => "CASCADE"
+ },
);

foreach my $page ($c->user->pages) {
    # do something with $page
}

sub pages {
    my ($self) = @_;
...
        }
    );
}

package MyApp::Schema::ResultSet::RolePage;

...
extends qw/MyApp::Schema::ResultSetX::DisplayTable/;

has '+name' => ( default => 'RolePage' );

sub pages {
  my $self = shift;
...
    # Alternatively, if you need to eliminate duplicates:
    # ->search_related('page_name', {}, {distinct => 1});
}