File Coverage

lib/Badger/Codec/URL.pm

Criterion	Covered	Total	%
statement	12	16	75.0
branch	1	2	50.0
condition	2	5	40.0
subroutine	4	6	66.6
pod	5	5	100.0
total	24	34	70.5

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

package Badger::Codec::URL;

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

# cache of escaped characters is shared with Badger::Codec::URI
our $URI_ESCAPES = $Badger::Codec::URI::URI_ESCAPES;

sub encode_url {
    my $url = shift;

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

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

    # the different between the URL and URI encoding is that URL does
    # not escape any of: ; / ? : @ & = + $
    $url =~ s/([^;\/?:@&=+\$,A-Za-z0-9\-_.!~*'()])/$URI_ESCAPES->{$1}/eg;
    $url;
}

*decode_url = \&Badger::Codec::URI::decode_uri;

sub encode {
    shift;
    goto &encode_url;
}

sub decode {
    shift;
    goto &decode_url;
}

sub encoder {
    \&encode_url;
}

sub decoder {
    \&decode_url;
}


1;


__END__