Select Code to Download

Select or download this

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

Select or download this

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

Select or download this

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

Select or download this

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

Select or download this

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

Select or download this

package Tie::ExtraHash;

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

1;

Select or download this

# 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;

Select or download this
```
use Tie::StdHash;
use Tie::ExtraHash;
```
Select or download this
```
=head1 NAME
...

=cut
```

Select or download this

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;