The Perl and Raku Conference 2025: Greenville, South Carolina - June 27-29 Learn more

JJNAPIORK / CatalystX-RequestModel-0.003 / t / lib / Example / Model / LoginRequest.pm 

            

              
1
2
3
4
5
6
7
8
9
10
11
12

              
package Example::Model::LoginRequest;
use Moose;
use CatalystX::RequestModel;
extends 'Catalyst::Model';
content_type 'application/x-www-form-urlencoded';
has username => (is=>'ro', required=>1, property=>1);  
has password => (is=>'ro', property=>1);
__PACKAGE__->meta->make_immutable();