blob: 46b9b60981f629bd202725ea0bc8a8be4ea25a63 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
|
package Thread::Specific;
=head1 NAME
Thread::Specific - thread-specific keys
=head1 SYNOPSIS
use Thread::Specific;
my $k = key_create Thread::Specific;
=head1 DESCRIPTION
C<key_create> returns a unique thread-specific key.
=cut
sub import {
use attrs qw(locked method);
require fields;
fields::->import(@_);
}
sub key_create {
use attrs qw(locked method);
return ++$FIELDS{__MAX__};
}
1;
|