File Coverage

blib/lib/Sledge/Plugin/QueryHash.pm

Criterion	Covered	Total	%
statement	13	24	54.1
branch	0	6	0.0
condition			n/a
subroutine	4	5	80.0
pod			n/a
total	17	35	48.5

package Sledge::Plugin::QueryHash;

use warnings;
use strict;

our $VERSION = '0.01';

sub import {
    my $class = shift;
    my $pkg = caller;

    no strict 'refs';
    *{"$pkg\::query_hash"} = sub {
        my $self = shift;
        my @params = @_;
        unless (@params) {
            @params = $self->r->param;
        }
        my %hash;
        foreach my $key (@params) {
            my @val = $self->r->param($key);
            if (scalar(@val) > 1) {
                $hash{$key} = \@val;
            } else {
                $hash{$key} = $val[0];
            }
        }
        return wantarray ? %hash : \%hash;
    };
}

1;
__END__