Yet Another CPAN Grep

Mojolicious-Plugin-FormTamperingProtector ( J/JA/JAMADAM/Mojolicious-Plugin-FormTamperingProtector-0.03.tar.gz, JAMADAM, 2016; MetaCPAN )

Mojolicious-Plugin-FormTamperingProtector/README.pod ( view source; MetaCPAN )

Mojo::Base 'Mojolicious::Plugin';
our $VERSION = '0.03';
use Data::Dumper;
use Mojo::JSON qw(decode_json encode_json);
use Mojo::Util qw{encode decode xml_escape hmac_sha1_sum secure_compare

charset, $html);
}

sub serialize {
    return b64_encode(encode_json(shift // return), '');
}

sub deserialize {
    return decode_json(b64_decode(shift // return));
}

sub sign {
    my ($value, $se

Mojolicious-Plugin-FormTamperingProtector ( J/JA/JAMADAM/Mojolicious-Plugin-FormTamperingProtector-0.03.tar.gz, JAMADAM, 2016; MetaCPAN )

Mojolicious-Plugin-FormTamperingProtector/lib/Mojolicious/Plugin/FormTamperingProtector.pm ( view source; MetaCPAN )

Mojo::Base 'Mojolicious::Plugin';
our $VERSION = '0.03';
use Data::Dumper;
use Mojo::JSON qw(decode_json encode_json);
use Mojo::Util qw{encode decode xml_escape hmac_sha1_sum secure_compare

charset, $html);
}

sub serialize {
    return b64_encode(encode_json(shift // return), '');
}

sub deserialize {
    return decode_json(b64_decode(shift // return));
}

sub sign {
    my ($value, $se

Mojolicious-Plugin-FormTamperingProtector ( J/JA/JAMADAM/Mojolicious-Plugin-FormTamperingProtector-0.03.tar.gz, JAMADAM, 2016; MetaCPAN )

Mojolicious-Plugin-FormTamperingProtector/lib/HTML/ValidationRules/Legacy.pm ( view source; MetaCPAN )

age HTML::ValidationRules::Legacy;
use strict;
use warnings;
use Mojo::Base 'Exporter';
use Mojo::JSON;
use Mojo::Util qw{decode};
use Mojo::Parameters;
use Scalar::Util qw(blessed);

our @EXPORT_OK =

io' || exists $tag->attr->{checked})) {
                $props->{$name}->{$TERM_REQUIRED} = Mojo::JSON->true;
            }
        }
            
        if (exists $tag->attr->{maxlength}) {

 }
    });
    
    return {
        $TERM_PROPERTIES => $props,
        $TERM_ADD_PROPS => Mojo::JSON->false,
    };
}

sub validate {
    my ($schema, $params, $charset) = @_;
    
    if (! (blesse