WAIT/Document/Base.pm

#                              -*- Mode: Perl -*- 
# Base.pm -- 
# ITIID           : $ITI$ $Header $__Header$
# Author          : Ulrich Pfeifer
# Created On      : Sun Sep 15 16:09:13 1996
# Last Modified By: Ulrich Pfeifer
# Last Modified On: Sun Nov 22 18:44:48 1998
# Language        : CPerl
# Update Count    : 9
# Status          : Unknown, Use with caution!
# 
# Copyright (c) 1996-1997, Ulrich Pfeifer
# 

package WAIT::Document::Base;
use Carp;
#require Tie::Hash;

#@ISA = (Tie::Hash);

sub STORE {
  croak "$_[0] is read-only\n";
}

sub CLEAR {
  croak "$_[0] is read-only\n";
}

sub close {}

1;
1	# -- Mode: Perl --
2	# Base.pm --
3	# ITIID : $ITI$ $Header $__Header$
4	# Author : Ulrich Pfeifer
5	# Created On : Sun Sep 15 16:09:13 1996
6	# Last Modified By: Ulrich Pfeifer
7	# Last Modified On: Sun Nov 22 18:44:48 1998
8	# Language : CPerl
9	# Update Count : 9
10	# Status : Unknown, Use with caution!
11	#
12	# Copyright (c) 1996-1997, Ulrich Pfeifer
13	#
14
15	package WAIT::Document::Base;
16	use Carp;
17	#require Tie::Hash;
18
19	#@ISA = (Tie::Hash);
20
21	sub STORE {
22	croak "$_[0] is read-only\n";
23	}
24
25	sub CLEAR {
26	croak "$_[0] is read-only\n";
27	}
28
29	sub close {}
30
31	1;