Maybe I can interest you in my Tie::OneOff module.

require Tie::OneOff;

package cool;

sub name : lvalue {
    my $self = shift;
    +Tie::OneOff->lvalue({
        STORE => sub { 
            my $val = shift;
            # Do whatever
            $self->{NAME} = $val;
        },
        FETCH => sub {
            $self->{NAME};
        },
    }); 
}
[download]

This module was the result of a discussion in comp.lang.perl.misc.