Add ftpes scheme, and encrypt_mode to ftp/ftps/ftpes

lib/URI/ftp.pm

@@ -9,6 +9,8 @@ use parent qw(URI::_server URI::_userpass);
 
 sub default_port { 21 }
 
+sub encrypt_mode { undef }
+
 sub path { shift->path_query(@_) }  # XXX
 
 sub _user     { shift->SUPER::user(@_);     }

lib/URI/ftpes.pm

@@ -0,0 +1,10 @@
+package URI::ftpes;
+
+require URI::ftp;
+@ISA=qw(URI::ftp);
+
+sub secure { 1 }
+
+sub encrypt_mode { 'explicit' }
+
+1;

lib/URI/ftps.pm

@@ -7,4 +7,6 @@ sub default_port { 990 }
 
 sub secure { 1 }
 
+sub encrypt_mode { 'implicit' }
+
 1;

t/ftp.t

@@ -1,7 +1,7 @@
 use strict;
 use warnings;
 
-use Test::More tests => 13;
+use Test::More tests => 23;
 
 use URI ();
 my $uri;
@@ -14,6 +14,10 @@ is($uri->host, "ftp.example.com");
 
 is($uri->port, 21);
 
+is($uri->secure, 0);
+
+is($uri->encrypt_mode, undef);
+
 is($uri->user, "anonymous");
 
 is($uri->password, 'anonymous@');
@@ -31,10 +35,31 @@ $uri->password("secret");
 is($uri, "ftp://gisle%40aas.no:secret\@ftp.example.com/path");
 
 $uri = URI->new("ftp://gisle\@aas.no:secret\@ftp.example.com/path");
+
 is($uri, "ftp://gisle\@aas.no:secret\@ftp.example.com/path");
 
 is($uri->userinfo, "gisle\@aas.no:secret");
 
 is($uri->user, "gisle\@aas.no");
 
 is($uri->password, "secret");
+
+$uri = URI->new("ftps://ftp.example.com/path");
+
+is($uri->scheme, "ftps");
+
+is($uri->port, 990);
+
+is($uri->secure, 1);
+
+is($uri->encrypt_mode, 'implicit');
+
+$uri = URI->new("ftpes://ftp.example.com/path");
+
+is($uri->scheme, "ftpes");
+
+is($uri->port, 21);
+
+is($uri->secure, 1);
+
+is($uri->encrypt_mode, 'explicit');