use Tie::Scalar::RestrictUpdates;

  my $foo;
  tie $foo,"Tie::Scalar::RestrictUpdates",5;
  for(1..10) { $foo = $_; print $foo; }
  # This will print 1234555555

This module limits the number of times a value can be stored in a scalar.

Loads probably. This is a very early draft.

This code is released under GPL (GNU Public License). More information can be found on http://www.gnu.org/copyleft/gpl.html

This is Tie::Scalar::RestrictUpdates 0.0.1.

Hendrik Van Belleghem (beatnik@quickndirty.org)

GNU & GPL - http://www.gnu.org/copyleft/gpl.html