Select Code to Download

sub definedor(&$) { defined($_[1]) ? $_[1] : $_[0]->() }

definedor { $self->error('blah blah')) } $foo = $bar->id;  # Ugly

defined($foo = $bar->id) or $self->error('blah blah'));    # Better