use strict;
use warnings;
use Test::More tests => 3;
use Test::Exception;
{
package MyClass;
use Moo;
use MooX::Types::MooseLike::Email qw/EmailAddressLoose/;
has 'email' => ( isa => EmailAddressLoose, is => 'ro', required => 1 );
}
lives_ok { MyClass->new( email => 'foo@example.com') }
'foo@example.com is an ok email';
lives_ok { MyClass->new( email => 'bar..@example.com') }
'bar..@example.com is an ok email';
throws_ok { MyClass->new( email => 'buz' ) }
qr/a valid e-mail/, 'Throws as "buz" is not a valid email';