File Coverage

lib/Badger/Codec/URI.pm

Criterion	Covered	Total	%
statement	17	21	80.9
branch	1	2	50.0
condition	3	5	60.0
subroutine	5	7	71.4
pod	6	6	100.0
total	32	41	78.0

#========================================================================
#
# Badger::Codec::URI
#
# DESCRIPTION
#   Codec module for URI encoding/decoding
#
# AUTHOR
#   Andy Wardley
#
#========================================================================

package Badger::Codec::URI;

use Badger::Class
    version => 0.01,
    base    => 'Badger::Codec';

# cache of escaped characters
our $URI_ESCAPES;

sub encode_uri {
    my $uri = shift;

    utf8::encode($uri)
        if $] >= 5.008 && utf8::is_utf8($uri);

    $URI_ESCAPES ||= {
        map { ( chr($_), sprintf("%%%02X", $_) ) }
        (0..255)
    };

    $uri =~ s/([^A-Za-z0-9\-_.!~*'()])/$URI_ESCAPES->{$1}/eg;
    $uri;
}

sub decode_uri {
    my $uri = shift;
    $uri =~ tr/+/ /;
    $uri =~ s/%([0-9a-fA-F]{2})/pack("c", hex($1))/ge;
    $uri;
}

sub encode {
    shift;
    goto &encode_uri;
}

sub decode {
    shift;
    goto &decode_uri;
}

sub encoder {
    \&encode_uri;
}

sub decoder {
    \&decode_uri;
}


1;


__END__