File Coverage

blib/lib/MooX/Value/Domain.pm

Criterion	Covered	Total	%
statement	27	27	100.0
branch	6	6	100.0
condition			n/a
subroutine	8	8	100.0
pod	2	2	100.0
total	43	43	100.0

package MooX::Value::Domain;

use warnings;
use strict;
use Moo;
use namespace::clean;

use MooX::Value::ValidationUtils;

our $VERSION = '0.04';

extends 'MooX::Value';

sub _why_invalid
{
    my ($self, $value) = @_;
    my ($why, $long, $data) = MooX::Value::ValidationUtils::why_invalid_domain_name( $value );
    return ( __PACKAGE__ . ": $why", $long, $data ) if defined $why;
    return;
}

sub new_canonical
{
    my ($class, $value) = @_;
    $value =~ tr/A-Z/a-z/;
    return $class->new( $value );
}

sub make_subdomain
{
    my ($self, $label) = @_;
    die __PACKAGE__ . ': undefined label' unless defined $label;
    die __PACKAGE__ .': Not a DomainLabel' unless eval { $label->isa( 'MooX::Value::DomainLabel' ); };
    return __PACKAGE__->new( $label->value . '.' . $self->value );
}

1;
__END__