if ya want it even shorter, try $self->{_id} = defined($id) ? $id : $self->{_id}

--linuxkid

imrunningoutofideas.co.cc

Comment on Re: What does this mean? Download Code
Re^2: What does this mean? by aaron_baugher (Chaplain) on Aug 20, 2012 at 22:53 UTC
If by "shorter," you mean 14 characters longer, then absolutely. Aaron B. Available for small or large Perl jobs; see my home node.	[reply]
Re^2: What does this mean? by Anonymous Monk on Aug 21, 2012 at 07:04 UTC
`defined $id and $$self{_id} = $id;` or with newer perls `$$self{_id} //= $id;`	[reply] [d/l] [select]
Re^3: What does this mean? by moritz (Cardinal) on Aug 21, 2012 at 07:14 UTC
`$$self{_id} //= $id;` checks the definedness of `$$self{_id}`, not of `$id` (as the other suggested snippets do), so it does something completely different (never reset the attribute, instead of prevent assignment of an undefined id). Perl 6 - the future is here, just unevenly distributed	[reply] [d/l] [select]