File Coverage

blib/lib/Cikl/Models/Address/ipv4.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::ipv4;
use strict;
use warnings;
use Mouse;
use Cikl::Models::AddressRole;
use Cikl::DataTypes::Ipv4;
use namespace::autoclean;
with 'Cikl::Models::AddressRole';

sub type { 'ipv4' }

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

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

__PACKAGE__->meta->make_immutable;
1;