in reply to What operator should perl5porters use for safe dereferencing?
Btw, I really can't wait. I'll be able to pull horrible hacky code such as:
They I can go through my code and refactor....package MyApp::Universal; use warnings; use strict; use Try::Tiny; sub deref { # # Weak linear dereferencing. $foo->deref('bar','baz') # is almost like $foo->bar->baz except we'll # return undef rather than barfing if 'foo' # or 'bar' evaulate to undef. # if (@_ >= 2) { my $ref = shift; my $deref = shift; return unless defined $ref && defined $deref && try {$ref->can('isa')}; return deref($ref->$deref => @_); } elsif (@_) { return shift; } else { return; } }
as....$obj->deref(qw(foo bar baz));
Update Also look forward to be able to do...$obj~>foo~>bar~>baz;
...when I don't want autovivification.$href~>{foo}~>[$bar]~>{baz};
|
---|