File Coverage

blib/lib/Class/Value/Contact.pm

Criterion	Covered	Total	%
statement	12	18	66.6
branch			n/a
condition			n/a
subroutine	4	6	66.6
pod	2	2	100.0
total	18	26	69.2

use 5.008;
use strict;
use warnings;

package Class::Value::Contact;
our $VERSION = '1.100840';
# ABSTRACT: Contact-related value objects
use parent qw(Class::Value::String);

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

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


__END__