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