1 package Thread::Specific;
7 Thread::Specific - thread-specific keys
12 my $k = key_create Thread::Specific;
16 C<key_create> returns a unique thread-specific key.
20 sub import : locked : method {
25 sub key_create : locked : method {
26 our %FIELDS; # suppress "used only once"
27 return ++$FIELDS{__MAX__};