Select Code to Download

package My::Hash;
use strict;
use warnings;
use parent 'Tie::Hash';
1;

package My::Hash;
use strict;
use warnings;
use parent 'Tie::StdHash';
1;

package My::Hash;
use strict;
...
use Tie::Hash ();
our @ISA='Tie::StdHash';
1;

package My::Hash;
# NO use strict; or things will break!
...
require Tie::Hash;
@ISA='Tie::StdHash';
1;

# @ISA = qw(Tie::Hash);         # would inherit new() only

package Tie::ExtraHash;

...
sub SCALAR   { scalar %{$_[0][0]} }

1;

# The Tie::StdHash package implements standard perl hash behaviour.
# It exists to act as a base class for classes which only wish to
...
sub SCALAR   { scalar %{$_[0]} }

1;

use Tie::StdHash;
use Tie::ExtraHash;

=head1 NAME
...

=cut

diff -Naur old/lib/Tie/ExtraHash.pm new/lib/Tie/ExtraHash.pm
--- old/lib/Tie/ExtraHash.pm    1970-01-01 01:00:00.000000000 +0100
...
+sub SCALAR   { scalar %{$_[0]} }
+
+1;