File Coverage

blib/lib/Cikl/Models/Address/fqdn.pm

Criterion	Covered	Total	%
statement	25	25	100.0
branch	1	2	50.0
condition	1	3	33.3
subroutine	8	8	100.0
pod	0	2	0.0
total	35	40	87.5

package Cikl::Models::Address::fqdn;
use strict;
use warnings;
use Mouse;
use Cikl::Models::AddressRole;
use Cikl::DataTypes::Fqdn;
use namespace::autoclean;
with 'Cikl::Models::AddressRole';

sub type { 'fqdn' }

has '+value' => (
  isa => 'Cikl::DataTypes::Fqdn'
);

sub normalize_value {
  my $class = shift;
  my $value = shift;
  return $value unless ($value && ref($value) eq '');
  $value =~ s/^\s+//;
  $value =~ s/\s+$//;
  return lc($value);
}

__PACKAGE__->meta->make_immutable;
1;