diff options
Diffstat (limited to 'ext/attrs/attrs.pm')
-rw-r--r-- | ext/attrs/attrs.pm | 58 |
1 files changed, 0 insertions, 58 deletions
diff --git a/ext/attrs/attrs.pm b/ext/attrs/attrs.pm deleted file mode 100644 index c483cd3455..0000000000 --- a/ext/attrs/attrs.pm +++ /dev/null @@ -1,58 +0,0 @@ -package attrs; -use XSLoader (); - -$VERSION = "1.02"; - -=head1 NAME - -attrs - set/get attributes of a subroutine (deprecated) - -=head1 SYNOPSIS - - sub foo { - use attrs qw(locked method); - ... - } - - @a = attrs::get(\&foo); - -=head1 DESCRIPTION - -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 -C<attrs::get> on a subroutine reference or name returns its list -of attribute names. Notice that C<attrs::get> is not exported. -Valid attributes are as follows. - -=over 4 - -=item method - -Indicates that the invoking subroutine is a method. - -=item locked - -Setting this attribute is only meaningful when the subroutine or -method is to be called by multiple threads. When set on a method -subroutine (i.e. one marked with the B<method> attribute above), -perl ensures that any invocation of it implicitly locks its first -argument before execution. When set on a non-method subroutine, -perl ensures that a lock is taken on the subroutine itself before -execution. The semantics of the lock are exactly those of one -explicitly taken with the C<lock> operator immediately after the -subroutine is entered. - -=back - -=cut - -XSLoader::load 'attrs', $VERSION; - -1; |