File Coverage

blib/lib/MooX/Types/MooseLike/Email.pm

Criterion	Covered	Total	%
statement	24	24	100.0
branch			n/a
condition			n/a
subroutine	8	8	100.0
pod			n/a
total	32	32	100.0

package MooX::Types::MooseLike::Email;
use strict;
use warnings;
our $VERSION = '0.03';

use MooX::Types::MooseLike qw/exception_message/;
use MooX::Types::MooseLike::Base;
use Email::Valid;
use Email::Valid::Loose;
use Email::Abstract;
use Exporter qw/import/;
our @EXPORT_OK = ();

my $type_definitions = [
    {
        name       => 'EmailAddress',
        subtype_of => 'Str',
        from       => 'MooX::Types::MooseLike::Base',
        test       => sub { Email::Valid->address($_[0]) },
        message    => sub { return exception_message( $_[0], 'a valid e-mail address' ) },
    },
    {
        name       => 'EmailAddressLoose',
        subtype_of => 'Str',
        from       => 'MooX::Types::MooseLike::Base',
        test       => sub { Email::Valid::Loose->address($_[0]) },
        message    => sub { return exception_message( $_[0], 'a valid e-mail address' ) },
    },
    {
        name       => 'EmailMessage',
        subtype_of => 'Object',
        from       => 'MooX::Types::MooseLike::Base',
        test       => sub { Email::Abstract->new($_[0]) },
        message    => sub { return exception_message( $_[0], 'recognized by Email::Abstract' ) },
    },
];

MooX::Types::MooseLike::register_types($type_definitions, __PACKAGE__, 'MooseX::Types::Email::Loose');
our %EXPORT_TAGS = ( all => \@EXPORT_OK );

1;
__END__