contrib/perl5/ext/Thread/Thread/Specific.pm

   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 {
  19     use attrs qw(locked method);
  20     require fields;
  21     fields->import(@_);
  22 }
  23
  24 sub key_create {
  25     use attrs qw(locked method);
  26     return ++$FIELDS{__MAX__};
  27 }
  28
  29 1;