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

diff --git a/lib/Sub/Name.pm b/lib/Sub/Name.pm
index f551b31..d1afeb3 100644
--- a/lib/Sub/Name.pm
+++ b/lib/Sub/Name.pm
@@ -1,8 +1,8 @@
 package Sub::Name;
+# ABSTRACT: (Re)name a sub
+# KEYWORDS: subroutine function utility name rename symbol
 
-=head1 NAME
-
-Sub::Name - (re)name a sub
+=pod
 
 =head1 SYNOPSIS
 
@@ -16,6 +16,8 @@ Sub::Name - (re)name a sub
 
 This module has only one function, which is also exported by default:
 
+=for stopwords subname
+
 =head2 subname NAME, CODEREF
 
 Assigns a new name to referenced sub.  If package specification is omitted in
@@ -31,19 +33,17 @@ can be very useful for debugging.
 
 =head1 SEE ALSO
 
-=over 4
-
-=item *
-L<Sub::Identify> - for getting information about subs
+=for :list
+* L<Sub::Identify> - for getting information about subs
+* L<Sub::Util> - set_subname is another implementation of C<subname>
 
-=back
+=for stopwords cPanel
 
-=head1 AUTHOR
+=head1 COPYRIGHT AND LICENSE
 
-Matthijs van Duin <xmath@cpan.org>
+This software is copyright (c) 2004, 2008 by Matthijs van Duin, all rights reserved;
+copyright (c) 2014 cPanel Inc., all rights reserved.
 
-Copyright (C) 2004, 2008  Matthijs van Duin.  All rights reserved.
-Copyright (C) 2014 cPanel Inc.  All rights reserved.
 This program is free software; you can redistribute it and/or modify
 it under the same terms as Perl itself.
 
@@ -54,14 +54,18 @@ use 5.006;
 use strict;
 use warnings;
 
-our $VERSION = '0.08';
+our $VERSION = '0.23';
 
-use base 'Exporter';
-use base 'DynaLoader';
+use Exporter ();
+*import = \&Exporter::import;
 
 our @EXPORT = qw(subname);
 our @EXPORT_OK = @EXPORT;
 
-bootstrap Sub::Name $VERSION;
+use XSLoader;
+XSLoader::load(
+    __PACKAGE__,
+    $VERSION,
+);
 
 1;