package Sub::Name;
+# ABSTRACT: (re)name a sub
-=head1 NAME
-
-Sub::Name - (re)name a sub
+=pod
=head1 SYNOPSIS
=back
-=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.
use strict;
use warnings;
-our $VERSION = '0.08';
-
use base 'Exporter';
-use base 'DynaLoader';
our @EXPORT = qw(subname);
our @EXPORT_OK = @EXPORT;
-bootstrap Sub::Name $VERSION;
+use XSLoader;
+XSLoader::load(
+ __PACKAGE__,
+ exists $Sub::Name::{VERSION}
+ ? ${ $Sub::Name::{VERSION} }
+ : (),
+);
1;