Perl indentation incorrect when defaulting field attribute to a struct

struct Object {
  1: map<string, string> hashWithDefault = {"foo": "bar"}
  2: list<string> arrayWithDefault = ["foo", "bar", "baz"]
}
struct OtherObject {
  1: Object objectWithDefault = {"hashWithDefault": {"baz": "bat"}, "arrayWithDefault": ["a", "b", "c"]}
  2: string primitiveStringType
}

package Object;
use base qw(Class::Accessor);
Object->mk_accessors( qw( hashWithDefault arrayWithDefault ) );

sub new {
  my $classname = shift;
  my $self      = {};
  my $vals      = shift || {};
  $self->{hashWithDefault} = {
"foo" => "bar",
};
  $self->{arrayWithDefault} = [
"foo",
"bar",
"baz",
];
  if (UNIVERSAL::isa($vals,'HASH')) {
    if (defined $vals->{hashWithDefault}) {
      $self->{hashWithDefault} = $vals->{hashWithDefault};
    }
    if (defined $vals->{arrayWithDefault}) {
      $self->{arrayWithDefault} = $vals->{arrayWithDefault};
    }
  }
  return bless ($self, $classname);
}

package OtherObject;
use base qw(Class::Accessor);
OtherObject->mk_accessors( qw( objectWithDefault primitiveStringType ) );

sub new {
  my $classname = shift;
  my $self      = {};
  my $vals      = shift || {};
  $self->{objectWithDefault} = undef;
  $self->{primitiveStringType} = undef;
  $self->{objectWithDefault} = new Object({
"hashWithDefault" => {
"baz" => "bat",
},
"arrayWithDefault" => [
"a",
"b",
"c",
],
});
    if (UNIVERSAL::isa($vals,'HASH')) {
      if (defined $vals->{objectWithDefault}) {
        $self->{objectWithDefault} = $vals->{objectWithDefault};
      }
      if (defined $vals->{primitiveStringType}) {
        $self->{primitiveStringType} = $vals->{primitiveStringType};
      }
    }
    return bless ($self, $classname);
}