add URI::nntps (closes #82)

Author: karenetheridge

Changes

@@ -1,6 +1,7 @@
 Revision history for URI
 
 {{$NEXT}}
+    - added URI::nntps (GH#82)
 
 5.07      2021-01-29 22:52:20Z
     - s/perl.com/example.com/ in examples and tests (GH#81) (Olaf Alders)

lib/URI.pm

@@ -926,6 +926,10 @@ access the path: $uri->group and $uri->message.
 
 See I<news> scheme.
 
+=item B<nntps>:
+
+See I<news> scheme.
+
 =item B<pop>:
 
 The I<pop> URI scheme is specified in RFC 2384. The scheme is used to

lib/URI/nntps.pm

@@ -0,0 +1,14 @@
+package URI::nntps;
+
+use strict;
+use warnings;
+
+our $VERSION = '5.08';
+
+use parent 'URI::nntp';
+
+sub default_port { 563 }
+
+sub secure { 1 }
+
+1;

t/news.t

@@ -1,7 +1,7 @@
 use strict;
 use warnings;
 
-print "1..7\n";
+print "1..8\n";
 
 use URI ();
 
@@ -49,3 +49,9 @@ print "not " unless $u->group eq "no.perl" &&
                     $u->port == 563;
 print "ok 7\n";
 
+$u = URI->new("nntps://nntps.online.no/no.perl");
+
+print "not " unless $u->group eq "no.perl" &&
+	            $u->host  eq "nntps.online.no" &&
+                    $u->port == 563;
+print "ok 8\n";