diff options
author | Brian Gottreu <gottreu@gmail.com> | 2013-06-16 13:37:33 -0500 |
---|---|---|
committer | Father Chrysostomos <sprout@cpan.org> | 2013-06-22 22:11:44 -0700 |
commit | 555bd962bf06d749086724e280b3588586df7805 (patch) | |
tree | 50a45eca58f93ccc0fe9ddb4e9167d302f6b6415 /lib/Tie/Hash.pm | |
parent | 6ca3c6c679258bbb20a4445b34608d144ac7090d (diff) | |
download | perl-555bd962bf06d749086724e280b3588586df7805.tar.gz |
Fixed verbatim lines in POD over 79 characters
Diffstat (limited to 'lib/Tie/Hash.pm')
-rw-r--r-- | lib/Tie/Hash.pm | 10 |
1 files changed, 6 insertions, 4 deletions
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]) |