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

diff --git a/lib/Sub/Name.pm b/lib/Sub/Name.pm
index 5109d5e..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
 
@@ -32,12 +33,9 @@ can be very useful for debugging.
 
 =head1 SEE ALSO
 
-=over 4
-
-=item *
-L<Sub::Identify> - for getting information about subs
-
-=back
+=for :list
+* L<Sub::Identify> - for getting information about subs
+* L<Sub::Util> - set_subname is another implementation of C<subname>
 
 =for stopwords cPanel
 
@@ -56,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;
@@ -64,9 +65,7 @@ our @EXPORT_OK = @EXPORT;
 use XSLoader;
 XSLoader::load(
     __PACKAGE__,
-    exists $Sub::Name::{VERSION}
-        ? ${ $Sub::Name::{VERSION} }
-        : (),
+    $VERSION,
 );
 
 1;