Remove Encode::Tcl::Extended, suggested by
[p5sagit/p5-mst-13.2.git] / ext / attrs / attrs.pm
1 package attrs;
2 use XSLoader ();
3
4 $VERSION = "1.01";
5
6 =head1 NAME
7
8 attrs - set/get attributes of a subroutine (deprecated)
9
10 =head1 SYNOPSIS
11
12     sub foo {
13         use attrs qw(locked method);
14         ...
15     }
16
17     @a = attrs::get(\&foo);
18
19 =head1 DESCRIPTION
20
21 NOTE: Use of this pragma is deprecated.  Use the syntax
22
23     sub foo : locked method { }
24
25 to declare attributes instead.  See also L<attributes>.
26
27 This pragma lets you set and get attributes for subroutines.
28 Setting attributes takes place at compile time; trying to set
29 invalid attribute names causes a compile-time error. Calling
30 C<attrs::get> on a subroutine reference or name returns its list
31 of attribute names. Notice that C<attrs::get> is not exported.
32 Valid attributes are as follows.
33
34 =over 4
35
36 =item method
37
38 Indicates that the invoking subroutine is a method.
39
40 =item locked
41
42 Setting this attribute is only meaningful when the subroutine or
43 method is to be called by multiple threads. When set on a method
44 subroutine (i.e. one marked with the B<method> attribute above),
45 perl ensures that any invocation of it implicitly locks its first
46 argument before execution. When set on a non-method subroutine,
47 perl ensures that a lock is taken on the subroutine itself before
48 execution. The semantics of the lock are exactly those of one
49 explicitly taken with the C<lock> operator immediately after the
50 subroutine is entered.
51
52 =back
53
54 =cut
55
56 XSLoader::load 'attrs', $VERSION;
57
58 1;