package attrs;
-require DynaLoader;
-use vars '@ISA';
-@ISA = 'DynaLoader';
+use XSLoader ();
-use vars qw($VERSION);
$VERSION = "1.0";
=head1 NAME
NOTE: Use of this pragma is deprecated. Use the syntax
- sub foo : locked, method { }
+ sub foo : locked method { }
to declare attributes instead. See also L<attributes>.
=cut
-bootstrap attrs $VERSION;
+XSLoader::load 'attrs', $VERSION;
1;