File Coverage

lib/Badger/Data/Facet/Text/MaxLength.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::MaxLength;

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


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

    return length($$text) <= $self->{ max_length }
        || $self->invalid_msg(
               too_long => $type || 'Text',
               $self->{ max_length }, length($$text)
           );
}

1;

__END__