package Thread::Rand::Thread;
# initializations
$VERSION= '0.07';
# be as strict as possible
use strict;
# satisfy -require-
1;
#-------------------------------------------------------------------------------
#
# Standard Perl Features
#
#-------------------------------------------------------------------------------
# IN: 1 class for which to bless
# OUT: 1 instantiated object
sub TIESCALAR { bless \*TIESCALAR, shift } #TIESCALAR
#-------------------------------------------------------------------------------
# IN: 1 instantiated object (ignored)
# OUT: 1 value
sub FETCH { rand() } #FETCH
#-------------------------------------------------------------------------------
# IN: 1 instantiated object (ignored)
# 2 new srand value
sub STORE { srand( $_[1] ) } #STORE
#-------------------------------------------------------------------------------
__END__
=head1 NAME
Thread::Rand::Thread - helper class for Thread::Rand
=head1 DESCRIPTION
Helper class for L<Thread::Rand>. See documentation there.
=head1 AUTHOR
Elizabeth Mattijsen, <liz@dijkmat.nl>.
Please report bugs to <perlbugs@dijkmat.nl>.
=head1 COPYRIGHT
Copyright (c) 2002, 2003, 2012 Elizabeth Mattijsen <liz@dijkmat.nl>. All rights
reserved. This program is free software; you can redistribute it and/or
modify it under the same terms as Perl itself.
=head1 SEE ALSO
L<Thread::Rand>.
=cut