diff options
Diffstat (limited to 'lib/Tie/Scalar.pm')
-rw-r--r-- | lib/Tie/Scalar.pm | 18 |
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'; |