File Coverage

blib/lib/Type/EmailAddress.pm

Criterion	Covered	Total	%
statement	18	18	100.0
branch			n/a
condition			n/a
subroutine	6	6	100.0
pod			n/a
total	24	24	100.0

package Type::EmailAddress;
# ABSTRACT: type constraints for email addresses

use warnings;
use strict;
use Email::Valid ();
use Type::Utils qw(declare as where inline_as);
use Types::Standard qw( Str );
use Type::Library
   -base,
   -declare => qw( EmailAddress );

our $VERSION = '0.001'; # VERSION;

declare EmailAddress,
  as Str,
  where { Email::Valid->address( -address => $_ ) },
  inline_as {
     my ($constraint, $varname) = @_;
     return sprintf(
        '%s and Email::Valid->address( -address => %s )',
        $constraint->parent->inline_check($varname),
        $varname,
     );
  };

1;

__END__