attrs - set/get attributes of a subroutine (deprecated)
- sub foo {
- use attrs qw(locked method);
- ...
- }
- @a = attrs::get(\&foo);
NOTE: Use of this pragma is deprecated. Use the syntax
to declare attributes instead. See also 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
attrs::get
on a subroutine reference or name returns its list
of attribute names. Notice that attrs::get
is not exported.
Valid attributes are as follows.
Indicates that the invoking subroutine is a method.
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 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 lock
operator immediately after the
subroutine is entered.