From bbc7dcd2bd43efd6773e46b614c6eb1db5af78d2 Mon Sep 17 00:00:00 2001 From: Michael Stevens Date: Thu, 15 Mar 2001 21:25:18 +0000 Subject: more pod patches Message-ID: <20010315212518.A18870@firedrake.org> p4raw-id: //depot/perl@9176 --- lib/Tie/Hash.pm | 20 ++++++++++---------- 1 file changed, 10 insertions(+), 10 deletions(-) (limited to 'lib/Tie/Hash.pm') diff --git a/lib/Tie/Hash.pm b/lib/Tie/Hash.pm index 7399d8b853..3231155c81 100644 --- a/lib/Tie/Hash.pm +++ b/lib/Tie/Hash.pm @@ -10,24 +10,24 @@ Tie::Hash, Tie::StdHash - base class definitions for tied hashes package NewHash; require Tie::Hash; - + @ISA = (Tie::Hash); - + sub DELETE { ... } # Provides needed method sub CLEAR { ... } # Overrides inherited method - - + + package NewStdHash; require Tie::Hash; - + @ISA = (Tie::StdHash); - + # All methods provided by default, define only those needing overrides sub DELETE { ... } - - + + package main; - + tie %new_hash, 'NewHash'; tie %new_std_hash, 'NewStdHash'; @@ -46,7 +46,7 @@ For developers wishing to write their own tied hashes, the required methods are briefly defined below. See the L section for more detailed descriptive, as well as example code: -=over +=over 4 =item TIEHASH classname, LIST -- cgit v1.2.1