$container->add_button(%button_args);

{
   package Container;
   sub add_button {
      my($self, %button_args) = @_;
      my $button = Button->new(%button_args, -container => $self);
      push @{$self->buttons}, $button;
      $button;
   }
}