Help for this page

Select Code to Download

Select or download this

sub Trueonce::TIESCALAR {
        my $s=1;
...
        return $_;
}
sub Trueonce::STORE {}

Select or download this

tie $f, "Trueonce";
print $f, "\n";   # 1
print $f, "\n";   # 0 
print $f, "\n";   # 0
print $f, "\n";   # 0