Author image Hendrik Van Belleghem

NAME

Tie::Array::RestrictUpdates - Limit the number of times you change elements in an array.

SYNOPSIS

  use Tie::Array::RestrictUpdates;

  tie @foo,"Tie::Array::RestrictUpdates",1;
  # Default limit is 1.
  # Every element from the array can only be changed once
  @foo = qw(A B C D E);
  for(0..4) { $foo[$_] = lc $foo[$_]; }
  print join("-",@foo);
  # This will print A-B-C-D-E and a bunch of warnings

  -or-

  use Tie::Array::RestrictUpdates;

  tie @foo,"Tie::Array::RestrictUpdates",[1,2,3,4];
  # This forces the limits of the first 3 indexes
  # This also forces any extra elements from the array to have a 0 limit
  # and therefor be unchangable/unsettable
  @foo = qw(A B C D E);
  for(0..3) { $foo[$_] = lc $foo[$_]; }
  for(0..3) { $foo[$_] = uc $foo[$_]; }
  for(0..3) { $foo[$_] = lc $foo[$_]; }
  for(0..3) { $foo[$_] = uc $foo[$_]; }
  print join("-",@foo);
  # This will print A-b-C-d and a bunch of warnings

DESCRIPTION

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

TODO

Loads probably. This is a very early draft.

DISCLAIMER

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

VERSION

This is Tie::Array::RestrictUpdates 0.0.1.

AUTHOR

Hendrik Van Belleghem (beatnik@quickndirty.org)

SEE ALSO

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