home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / perl560.zip / ext / Thread / Thread / Specific.pm < prev   
Text File  |  2000-03-17  |  445b  |  29 lines
  1. package Thread::Specific;
  2.  
  3. =head1 NAME
  4.  
  5. Thread::Specific - thread-specific keys
  6.  
  7. =head1 SYNOPSIS
  8.  
  9.     use Thread::Specific;
  10.     my $k = key_create Thread::Specific;
  11.  
  12. =head1 DESCRIPTION
  13.  
  14. C<key_create> returns a unique thread-specific key.
  15.  
  16. =cut
  17.  
  18. sub import : locked : method {
  19.     require fields;
  20.     fields::->import(@_);
  21. }    
  22.  
  23. sub key_create : locked : method {
  24.     our %FIELDS;   # suppress "used only once"
  25.     return ++$FIELDS{__MAX__};
  26. }
  27.  
  28. 1;
  29.