File Coverage

lib/CGI/ValidOp/Check/text.pm

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

package CGI::ValidOp::Check::text;
use strict;
use warnings;

use base qw/ CGI::ValidOp::Check /;

sub default {
    (
        qr#^[\w\s\(\*\.\\\?,!"'/:;@&%)-]+$#,
        q#Only letters, numbers, and the following punctuation are allowed for $label: ! " ' ( ) * , - .  / : ; ? \ @ & %#,
    )
}

sub word {
    (
        qr/^\w+$/,
        q#Only one word is allowed for $label#,
    )
}

sub words {
    (
        qr/^[\w -]+$/,
        q#Only words are allowed for $label#,
    )
}

sub liberal {
    (
        qr#^[\w\s\(\*\.\\\?,!"'/:;&=%~\+\@\$)\#-]+$#,
        q|Only letters, numbers, and the following punctuation are allowed for $label: ! " ' ( ) * , - . / : ; & = % ~ + ? \ @ $ #|,
    )
}

sub hippie {
    (
        qr{^[\w\s\(\*\.\\\?#,{}^_[\]!"'/:;&=%~\+\@\$)-]+$},
        q{Only letters, numbers, and the following punctuation are allowed for $label: ! " ' ( ) * , - . / : ; & = % ~ + ?  \ @ # { } [ ] ^ _ $},
    )
}

1;

__END__