# Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
-package My::Hash::Sub::Readonly;
+package My::Hash::Readonly;
our $VERSION=do { my @r=(q$Revision$=~/\d+/g); sprintf "%d.".("%03d"x$#r),@r; };
our $CVS_ID=q$Id$;
use strict;
use warnings;
-
use My::Web; # for &Wrequire
+Wrequire 'My::Hash';
+our @ISA=qw(My::Hash);
use Carp qw(cluck confess);
-Wrequire 'My::Hash::Sub';
-our @ISA=qw(My::Hash::Sub);
-
# Implementation reason: &Hash::Util::lock_hash does not work for tied hashes!
-sub TIEHASH($@)
-{
-my($class,@list)=@_;
-
- return bless {@list},$class;
-}
-
sub STORE { confess "READ-ONLY requirement violation"; }
sub DELETE { confess "READ-ONLY requirement violation"; }
sub CLEAR { confess "READ-ONLY requirement violation"; }