summaryrefslogtreecommitdiff
path: root/lib/Tie
diff options
context:
space:
mode:
authorGurusamy Sarathy <gsar@cpan.org>2000-03-04 04:27:51 +0000
committerGurusamy Sarathy <gsar@cpan.org>2000-03-04 04:27:51 +0000
commit3cb6de8118f279c0dca172ac40ef21e89cf524b7 (patch)
treeceb152b91deb401b084cf01870d011c2ece3e17a /lib/Tie
parenteaf840779373130f95f7bd459b3864c78c698e28 (diff)
downloadperl-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.pm8
-rw-r--r--lib/Tie/Handle.pm10
-rw-r--r--lib/Tie/Scalar.pm18
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';