use Data::Diver qw/ DiveVal /;
my $VAR1 = {};

DiveVal( $VAR1, qw/ content errors 0 field /)
    = "merge_fields"; #d3

DiveVal( $VAR1, qw/ content errors 0 message /)
    = "This value should be of type object."; #d3