avoid warnings

[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;

=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;