threads::shared::scalar - default class for tie-ing scalars to threads with forks

forks documentation Contained in the forks distribution.

Index

Code Index:

NAME

Top

threads::shared::scalar - default class for tie-ing scalars to threads with forks

DESCRIPTION

Top

Helper class for forks::shared. See documentation there.

ORIGINAL AUTHOR CREDITS

Top

Implementation inspired by Tie::StdScalar.

CURRENT AUTHOR AND MAINTAINER

Top

Eric Rybski <rybskej@yahoo.com>.

ORIGINAL AUTHOR

Top

Elizabeth Mattijsen, <liz@dijkmat.nl>.

COPYRIGHT

Top

Copyright (c) 2005-2010 Eric Rybski <rybskej@yahoo.com>, 2002-2004 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.

SEE ALSO

Top

forks, forks::shared.

forks documentation Contained in the forks distribution. 
package threads::shared::scalar;

# Make sure we have version info for this module
# Make sure we do everything by the book from now on

$VERSION = '0.34';
use strict;
use Scalar::Util;

# Satisfy -require-

1;

#---------------------------------------------------------------------------

# standard Perl features

#---------------------------------------------------------------------------
#  IN: 1 class for which to bless
#      2 initial value
# OUT: 1 instantiated object

sub TIESCALAR {

# Obtain the class
# Obtain the initial value
# Return it as a blessed object

    my $class = shift;
    bless \do{ my $o = @_ && Scalar::Util::reftype($_[0]) eq 'SCALAR' ? $_[0] : \(my $s) },$class;
} #TIESCALAR

#---------------------------------------------------------------------------
#  IN: 1 instantiated object
# OUT: 1 value

sub FETCH { ${${$_[0]}} } #FETCH

#---------------------------------------------------------------------------
#  IN: 1 instantiated object
#      2 new value

sub STORE { ${${$_[0]}} = $_[1] } #STORE

#---------------------------------------------------------------------------

__END__