[p5sagit/p5-mst-13.2.git] / ext / Thread / Thread / Specific.pm

package Thread::Specific;

=head1 NAME

Thread::Specific - thread-specific keys

=head1 SYNOPSIS

    use Thread::Specific;
    my $k = key_create Thread::Specific;

=cut

sub import {
    use attrs qw(locked method);
    require fields;
    fields->import(@_);
}	

sub key_create {
    use attrs qw(locked method);
    return ++$FIELDS{__MAX__};
}

1;
Commit	Line	Data
458fb581	1	package Thread::Specific;
458fb581	2
d516a115	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
458fb581	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;