File Coverage

blib/lib/Value/Object/Identifier.pm

Criterion	Covered	Total	%
statement	15	15	100.0
branch	8	8	100.0
condition			n/a
subroutine	4	4	100.0
pod			n/a
total	27	27	100.0

package Value::Object::Identifier;

use warnings;
use strict;

our $VERSION = '0.14';

use parent 'Value::Object';

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

1;
__END__