File Coverage

blib/lib/MooX/Value/Identifier.pm

Criterion	Covered	Total	%
statement	18	18	100.0
branch	8	8	100.0
condition			n/a
subroutine	5	5	100.0
pod			n/a
total	31	31	100.0

package MooX::Value::Identifier;

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

our $VERSION = '0.03';

extends 'MooX::Value';

sub _why_invalid
{
    my ($self, $value) = @_;
    return (__PACKAGE__ . ': No identifier supplied', '', undef) unless defined $value;
    return (__PACKAGE__ . ': Empty identifier supplied', '', undef) unless length $value;
    return (__PACKAGE__ . ': Invalid initial character', '', undef) unless $value =~ m/\A[a-zA-Z_]/;
    return (__PACKAGE__ . ': Invalid character in identifier', '', undef)
        unless $value =~ m/\A[a-zA-Z_][a-zA-Z0-9_]*\z/;
    return;
}

1;
__END__