File Coverage

blib/lib/Amon2/Auth/Util.pm

Criterion	Covered	Total	%
statement	18	26	69.2
branch			n/a
condition	0	4	0.0
subroutine	6	7	85.7
pod	0	1	0.0
total	24	38	63.1

use strict;
use warnings;
use utf8;

package Amon2::Auth::Util;
use parent qw(Exporter);

our @EXPORT_OK = qw(parse_content);

# taken from OAuth::Lite2::Util
use Hash::MultiValue;
use URI::Escape qw(uri_unescape);
sub parse_content {
    my $content = shift;
    my $params  = Hash::MultiValue->new;
    for my $pair ( split /\&/, $content ) {
        my ( $key, $value ) = split /\=/, $pair;
        $key   = uri_unescape( $key   || '' );
        $value = uri_unescape( $value || '' );
        $params->add( $key, $value );
    }
    return $params;
}

1;