Re^4: Error "Can't use an undefined value as a HASH reference" while working with generated objects

The Data::Diver example will die if $values[0][0] is defined and true but not a hashref - e.g. if it's an arrayref.

use Data::Diver 'Dive';
use Scalar::Does 'does';

if (my $want = Dive( \@values, qw/ 0 0 / )) {
   %valeur = %$want if does($want, 'HASH');
}
[download]

perl -E'sub Monkey::do{say$_,for@_,do{($monkey=[caller(0)]->[3])=~s{::}{ }and$monkey}}"Monkey say"->Monkey::do'

Comment on Re^4: Error "Can't use an undefined value as a HASH reference" while working with generated objects Download Code