File Coverage

blib/lib/Mojolicious/Plugin/Parametry/ParamerHelpers.pm

Criterion	Covered	Total	%
statement	26	27	96.3
branch	12	14	85.7
condition			n/a
subroutine	8	9	88.8
pod	0	2	0.0
total	46	52	88.4

package Mojolicious::Plugin::Parametry::ParamerHelpers;

use strict;
use warnings;
use Mojo::Collection;

our $VERSION = '1.001001'; # VERSION

sub new { bless { _c => $_[1] }, $_[0] }

sub matching {
    my ($self, $re, %args) = @_;
    my $c = $self->{_c};

    $re = qr/^\Q$re\E/ unless ref $re eq 'Regexp';
    my $params = Mojo::Collection->new(grep /$re/, $c->req->params->names->@*);


    if ($args{as_hash}) {
        return +{ $params->map(sub {
            my $orig_name = $_;
            $args{subst} and s/$re/$args{subst}/;
            $args{strip} and s/$re//;
            $_ => $c->param($orig_name)
        })->each }
    }

    $args{vals}
        and return $params->map(sub {$c->param($_)});

    $args{subst} and $params = $params->map(sub {s/$re/$args{subst}/r});
    $args{strip} and $params = $params->map(sub {s/$re//r});
    $params
}

1;

__END__