diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2006-03-19 15:21:37 +0200 |
|---|---|---|
| committer | Steve Peters <steve@fisharerojo.org> | 2006-03-19 16:32:16 +0000 |
| commit | abc0156ba8cc024916c0d1e664c4488f0cbc55c8 (patch) | |
| tree | 553d629af82a113a4c8b6f91acb093394fa93c06 /lib/Tie | |
| parent | 9061c4b923969fe4301d8ee29f5fc13aad24f9f7 (diff) | |
| download | perl-abc0156ba8cc024916c0d1e664c4488f0cbc55c8.tar.gz | |
a bit 'use strict' cleanliness
Message-ID: <441D3EC1.20902@gmail.com>
p4raw-id: //depot/perl@27541
Diffstat (limited to 'lib/Tie')
| -rw-r--r-- | lib/Tie/Hash.pm | 6 | ||||
| -rw-r--r-- | lib/Tie/Scalar.pm | 6 |
2 files changed, 6 insertions, 6 deletions
diff --git a/lib/Tie/Hash.pm b/lib/Tie/Hash.pm index a838915482..86d253d6d6 100644 --- a/lib/Tie/Hash.pm +++ b/lib/Tie/Hash.pm @@ -11,7 +11,7 @@ Tie::Hash, Tie::StdHash, Tie::ExtraHash - base class definitions for tied hashes package NewHash; require Tie::Hash; - @ISA = (Tie::Hash); + @ISA = qw(Tie::Hash); sub DELETE { ... } # Provides needed method sub CLEAR { ... } # Overrides inherited method @@ -20,7 +20,7 @@ Tie::Hash, Tie::StdHash, Tie::ExtraHash - base class definitions for tied hashes package NewStdHash; require Tie::Hash; - @ISA = (Tie::StdHash); + @ISA = qw(Tie::StdHash); # All methods provided by default, define only those needing overrides # Accessors access the storage in %{$_[0]}; @@ -30,7 +30,7 @@ Tie::Hash, Tie::StdHash, Tie::ExtraHash - base class definitions for tied hashes package NewExtraHash; require Tie::Hash; - @ISA = (Tie::ExtraHash); + @ISA = qw(Tie::ExtraHash); # All methods provided by default, define only those needing overrides # Accessors access the storage in %{$_[0][0]}; diff --git a/lib/Tie/Scalar.pm b/lib/Tie/Scalar.pm index c23c12187a..3bfb2b655d 100644 --- a/lib/Tie/Scalar.pm +++ b/lib/Tie/Scalar.pm @@ -11,7 +11,7 @@ Tie::Scalar, Tie::StdScalar - base class definitions for tied scalars package NewScalar; require Tie::Scalar; - @ISA = (Tie::Scalar); + @ISA = qw(Tie::Scalar); sub FETCH { ... } # Provide a needed method sub TIESCALAR { ... } # Overrides inherited method @@ -20,7 +20,7 @@ Tie::Scalar, Tie::StdScalar - base class definitions for tied scalars package NewStdScalar; require Tie::Scalar; - @ISA = (Tie::StdScalar); + @ISA = qw(Tie::StdScalar); # All methods provided by default, so define only what needs be overridden sub FETCH { ... } @@ -117,7 +117,7 @@ sub STORE { # tweak a small bit. # package Tie::StdScalar; -@ISA = (Tie::Scalar); +@ISA = qw(Tie::Scalar); sub TIESCALAR { my $class = shift; |