Mojo::URL-Behaviour

gistfile1.pl

#!/usr/bin/env perl
use Mojo::URL;

my $url = Mojo::URL->new('http://example.com/?action=test');
my $url2 = Mojo::URL->new('broker.js?foo=bar');
$url->path($url2->path);
$url->query($url2->query);

# http://example.combroker.js?foo=bar
#                   ^ ???
print $url;