X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FSub%2FName.pm;h=c8dfbe05ba1b962a13bf7dc7f83d2c019064d1a0;hb=9b196bcbd212803136843bd0f598247564b2e10d;hp=bfe309359bbc48d258dd86a4b42e23e95276523a;hpb=54595ea863696d904b22754dc8902e52aa0fcdfa;p=p5sagit%2FSub-Name.git diff --git a/lib/Sub/Name.pm b/lib/Sub/Name.pm index bfe3093..c8dfbe0 100644 --- a/lib/Sub/Name.pm +++ b/lib/Sub/Name.pm @@ -15,6 +15,8 @@ package Sub::Name; 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 @@ -30,12 +32,11 @@ can be very useful for debugging. =head1 SEE ALSO -=over 4 - -=item * -L - for getting information about subs +=for :list +* L - for getting information about subs +* L - set_subname is another implementation of C -=back +=for stopwords cPanel =head1 COPYRIGHT AND LICENSE @@ -52,7 +53,9 @@ use 5.006; use strict; use warnings; -use base 'Exporter'; +our $VERSION = '0.14'; + +use Exporter 5.57 'import'; our @EXPORT = qw(subname); our @EXPORT_OK = @EXPORT; @@ -60,9 +63,7 @@ our @EXPORT_OK = @EXPORT; use XSLoader; XSLoader::load( __PACKAGE__, - exists $Sub::Name::{VERSION} - ? ${ $Sub::Name::{VERSION} } - : (), + $VERSION, ); 1;