view release on metacpan or  search on metacpan

lib/App/URIUtils.pm  view on Meta::CPAN

    my %args = @_;
    my $url = URI::URL->new($args{url}, $args{base});
    if ($args{parse_type} eq 'url') {
        return +{
            orig => $args{url},
            base => $args{base},

            scheme => $url->scheme,
            has_recognized_scheme => $url->has_recognized_scheme,
            opaque => $url->opaque,
            path => $url->path, # unescaped string
            fragment => $url->fragment,
            canonical => $url->canonical . "",
            authority => $url->authority,
            query => $url->query, # escaped

            # server/host methods
            host => $url->host,
            port => $url->port,
            default_port => $url->default_port,

            #abs_path  => $url->abs_path,
            full_path => $url->full_path, # abs_path || "/"

        };