This is a live mirror of the Perl 5 development currently hosted at
https://github.com/perl/perl5
https://perl5.git.perl.org
/
perl5.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Upgrade to NEXT-0.63.
[perl5.git]
/
ext
/
attrs
/
attrs.pm
diff --git
a/ext/attrs/attrs.pm
b/ext/attrs/attrs.pm
index
e97fa1e
..
c483cd3
100644
(file)
--- a/
ext/attrs/attrs.pm
+++ b/
ext/attrs/attrs.pm
@@
-1,14
+1,11
@@
package attrs;
package attrs;
-require DynaLoader;
-use vars '@ISA';
-@ISA = 'DynaLoader';
+use XSLoader ();
-use vars qw($VERSION);
-$VERSION = "1.0";
+$VERSION = "1.02";
=head1 NAME
=head1 NAME
-attrs - set/get attributes of a subroutine
+attrs - set/get attributes of a subroutine
(deprecated)
=head1 SYNOPSIS
=head1 SYNOPSIS
@@
-21,14
+18,20
@@
attrs - set/get attributes of a subroutine
=head1 DESCRIPTION
=head1 DESCRIPTION
-This module lets you set and get attributes for subroutines.
+NOTE: Use of this pragma is deprecated. Use the syntax
+
+ sub foo : locked method { }
+
+to declare attributes instead. See also L<attributes>.
+
+This pragma lets you set and get attributes for subroutines.
Setting attributes takes place at compile time; trying to set
invalid attribute names causes a compile-time error. Calling
Setting attributes takes place at compile time; trying to set
invalid attribute names causes a compile-time error. Calling
-C<attr::get> on a subroutine reference or name returns its list
-of attribute names. Notice that C<attr::get> is not exported.
+C<attr
s
::get> on a subroutine reference or name returns its list
+of attribute names. Notice that C<attr
s
::get> is not exported.
Valid attributes are as follows.
Valid attributes are as follows.
-=over
+=over
4
=item method
=item method
@@
-46,15
+49,10
@@
execution. The semantics of the lock are exactly those of one
explicitly taken with the C<lock> operator immediately after the
subroutine is entered.
explicitly taken with the C<lock> operator immediately after the
subroutine is entered.
-=item lvalue
-
-Setting this attribute enables the subroutine to be used in
-lvalue context. See L<perlsub/"Lvalue subroutines">.
-
=back
=cut
=back
=cut
-
bootstrap attrs
$VERSION;
+
XSLoader::load 'attrs',
$VERSION;
1;
1;