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;
}
}
####
$obj->deref(qw(foo bar baz));
##
##
$obj~>foo~>bar~>baz;
##
##
$href~>{foo}~>[$bar]~>{baz};