I didn't see any mention of my plea that C<tie> should pass the 
original variable being tied as one of its arguments. :-(

E.g.:

        sub ReadOnly::TIESCALAR {
                my ($class, $original, @otherargs) = @_;
                bless {
                        internals => \@otherargs,
                        value     => $original,
                      }, $class
        }

        sub ReadOnly::FETCH { return $_[0]->{value} }

        # and later:

        my $x = 10;
        tie $x, 'ReadOnly';
        print $x;       # still prints 10


I feel that additional functionality is *very* important.

Damian

Reply via email to