1 files changed, 43 insertions, 15 deletions
diff --git a/lib/Crypt/Digest/SHA1.pm b/lib/Crypt/Digest/SHA1.pm
index 77e40a17..43137e75 100644
--- a/lib/Crypt/Digest/SHA1.pm
+++ b/lib/Crypt/Digest/SHA1.pm
@@ -6,7 +6,7 @@ use strict;
 use warnings;
 
 use Exporter 'import';
-our %EXPORT_TAGS = ( all => [qw( sha1 sha1_hex sha1_b64 sha1_file sha1_file_hex sha1_file_b64 )] );
+our %EXPORT_TAGS = ( all => [qw( sha1 sha1_hex sha1_b64 sha1_b64u sha1_file sha1_file_hex sha1_file_b64 sha1_file_b64u )] );
 our @EXPORT_OK = ( @{ $EXPORT_TAGS{'all'} } );
 our @EXPORT = qw();
 
@@ -20,10 +20,12 @@ sub hashsize { Crypt::Digest::hashsize(__PACKAGE__) }
 sub sha1             { Crypt::Digest::digest_data(__PACKAGE__, @_) }
 sub sha1_hex         { Crypt::Digest::digest_data_hex(__PACKAGE__, @_) }
 sub sha1_b64         { Crypt::Digest::digest_data_b64(__PACKAGE__, @_) }
+sub sha1_b64u        { Crypt::Digest::digest_data_b64u(__PACKAGE__, @_) }
 
 sub sha1_file        { Crypt::Digest::digest_file(__PACKAGE__, @_) }
 sub sha1_file_hex    { Crypt::Digest::digest_file_hex(__PACKAGE__, @_) }
 sub sha1_file_b64    { Crypt::Digest::digest_file_b64(__PACKAGE__, @_) }
+sub sha1_file_b64u   { Crypt::Digest::digest_file_b64u(__PACKAGE__, @_) }
 
 1;
 
@@ -36,20 +38,24 @@ Crypt::Digest::SHA1 - Hash function SHA-1 [size: 160 bits]
 =head1 SYNOPSIS
 
    ### Functional interface:
-   use Crypt::Digest::SHA1 qw( sha1 sha1_hex sha1_b64 sha1_file sha1_file_hex sha1_file_b64 );
+   use Crypt::Digest::SHA1 qw( sha1 sha1_hex sha1_b64 sha1_b64u 
+                                        sha1_file sha1_file_hex sha1_file_b64 sha1_file_b64u );
 
    # calculate digest from string/buffer
-   $sha1_raw = sha1('data string');
-   $sha1_hex = sha1_hex('data string');
-   $sha1_b64 = sha1_b64('data string');
+   $sha1_raw  = sha1('data string');
+   $sha1_hex  = sha1_hex('data string');
+   $sha1_b64  = sha1_b64('data string');
+   $sha1_b64u = sha1_b64u('data string');
    # calculate digest from file
-   $sha1_raw = sha1_file('filename.dat');
-   $sha1_hex = sha1_file_hex('filename.dat');
-   $sha1_b64 = sha1_file_b64('filename.dat');
+   $sha1_raw  = sha1_file('filename.dat');
+   $sha1_hex  = sha1_file_hex('filename.dat');
+   $sha1_b64  = sha1_file_b64('filename.dat');
+   $sha1_b64u = sha1_file_b64u('filename.dat');
    # calculate digest from filehandle
-   $sha1_raw = sha1_file(*FILEHANDLE);
-   $sha1_hex = sha1_file_hex(*FILEHANDLE);
-   $sha1_b64 = sha1_file_b64(*FILEHANDLE);
+   $sha1_raw  = sha1_file(*FILEHANDLE);
+   $sha1_hex  = sha1_file_hex(*FILEHANDLE);
+   $sha1_b64  = sha1_file_b64(*FILEHANDLE);
+   $sha1_b64u = sha1_file_b64u(*FILEHANDLE);
 
    ### OO interface:
    use Crypt::Digest::SHA1;
@@ -58,9 +64,10 @@ Crypt::Digest::SHA1 - Hash function SHA-1 [size: 160 bits]
    $d->add('any data');
    $d->addfile('filename.dat');
    $d->addfile(*FILEHANDLE);
-   $result_raw = $d->digest;    # raw bytes
-   $result_hex = $d->hexdigest; # hexadecimal form
-   $result_b64 = $d->b64digest; # Base64 form
+   $result_raw  = $d->digest;     # raw bytes
+   $result_hex  = $d->hexdigest;  # hexadecimal form
+   $result_b64  = $d->b64digest;  # Base64 form
+   $result_b64u = $d->b64udigest; # Base64 URL Safe form
 
 =head1 DESCRIPTION
 
@@ -72,7 +79,8 @@ Nothing is exported by default.
 
 You can export selected functions:
 
-  use Crypt::Digest::SHA1 qw(sha1 sha1_hex sha1_b64 sha1_file sha1_file_hex sha1_file_b64);
+  use Crypt::Digest::SHA1 qw(sha1 sha1_hex sha1_b64 sha1_b64u
+                                      sha1_file sha1_file_hex sha1_file_b64 sha1_file_b64u);
 
 Or all of them at once:
 
@@ -104,6 +112,14 @@ Logically joins all arguments into a single string, and returns its SHA1 digest
  #or
  $sha1_b64 = sha1_b64('any data', 'more data', 'even more data');
 
+=head2 sha1_b64u
+
+Logically joins all arguments into a single string, and returns its SHA1 digest encoded as a Base64 URL Safe string (see RFC 4648 section 5).
+
+ $sha1_b64url = sha1_b64u('data string');
+ #or
+ $sha1_b64url = sha1_b64u('any data', 'more data', 'even more data');
+
 =head2 sha1_file
 
 Reads file (defined by filename or filehandle) content, and returns its SHA1 digest encoded as a binary string.
@@ -130,6 +146,14 @@ Reads file (defined by filename or filehandle) content, and returns its SHA1 dig
  #or
  $sha1_b64 = sha1_file_b64(*FILEHANDLE);
 
+=head2 sha1_file_b64u
+
+Reads file (defined by filename or filehandle) content, and returns its SHA1 digest encoded as a Base64 URL Safe string (see RFC 4648 section 5).
+
+ $sha1_b64url = sha1_file_b64u('filename.dat');
+ #or
+ $sha1_b64url = sha1_file_b64u(*FILEHANDLE);
+
 =head1 METHODS
 
 The OO interface provides the same set of functions as L<Crypt::Digest>.
@@ -184,6 +208,10 @@ The OO interface provides the same set of functions as L<Crypt::Digest>.
 
  $result_b64 = $d->b64digest();
 
+=head2 b64udigest
+
+ $result_b64url = $d->b64udigest();
+
 =head1 SEE ALSO
 
 =over 4