coerce.pl

#!perl -w
use strict;
use Test::More;
{
    package A;
    use Any::Moose;
    use Any::Moose '::Util::TypeConstraints';
    use URI;

    subtype 'A.URI', as 'URI';
    coerce 'A.URI',
        from 'Str', via { URI->new($_) };


    has base => (
         is       => 'rw',
         isa      => 'A.URI',
         coerce   => 1,
         required => 1,
    );

    __PACKAGE__->meta->make_immutable();
}

my $a = A->new(base => 'http://example.com');

isa_ok $a->base, 'URI';

done_testing;