Help for this page

Select Code to Download


  1. or download this
    package Tie::Print;
require Tie::Scalar; our @ISA = ('Tie::StdScalar');
...
sub FETCH { return scalar localtime }

etcetera
  2. or download this
    package Tie::Scalar::Miscellaneous;
use Carp;
...
sub FETCH {
    shift->{fetch}->();
}
  3. or download this
    tie my $printer, 'Tie::Scalar::Miscellaneous', store => 'print';
$printer = "Hello, world!\n";