Help for this page

Select Code to Download

Select or download this

package TieTest;

...

# Retrieve cached values
print $tied_func->($_), "\n" for 1 .. 10;

Select or download this

sub FETCH {
    my $self = shift @_;
...
    };
    return $work_around;
}