Select Code to Download

 Inside Object2:
   sub setsomething {
      my $self = shift;
      $self->{_object1}->{mode} = 1;
   }

sub mode
{
...
  $self->{mode} = $_[0] if (@_);
  $self->{mode};
}

$self->{_object1}->{mode} = 1;

$self->{_object1}->mode(1);