The Perl Toolchain Summit 2025 Needs You: You can help 🙏 Learn more

JJNAPIORK / CatalystX-RequestModel-0.020 / t / lib / Example / Model / Root / OmitBody.pm 

            

              
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24

              
package Example::Model::Root::OmitBody;
use Moose;
use CatalystX::RequestModel;
extends 'Catalyst::Model';
content_type 'application/x-www-form-urlencoded';
has omit_scalar => (is=>'ro', property=>+{omit_empty=>0});
has omit_array => (is=>'ro', property=>+{indexed=>1, omit_empty=>0, model=>'OmitArray'});  
__PACKAGE__->meta->make_immutable();
package Example::Model::Root::OmitArray;
use Moose;
use CatalystX::RequestModel;
extends 'Catalyst::Model';
content_type 'application/x-www-form-urlencoded';
has test => (is=>'ro', property=>1);
__PACKAGE__->meta->make_immutable();