File Coverage

lib/Mojolicious/Plugin/GroupedParams.pm

Criterion	Covered	Total	%
statement	24	25	96.0
branch	3	6	50.0
condition	4	6	66.6
subroutine	5	5	100.0
pod	1	1	100.0
total	37	43	86.0

package Mojolicious::Plugin::GroupedParams;

use warnings;
use strict;

use base 'Mojolicious::Plugin';

our $VERSION = '0.04';

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

    my $dms = $conf->{delimiters} || ['.'];
    my $dms_re = join( '|', map { quotemeta($_) } @$dms );
    my $key_split_re = qr/^(.+?)(?:$dms_re)(.+)$/;

    $app->helper(
        grouped_params => sub {
            my ( $self, $group ) = @_;
            my $groups = {};

            unless ( $self->stash('grouped_params') ) {

                my $params = $self->req->params->to_hash;

                for my $key ( keys %$params ) {
                   if ( my ($group, $name) = $key =~ $key_split_re ) {
                       $groups->{$group} ||= {};
                       $groups->{$group}{$name} = $params->{$key};
                   }
                }

            }
            else {
                $groups = $self->stash('grouped_params');
            }

            $group ? $groups->{$group} || {} : $groups;
        }
    );
}

1;

__END__