Just a quick thought that occurred to me as I was reading Moose::Unsweetened... I hope the API isn't set in stone yet... If the accessors presented there are correct, then the accessor functionality might be slightly more efficient from a caller's perspective if the "old" (also "current", with no arg) value was always returned. Then, something like the following could be useful:
my $old = $user->email_address($new); Whereas now, the above call would return $new, which is already known by the caller and therefore not useful. The new accessor would look something like this: sub email_address { my $self = shift; my $v = $self->{email_address}; if (@_) { $self->_validate_email_address( $_[0] ); $self->{email_address} = $_[0]; } return $v; } Regards, Derek -- Derek R. Price Solutions Architect Ximbiot, LLC <http://ximbiot.com> Get CVS and Subversion Support from Ximbiot! v: +1 248.835.1260 f: +1 248.835.1263