File Coverage

blib/lib/URL/Builder.pm

Criterion	Covered	Total	%
statement	33	33	100.0
branch	8	8	100.0
condition			n/a
subroutine	7	7	100.0
pod	2	2	100.0
total	50	50	100.0

package URL::Builder;
use 5.008005;
use strict;
use warnings;

our $VERSION = "0.06";

use parent qw(Exporter);

use WWW::Form::UrlEncoded qw(build_urlencoded_utf8 build_urlencoded);

our @EXPORT = qw(build_url build_url_utf8);

sub build_url {
    my %args = @_;

    my $uri;
    if (exists $args{base_uri}) {
        $args{base_uri} =~ s!\/\z!!;
        $uri = $args{base_uri};
    }

    $uri .= $args{path};

    if ( defined $args{query} ) {
        $uri .= '?' . build_urlencoded($args{query});
    }
    return $uri;
}

sub build_url_utf8 {
    my %args = @_;

    my $uri;
    if (exists $args{base_uri}) {
        $args{base_uri} =~ s!\/\z!!;
        $uri = $args{base_uri};
    }

    $uri .= $args{path};

    if ( defined $args{query} ) {
        $uri .= '?' . build_urlencoded_utf8($args{query});
    }
    return $uri;
}

1;
__END__