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