package Serenevy::CatalystX::Role::CRUDForms;
use MooseX::Role::Parameterized -traits => 'MooseX::MethodAttributes::Role::Meta::Role';
use namespace::autoclean;
use re 'taint';
use 5.010;

parameter [qw/ name root path_part model_name /] => (
    is       => "rw",
    isa      => "Str",
    required => 1,
);

role {
    my $param = shift;
    my $NAME = $param->name;
    my $ROOT = $param->root;
    my $MODEL = $param->model_name;
    my $PATH_PART = $param->path_part;

    method model => sub { $_[1]->model( $MODEL ) };

    method root => sub :Chained($ROOT) :PathPart($PATH_PART) :CaptureArgs(0) { 1 };

    method list => sub :Chained(root) :PathPart("") :Args(0) {
        my ( $self, $c ) = @_;
        # ...
    };

    # ...
};

##</code><code>##

package RiverbendMath::Controller::Int::FieldClass;
use Moose;
use namespace::autoclean;
use re 'taint';
use 5.010;
BEGIN { extends 'Catalyst::Controller'; }

with 'Serenevy::CatalystX::Role::CRUDForms' => {
    name => "Field Class",
    root => "../int",
    path_part => "field-class",
    model_name => "DB::EntClass",
};