Help for this page

Select Code to Download


  1. or download this
    package Foo;
use strict;
...
sub TIESCALAR { goto &Tie::StdScalar::TIESCALAR }
sub FETCH { goto &Tie::StdScalar::FETCH }
sub STORE { goto &Tie::StdScalar::STORE }
  2. or download this
    $ perl -wle'use Foo; tie $x, "Foo"; $x="42"; print $x; print for grep 
+/auto/, values %INC'
42
...
./auto/Foo/STORE.al
./auto/Foo/TIESCALAR.al
./auto/Foo/FETCH.al