X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FSub%2FName.pm;h=d1afeb397283e7a289a9e5e9a2f38c8db3a675a7;hb=86a2138ae34c272028daaea6121d6518c364cc65;hp=527e6e75f3aa845d92dc9fd9b42216155ddf6b8d;hpb=691b40bc6a6fab080e13e1e272eba2301dc7cc01;p=p5sagit%2FSub-Name.git

diff --git a/lib/Sub/Name.pm b/lib/Sub/Name.pm
index 527e6e7..d1afeb3 100644
--- a/lib/Sub/Name.pm
+++ b/lib/Sub/Name.pm
@@ -1,5 +1,6 @@
 package Sub::Name;
-# ABSTRACT: (re)name a sub
+# ABSTRACT: (Re)name a sub
+# KEYWORDS: subroutine function utility name rename symbol
 
 =pod
 
@@ -34,6 +35,7 @@ can be very useful for debugging.
 
 =for :list
 * L<Sub::Identify> - for getting information about subs
+* L<Sub::Util> - set_subname is another implementation of C<subname>
 
 =for stopwords cPanel
 
@@ -52,7 +54,10 @@ use 5.006;
 use strict;
 use warnings;
 
-use Exporter 5.57 'import';
+our $VERSION = '0.23';
+
+use Exporter ();
+*import = \&Exporter::import;
 
 our @EXPORT = qw(subname);
 our @EXPORT_OK = @EXPORT;
@@ -60,9 +65,7 @@ our @EXPORT_OK = @EXPORT;
 use XSLoader;
 XSLoader::load(
     __PACKAGE__,
-    exists $Sub::Name::{VERSION}
-        ? ${ $Sub::Name::{VERSION} }
-        : (),
+    $VERSION,
 );
 
 1;