11 'MooseX::Method::Signatures' => 0.01,
13 use MooseX::AlwaysCoerce;
14 use Moose::Util::TypeConstraints;
17 subtype 'MyType', as 'Int';
18 coerce 'MyType', from 'Str', via { length $_ };
20 subtype 'Uncoerced', as 'Int';
23 method foo (MyType :$foo, Uncoerced :$bar) {
29 use Test::NoWarnings 1.04 ':early';
32 ok( (my $instance = MyClass->new), 'instance' );
35 local $TODO = 'need rafl to help with implementation';
38 is $instance->foo(foo => "text", bar => 42), '4 42';
39 }, undef, 'method called with coerced and uncoerced parameters' )
40 or todo_skip 'is() test never ran', 1;