Skip to content

Instantly share code, notes, and snippets.

@FROGGS

FROGGS/01.t Secret

Created March 3, 2015 20:47
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
Star You must be signed in to star a gist
Save FROGGS/1401a5ed729089a6aa17 to your computer and use it in GitHub Desktop.
use v6;
use URI;
say URI.default_port('http')
use v6;
# This logic seems to belong somewhere related to URI but not in the URI
# module itself.
module URI::DefaultPort {
my %default_port = (
ftp => 21,
ssh => 22,
telnet => 23,
tn3270 => 23,
gopher => 70,
http => 80,
pop => 110,
news => 119,
ldap => 389,
https => 443,
rlogin => 513,
rtsp => 554,
rtspu => 554,
snews => 563,
ldaps => 636,
rsync => 873,
mms => 1755,
sip => 5060,
sips => 5061
);
our sub scheme_port(Str $scheme) {
# guessing the // Int should be unnecessary some day ...
return %default_port{$scheme}.Int // Int;
}
}
# vim:ft=perl6
class URI;
use URI::DefaultPort;
method default_port($scheme) {
URI::DefaultPort::scheme_port($scheme)
}
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment