File Coverage

blib/lib/Value/Object/HexString.pm

Criterion	Covered	Total	%
statement	17	17	100.0
branch	6	6	100.0
condition			n/a
subroutine	5	5	100.0
pod	1	1	100.0
total	29	29	100.0

package Value::Object::HexString;

use strict;
use warnings;

use parent 'Value::Object';

our $VERSION = '0.14';

sub _why_invalid
{
    my ( $self, $value ) = @_;
    return ( ref($self) . ': value is undefined', '', undef ) unless defined $value;
    return ( ref($self) . ': value is empty', '', undef ) unless length $value;
    return ( ref($self) . ': value format is incorrect', '', $value ) unless $value =~ m/\A[0-9a-fA-F]+\z/;
    return;
}

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

1;
__END__