X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FSub%2FName.pm;h=d1afeb397283e7a289a9e5e9a2f38c8db3a675a7;hb=86a2138ae34c272028daaea6121d6518c364cc65;hp=09e66d4700923e7fb252c69b8cdb890bb90ef3b4;hpb=c2501c3b6b956ebe80318851be9d54a5d77a59f9;p=p5sagit%2FSub-Name.git diff --git a/lib/Sub/Name.pm b/lib/Sub/Name.pm index 09e66d4..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,17 +33,14 @@ can be very useful for debugging. =head1 SEE ALSO -=over 4 +=for :list +* L - for getting information about subs +* L - set_subname is another implementation of C -=item * -L - for getting information about subs - -=back +=for stopwords cPanel =head1 COPYRIGHT AND LICENSE -=for stopwords cPanel - This software is copyright (c) 2004, 2008 by Matthijs van Duin, all rights reserved; copyright (c) 2014 cPanel Inc., all rights reserved. @@ -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;