/usr/local/CPAN/Thread-Isolate/Thread/Isolate/Map/Scalar.pm

• package Thread::Isolate::Map::Scalar
  • TIESCALAR
  • FETCH
  • STORE
• EOF

package Thread::Isolate::Map::Scalar ;

sub TIESCALAR {
  my $class = shift ;
  bless([@_],$class) ;
}

sub FETCH {
  my $this = shift ;
  return $this->[0]->eval($this->[1]) ;
}

sub STORE {
  my $this = shift ;
  return $this->[0]->eval("$this->[1] = \$_[0] ;", $_[0]) ;
}

1;