diff options
author | Gurusamy Sarathy <gsar@cpan.org> | 2000-03-04 04:27:51 +0000 |
---|---|---|
committer | Gurusamy Sarathy <gsar@cpan.org> | 2000-03-04 04:27:51 +0000 |
commit | 3cb6de8118f279c0dca172ac40ef21e89cf524b7 (patch) | |
tree | ceb152b91deb401b084cf01870d011c2ece3e17a /lib/Tie | |
parent | eaf840779373130f95f7bd459b3864c78c698e28 (diff) | |
download | perl-3cb6de8118f279c0dca172ac40ef21e89cf524b7.tar.gz |
more whitespace removal (from Michael G Schwern)
p4raw-id: //depot/perl@5507
Diffstat (limited to 'lib/Tie')
-rw-r--r-- | lib/Tie/Array.pm | 8 | ||||
-rw-r--r-- | lib/Tie/Handle.pm | 10 | ||||
-rw-r--r-- | lib/Tie/Scalar.pm | 18 |
3 files changed, 18 insertions, 18 deletions
diff --git a/lib/Tie/Array.pm b/lib/Tie/Array.pm index 32e269b330..eb83aaee17 100644 --- a/lib/Tie/Array.pm +++ b/lib/Tie/Array.pm @@ -126,17 +126,17 @@ Tie::Array - base class for tied arrays package NewArray; use Tie::Array; @ISA = ('Tie::Array'); - + # mandatory methods sub TIEARRAY { ... } 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 - + # optional methods - for efficiency sub CLEAR { ... } sub PUSH { ... } @@ -149,7 +149,7 @@ Tie::Array - base class for tied arrays package NewStdArray; use Tie::Array; - + @ISA = ('Tie::StdArray'); # all methods provided by default diff --git a/lib/Tie/Handle.pm b/lib/Tie/Handle.pm index f64e4b2a5b..cbac73535d 100644 --- a/lib/Tie/Handle.pm +++ b/lib/Tie/Handle.pm @@ -11,15 +11,15 @@ Tie::Handle, Tie::StdHandle - base class definitions for tied handles package NewHandle; require Tie::Handle; - + @ISA = (Tie::Handle); - + sub READ { ... } # Provide a needed method sub TIEHANDLE { ... } # Overrides inherited method - - + + package main; - + tie *FH, 'NewHandle'; =head1 DESCRIPTION diff --git a/lib/Tie/Scalar.pm b/lib/Tie/Scalar.pm index ef27dc1398..1e2caee379 100644 --- a/lib/Tie/Scalar.pm +++ b/lib/Tie/Scalar.pm @@ -8,24 +8,24 @@ Tie::Scalar, Tie::StdScalar - base class definitions for tied scalars package NewScalar; require Tie::Scalar; - + @ISA = (Tie::Scalar); - + sub FETCH { ... } # Provide a needed method sub TIESCALAR { ... } # Overrides inherited method - - + + package NewStdScalar; require Tie::Scalar; - + @ISA = (Tie::StdScalar); - + # All methods provided by default, so define only what needs be overridden sub FETCH { ... } - - + + package main; - + tie $new_scalar, 'NewScalar'; tie $new_std_scalar, 'NewStdScalar'; |