summaryrefslogtreecommitdiff
path: root/lib/Tie/Scalar.pm
diff options
context:
space:
mode:
Diffstat (limited to 'lib/Tie/Scalar.pm')
-rw-r--r--lib/Tie/Scalar.pm18
1 files changed, 9 insertions, 9 deletions
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';