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 =cut
  13
  14 sub import {
  15     use attrs qw(locked method);
  16     require fields;
  17     fields->import(@_);
  18 }
  19
  20 sub key_create {
  21     use attrs qw(locked method);
  22     return ++$FIELDS{__MAX__};
  23 }
  24
  25 1;