File Coverage

blib/lib/URI/URL/AddQueryParam.pm

Criterion	Covered	Total	%
statement	24	24	100.0
branch			n/a
condition			n/a
subroutine	7	7	100.0
pod	0	1	0.0
total	31	32	96.8

package URI::URL::AddQueryParam;

use 5.008008;
use strict;
use warnings;
use URI;
use URI::URL;
use URI::QueryParam;

require Exporter;
our @ISA = qw(Exporter);
our @EXPORT_OK = qw(http_add_query_param);
our $VERSION = '0.03';

sub http_add_query_param
{
	my $base_url = shift;
	my $hashref_add_query_param = shift;

	my $obj_url = URI::URL->new($base_url);
	foreach (sort keys %$hashref_add_query_param)
	{
		$obj_url->query_param_append($_, $$hashref_add_query_param{$_});
	}
	return $obj_url->abs;
}

1;
__END__