package Tie::Array;
-use vars qw($VERSION);
+
+use 5.005_64;
use strict;
use Carp;
-$VERSION = '1.01';
+our $VERSION = '1.01';
# Pod documentation after __END__ below.
package NewArray;
use Tie::Array;
@ISA = ('Tie::Array');
-
+
# mandatory methods
sub TIEARRAY { ... }
sub FETCH { ... }
sub FETCHSIZE { ... }
-
+
sub STORE { ... } # mandatory if elements writeable
sub STORESIZE { ... } # mandatory if elements can be added/deleted
sub EXISTS { ... } # mandatory if exists() expected to work
sub DELETE { ... } # mandatory if delete() expected to work
-
+
# optional methods - for efficiency
sub CLEAR { ... }
sub PUSH { ... }
package NewStdArray;
use Tie::Array;
-
+
@ISA = ('Tie::StdArray');
# all methods provided by default