package NewHash;
require Tie::Hash;
- @ISA = (Tie::Hash);
+ @ISA = qw(Tie::Hash);
sub DELETE { ... } # Provides needed method
sub CLEAR { ... } # Overrides inherited method
package NewStdHash;
require Tie::Hash;
- @ISA = (Tie::StdHash);
+ @ISA = qw(Tie::StdHash);
# All methods provided by default, define only those needing overrides
# Accessors access the storage in %{$_[0]};
package NewExtraHash;
require Tie::Hash;
- @ISA = (Tie::ExtraHash);
+ @ISA = qw(Tie::ExtraHash);
# All methods provided by default, define only those needing overrides
# Accessors access the storage in %{$_[0][0]};