Perl Medic: Transforming Legacy Code

Appendix: Source Code

Tie::Array::Bounded

Click here to view code image

package Tie::Array::Bounded;use strict;use warnings;use Carp;use base qw(Tie::Array);our $VERSION = '0.01';sub TIEARRAY{  my ($class, %arg) = @_;  my ($upper, $lower) = delete @arg{qw(upper lower)};  croak "Illegal arguments in tie" if %arg;  $lower ||= 0;  croak "No upper bound for array" unless $upper;  /\D/ and croak "Array bound must be integer"    for ($upper, $lower);  croak "Upper bound < lower bound" if $upper < $lower;  return bless { upper => $upper,                 lower => $lower,                 array => []               }, $class;}sub _bound_check{  my ($self, $index) = @_;  my ($upper, $lower) = @{$self}{qw(upper lower)};  croak "Index $index out of range ...