Add authority() to URI::otpauth (GH#152)

Author: hightowe

Changes

@@ -2,6 +2,7 @@ Revision history for URI
 
 {{$NEXT}}
     - Add smb scheme (buralien)
+    - Add authority() to URI::otpauth (GH#152) (hightowe)
 
 5.31      2024-11-06 03:38:29Z
     - Re-releasing with corrected module permissions. No changes since 5.31

lib/URI/otpauth.pm

@@ -128,6 +128,8 @@ sub type {
     return $self->_field('type', @parameters);
 }
 
+sub authority { return shift->type(@_); }
+
 sub label {
     my ($self, @parameters) = @_;
     return $self->_field('label', @parameters);

t/otpauth.t

@@ -4,7 +4,7 @@ use strict;
 use warnings;
 
 use URI;
-use Test::More tests => 86;
+use Test::More tests => 90;
 
 {
   my $uri = URI->new( 'otpauth://totp/Example:[email protected]?secret=JBSWY3DPEHPK3PXP&issuer=Example' );
@@ -121,6 +121,7 @@ for my $case ( @case ) {
   ok $uri, "created $uri";
   is $uri->scheme(), 'otpauth', "$name: scheme";
   is $uri->type(),  $type, "$name: type";
+  is $uri->authority(),  $type, "$name: authority";
   is $uri->secret(), $secret, "$name: secret";
   is $uri->issuer(),  $issuer, "$name: issuer";
   if (defined $issuer) {
@@ -141,5 +142,7 @@ diag "doc1_uri is $doc1_uri";
 diag "doc2_uri is $doc2_uri";
 is "$doc1_uri", "$doc2_uri", "$doc1_uri: matches";
 
+is $doc1_uri->type(), $doc2_uri->authority(), "type and authority match";
+
 # vim:ts=2:sw=2:et:ft=perl