File Coverage

blib/lib/Dancer2/Plugin/ParamKeywords.pm

Criterion	Covered	Total	%
statement	28	28	100.0
branch	3	6	50.0
condition			n/a
subroutine	8	8	100.0
pod			n/a
total	39	42	92.8

use 5.16.0;
use strict;
use warnings;

package Dancer2::Plugin::ParamKeywords;
use Dancer2::Plugin;

our $VERSION = 'v0.1.0';

foreach my $source ( qw( route query body ) ) {
    register "$source\_param" => sub {
        my ($dsl, $param)  = @_;
        $dsl->app->request->params($source)->{$param};
    };

    register "$source\_params" => sub {
        my $dsl  = shift;
        $dsl->app->request->params($source);
    };
}

register munged_params => sub {
     my $dsl = shift;
     my $conf = plugin_setting->{munge_precedence};
     die 'Please configure the plugin settings for ParamKeywords to use munged_params'
       unless ref($conf) eq 'ARRAY';

     my %params = map { $dsl->app->request->params($_) } reverse @$conf;
     wantarray ? %params : \%params;
};

register munged_param => sub {
     my ($dsl, $param) = @_;
     my $conf = plugin_setting->{munge_precedence};
     die 'Please configure the plugin settings for ParamKeywords to use munged_param'
       unless ref($conf) eq 'ARRAY';

     my %params = map { $dsl->app->request->params($_) } reverse @$conf;
     $params{$param};
};

register_plugin for_versions => [ 2 ] ;

1;

# ABSTRACT: Sugar for the params() keyword
# PODNAME: Dancer2::Plugin::ParamKeywords

__END__