File Coverage

blib/lib/Mojolicious/Plugin/UnicodeNormalize.pm

Criterion	Covered	Total	%
statement	9	23	39.1
branch	0	4	0.0
condition	0	2	0.0
subroutine	3	5	60.0
pod	1	1	100.0
total	13	35	37.1

package Mojolicious::Plugin::UnicodeNormalize;
$Mojolicious::Plugin::UnicodeNormalize::VERSION = '1.20160509';
use Mojolicious 6.41;
use Mojo::Base 'Mojolicious::Plugin';
use Unicode::Normalize ();

sub register {
    my ($self, $app, $conf) = @_;

    my $form       = $conf->{form} // 'NFC';
    my $normalizer = Unicode::Normalize->can( $form );

    unless ($normalizer) {
        require Carp;
        Carp::croak( "Invalid normalization form '$form' requested" );
    }

    my $sub = sub {
        my $c      = shift;
        my $params = $c->req->params;
        my $pairs  = [
            map { ref( $_ ) ? $_ : $normalizer->( $_ ) } @{ $params->pairs }
        ];

        $params->pairs( $pairs );
    };

    $app->hook( before_dispatch => $sub );
}

1;
__END__