Dive of Data::Diver does not autovivify

use Data::Diver qw/ Dive /;
...
my $val = Dive( $data, \$id, \'HOST' );
if( !defined $val ){
   ...
}
[download]