File Coverage

lib/Badger/Data/Facet/Text/Length.pm

Criterion	Covered	Total	%
statement	5	5	100.0
branch			n/a
condition	2	3	66.6
subroutine	2	2	100.0
pod	1	1	100.0
total	10	11	90.9

package Badger::Data::Facet::Text::Length;

use Badger::Data::Facet::Class
    version   => 0.01,
    type      => 'text',
    args      => 'length';


sub validate {
    my ($self, $text, $type) = @_;

    return CORE::length($$text) == $self->{ length }
        || $self->invalid_msg(
               wrong_length => $type || 'Text',
               $self->{ length }, CORE::length($$text)
           );
}

1;

__END__