view release on metacpan or  search on metacpan

script/peri-htserve  view on Meta::CPAN

        }
        if ($args{gepok_unix_sockets}) {
            if ($args{gepok_unix_sockets} =~ /(.+?)(?:,|\z)/) {
                push @root_urls, "http:$1//";
            }
        }
    }

    # display hint for user
    if (@root_urls) {
        my @ep_urls; # api endpoints
        for my $root_url (@root_urls) {
            for my $pkg (@pkgs) {
                my $pkgp = $pkg; $pkgp =~ s!::!/!g;
                push @ep_urls, $root_url . "api/$pkgp/";
            }
        }
        say "Try accessing one of the following URLs with curl/riap/etc:";
        print map { "- $_\n" } @ep_urls;
        say "";
    }