File Coverage

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

Criterion	Covered	Total	%
statement	6	6	100.0
branch			n/a
condition	4	6	66.6
subroutine	2	2	100.0
pod	1	1	100.0
total	13	15	86.6

package Badger::Data::Facet::Text::Pattern;

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


sub validate {
    my ($self, $text, $type) = @_;
    my $regex = $self->{ regex } ||= qr/$self->{ pattern }/;

    return $$text =~ $regex
        || $self->invalid_msg(
               pattern => $type || 'Text', $self->{ pattern }, $$text
           );
}


1;

__END__