Whenever your setter needs to be normalized to a different value lvalue accessors don't cut it.

But last week I released the latest version of the Contextual::Return module, with which you can now hide all the complexity of tied proxies behind two simple LVALUE, and RVALUE blocks. For example:

    use Contextual::Return;

    # Name method offers unconstrained access...
    sub name : lvalue {
        my ($self) = @_;

        $name_of{ident $self};
    }

    # Rank method constrains access: can assign only valid ranks
    # (value being assigned is passed as $_ to LVALUE block)...
    sub rank : lvalue {
        my ($self) = @_;

        LVALUE {
            croak "Invalid rank ($_) assigned" if !$is_valid_rank{$_};
            $rank_of{ident $self} = $_;
        }
        RVALUE {
            $rank_of{ident $self};
        }
    }

    # Serial method offers read-only access...
    sub serial {
        my ($self) = @_;

        return $snum_of{ident $self};
    }
[download]

With this functionality now available, I'm seriously reconsidering my long-held objections to lvalue accessors.

Damian

Wow, that's pretty nice... Great work =)
-nuffin
zz zZ Z Z #!perl

uh, override the set method?
-nuffin
zz zZ Z Z #!perl

That's exactly equivalent to overriding the STORE method for a tied variable. Advantage: none.

---

Caution: Contents may have been coded under pressure.