File Coverage

blib/lib/Class/Value/Contact/EmailAddress.pm

Criterion	Covered	Total	%
statement	17	23	73.9
branch			n/a
condition	2	3	66.6
subroutine	6	8	75.0
pod	3	3	100.0
total	28	37	75.6

use 5.008;
use strict;
use warnings;

package Class::Value::Contact::EmailAddress;
our $VERSION = '1.100840';
# ABSTRACT: Contact-related value objects
use Email::Valid;
use parent 'Class::Value::Contact';

sub is_well_formed_value {
    my ($self, $value) = @_;
    return
         $self->SUPER::is_well_formed_value($value)
      && Email::Valid->address($value)
      && $value =~ /^[^\@]+\@[^\@]+$/
      &&    # only one '@' sign
      length($value) <= 255;
}

sub send_notify_value_not_wellformed {
    my ($self, $value) = @_;
    local $Error::Depth = $Error::Depth + 2;
    $self->exception_container->record(
        'Class::Value::Contact::Exception::Email::NotWellformed',
        email => $value,);
}

sub send_notify_value_invalid {
    my ($self, $value) = @_;
    local $Error::Depth = $Error::Depth + 2;
    $self->exception_container->record(
        'Class::Value::Contact::Exception::Email::Invalid',
        email => $value,);
}
1;


__END__