explode-uri

#!/usr/bin/env perl
use strict;
use warnings;
use utf8;
use open qw< :std :encoding(UTF-8) >;

use URI;
use JSON::PP;

my $JSON = JSON::PP->new->pretty->allow_nonref;
my @uris =
    map { uri_to_hash($_) }
    map { URI->new($_) }
        @ARGV;

sub uri_to_hash {
    my $uri = shift;

    my $call_if_can = sub {
        my $object = shift;
        my $method = $object->can(shift);
        return $method ? $object->$method(@_) : undef;
    };

    return {
        scheme      => $uri->scheme,
        opaque      => $uri->opaque,
        userinfo    => $uri->$call_if_can("userinfo"),
        authority   => $uri->authority,
        host        => $uri->$call_if_can("host"),
        port        => $uri->$call_if_can("port"),
        path        => $uri->path,
        query_pairs => { $uri->$call_if_can("query_form") },
        fragment    => $uri->fragment,
    };
}

print $JSON->encode( @uris > 1 ? \@uris : $uris[0] );