Subject: | t/pod-coverage.t fails if Pod::Coverage is installed |
If Pod::Coverage is installed, the t/pod-coverage.t fails:
t/pod-coverage....1/1
# Failed test 'Pod coverage on Digest::MD5::Reverse'
# at /Library/Perl/5.8.6/Test/Pod/Coverage.pm line 126.
# Coverage for Digest::MD5::Reverse is 0.0%, with 1 naked subroutine:
# reverse_md5
# Looks like you failed 1 test of 1.
Patch and corrected Reverse.pm file attached.
Cheers,
Stephen
Subject: | digest-md5.patch |
--- lib/Digest/MD5/Reverse.pm.bak 2007-08-31 10:49:11.000000000 +1000
+++ lib/Digest/MD5/Reverse.pm 2008-12-10 18:35:05.000000000 +1100
@@ -212,6 +212,14 @@
return $string ? $string : undef;
};
+=head2 reverse_md5 ($md5_string)
+
+Looks up given $md5_string and returns text result, or undef if no match found.
+
+MD5 string is expected to be 32 characters in length.
+
+=cut
+
sub reverse_md5
{
return $reverseit->(shift);