use Moo::_strictures;
use Test::More;

{
  package Goo;
  use Moo;
  use Types::Standard qw(Int Num);

  has foo => (
    is      => 'ro',
    isa     => Int->plus_coercions(Num, q{ int($_) }),
    coerce  => 1,
  );
}

my $obj = Goo->new(
  foo => 3.14159,
);

is($obj->foo, '3', 'Type::Tiny coercion applied with coerce => 1');

done_testing;