12 use MooseX::Params::Validate;
18 my ( $self, %params ) = validated_hash(
20 bar => { isa => 'Str', default => 'Moose' },
22 return "Horray for $params{bar}!";
27 use Moose::Util::TypeConstraints;
28 use MooseX::Params::Validate;
34 my %params = validated_hash(
36 foo => { isa => 'Foo' },
37 baz => { isa => 'ArrayRef | HashRef', optional => 1 },
38 gorch => { isa => 'ArrayRef[Int]', optional => 1 },
40 [ $params{foo}, $params{baz}, $params{gorch} ];
45 my %params = validated_hash(
48 isa => subtype( 'Object' => where { $_->isa('Foo') } ),
51 bar => { does => 'Roles::Blah', optional => 1 },
53 does => role_type('Roles::Blah'),
57 return $params{foo} || $params{bar} || $params{boo};
62 my %params = validated_hash(
67 'some random callback' =>
68 sub { !ref( $_[0] ) || @{ $_[0] } <= 2 },
78 isa_ok( $foo, 'Foo' );
80 is( $foo->foo, 'Horray for Moose!', '... got the right return value' );
82 $foo->foo( bar => 'Rolsky' ), 'Horray for Rolsky!',
83 '... got the right return value'
86 is( $foo->baz( foo => $foo ), $foo, '... foo param must be a Foo instance' );
89 exception { $foo->baz( foo => 10 ) }, qr/\QThe 'foo' parameter ("10")/,
90 '... the foo param in &baz must be a Foo instance'
93 exception { $foo->baz( foo => "foo" ) },
94 qr/\QThe 'foo' parameter ("foo")/,
95 '... the foo param in &baz must be a Foo instance'
98 exception { $foo->baz( foo => [] ) }, qr/\QThe 'foo' parameter/,
99 '... the foo param in &baz must be a Foo instance'
102 is( $foo->baz( bar => $foo ), $foo, '... bar param must do Roles::Blah' );
105 exception { $foo->baz( bar => 10 ) }, qr/\QThe 'bar' parameter ("10")/,
106 '... the bar param in &baz must be do Roles::Blah'
109 exception { $foo->baz( bar => "foo" ) },
110 qr/\QThe 'bar' parameter ("foo")/,
111 '... the bar param in &baz must be do Roles::Blah'
114 exception { $foo->baz( bar => [] ) }, qr/\QThe 'bar' parameter/,
115 '... the bar param in &baz must be do Roles::Blah'
118 is( $foo->baz( boo => $foo ), $foo, '... boo param must do Roles::Blah' );
121 exception { $foo->baz( boo => 10 ) }, qr/\QThe 'boo' parameter ("10")/,
122 '... the boo param in &baz must be do Roles::Blah'
125 exception { $foo->baz( boo => "foo" ) },
126 qr/\QThe 'boo' parameter ("foo")/,
127 '... the boo param in &baz must be do Roles::Blah'
130 exception { $foo->baz( boo => [] ) }, qr/\QThe 'boo' parameter/,
131 '... the boo param in &baz must be do Roles::Blah'
135 exception { $foo->bar }, qr/\QMandatory parameter 'foo'/,
136 '... bar has a required param'
139 exception { $foo->bar( foo => 10 ) }, qr/\QThe 'foo' parameter ("10")/,
140 '... the foo param in &bar must be a Foo instance'
143 exception { $foo->bar( foo => "foo" ) },
144 qr/\QThe 'foo' parameter ("foo")/,
145 '... the foo param in &bar must be a Foo instance'
148 exception { $foo->bar( foo => [] ) }, qr/\QThe 'foo' parameter/,
149 '... the foo param in &bar must be a Foo instance'
151 like( exception { $foo->bar( baz => [] ) }, qr/\QMandatory parameter 'foo'/ );
154 $foo->bar( foo => $foo ),
155 [ $foo, undef, undef ],
156 '... the foo param in &bar got a Foo instance'
160 $foo->bar( foo => $foo, baz => [] ),
162 '... the foo param and baz param in &bar got a correct args'
166 $foo->bar( foo => $foo, baz => {} ),
168 '... the foo param and baz param in &bar got a correct args'
172 exception { $foo->bar( foo => $foo, baz => undef ) },
173 qr/\QThe 'baz' parameter (undef)/,
174 '... baz requires a ArrayRef | HashRef'
177 exception { $foo->bar( foo => $foo, baz => 10 ) },
178 qr/\QThe 'baz' parameter ("10")/,
179 '... baz requires a ArrayRef | HashRef'
182 exception { $foo->bar( foo => $foo, baz => 'Foo' ) },
183 qr/\QThe 'baz' parameter ("Foo")/,
184 '... baz requires a ArrayRef | HashRef'
187 exception { $foo->bar( foo => $foo, baz => \( my $var ) ) },
188 qr/\QThe 'baz' parameter/, '... baz requires a ArrayRef | HashRef'
192 $foo->bar( foo => $foo, gorch => [ 1, 2, 3 ] ),
193 [ $foo, undef, [ 1, 2, 3 ] ],
194 '... the foo param in &bar got a Foo instance'
198 exception { $foo->bar( foo => $foo, gorch => undef ) },
199 qr/\QThe 'gorch' parameter (undef)/,
200 '... gorch requires a ArrayRef[Int]'
203 exception { $foo->bar( foo => $foo, gorch => 10 ) },
204 qr/\QThe 'gorch' parameter ("10")/,
205 '... gorch requires a ArrayRef[Int]'
208 exception { $foo->bar( foo => $foo, gorch => 'Foo' ) },
209 qr/\QThe 'gorch' parameter ("Foo")/,
210 '... gorch requires a ArrayRef[Int]'
213 exception { $foo->bar( foo => $foo, gorch => \( my $var ) ) },
214 qr/\QThe 'gorch' parameter/, '... gorch requires a ArrayRef[Int]'
217 exception { $foo->bar( foo => $foo, gorch => [qw/one two three/] ) },
218 qr/\QThe 'gorch' parameter/, '... gorch requires a ArrayRef[Int]'
222 exception { $foo->quux( foo => '123456790' ) },
223 qr/\QThe 'foo' parameter\E.+\Qchecking type constraint/,
224 '... foo parameter must be an ArrayRef'
228 exception { $foo->quux( foo => [ 1, 2, 3, 4 ] ) },
229 qr/\QThe 'foo' parameter\E.+\Qsome random callback/,
230 '... foo parameter additional callback requires that arrayref be 0-2 elements'