File Coverage

blib/lib/PocketIO/Util.pm

Criterion	Covered	Total	%
statement	11	21	52.3
branch	1	8	12.5
condition			n/a
subroutine	4	4	100.0
pod	0	1	0.0
total	16	34	47.0

package PocketIO::Util;

use strict;
use warnings;

use base 'Exporter';

our @EXPORT_OK = (qw/urlencoded_param/);

sub urlencoded_param {
    my ($string, $needed_key) = @_;

    return unless defined $string;

    my @pairs = split /(?:&|;)/, $string;
    for my $pair (@pairs) {
        my ($key, $value) = split /=/, $pair;

        $key =~ s/%([0-9A-Fa-f]{2})/chr(hex($1))/eg if defined $key;
        if ($key eq $needed_key) {
            $value =~ s/%([0-9A-Fa-f]{2})/chr(hex($1))/eg if defined $value;
            return $value;
        }
    }

    return;
}

1;