view release on metacpan or  search on metacpan

lib/Mojolicious/Plugin/Vparam/Filters.pm  view on Meta::CPAN

use Mojo::Base -strict;
use Mojolicious::Plugin::Vparam::Common qw(load_class);
use List::MoreUtils                     qw(any);

sub like($$) {
    return 'Value not defined'      unless defined $_[0];
    return 'Wrong format'           unless $_[0] =~ $_[1];
    return 0;
}

sub in($$) {
    my ($str, $list) = @_;

    die 'Not ArrayRef'              unless 'ARRAY' eq ref $list;

    return 'Value not defined'      unless defined $str;
    return 'Wrong value'
        unless any {defined($_) && $str eq $_} @$list;

    return 0;
}