diff options
Diffstat (limited to 'lib/Tie')
| -rw-r--r-- | lib/Tie/Array.pm | 8 | ||||
| -rw-r--r-- | lib/Tie/Hash.pm | 10 | ||||
| -rw-r--r-- | lib/Tie/Scalar.pm | 3 |
3 files changed, 12 insertions, 9 deletions
diff --git a/lib/Tie/Array.pm b/lib/Tie/Array.pm index 767cfdd77a..aa8cd4099e 100644 --- a/lib/Tie/Array.pm +++ b/lib/Tie/Array.pm @@ -128,10 +128,10 @@ Tie::Array - base class for tied arrays sub FETCH { ... } sub FETCHSIZE { ... } - sub STORE { ... } # mandatory if elements writeable - sub STORESIZE { ... } # mandatory if elements can be added/deleted - sub EXISTS { ... } # mandatory if exists() expected to work - sub DELETE { ... } # mandatory if delete() expected to work + sub STORE { ... } # mandatory if elements writeable + sub STORESIZE { ... } # mandatory if elements can be added/deleted + sub EXISTS { ... } # mandatory if exists() expected to work + sub DELETE { ... } # mandatory if delete() expected to work # optional methods - for efficiency sub CLEAR { ... } diff --git a/lib/Tie/Hash.pm b/lib/Tie/Hash.pm index 1acd829c34..d944cd1f72 100644 --- a/lib/Tie/Hash.pm +++ b/lib/Tie/Hash.pm @@ -22,7 +22,8 @@ Tie::Hash, Tie::StdHash, Tie::ExtraHash - base class definitions for tied hashes @ISA = qw(Tie::StdHash); - # All methods provided by default, define only those needing overrides + # All methods provided by default, define + # only those needing overrides # Accessors access the storage in %{$_[0]}; # TIEHASH should return a reference to the actual storage sub DELETE { ... } @@ -32,10 +33,11 @@ Tie::Hash, Tie::StdHash, Tie::ExtraHash - base class definitions for tied hashes @ISA = qw(Tie::ExtraHash); - # All methods provided by default, define only those needing overrides + # All methods provided by default, define + # only those needing overrides # Accessors access the storage in %{$_[0][0]}; - # TIEHASH should return an array reference with the first element being - # the reference to the actual storage + # TIEHASH should return an array reference with the first element + # being the reference to the actual storage sub DELETE { $_[0][1]->('del', $_[0][0], $_[1]); # Call the report writer delete $_[0][0]->{$_[1]}; # $_[0]->SUPER::DELETE($_[1]) diff --git a/lib/Tie/Scalar.pm b/lib/Tie/Scalar.pm index 24e4ae79c3..48bd9ac6e9 100644 --- a/lib/Tie/Scalar.pm +++ b/lib/Tie/Scalar.pm @@ -22,7 +22,8 @@ Tie::Scalar, Tie::StdScalar - base class definitions for tied scalars @ISA = qw(Tie::StdScalar); - # All methods provided by default, so define only what needs be overridden + # All methods provided by default, so define + # only what needs be overridden sub FETCH { ... } |