use Scalar::Util qw(weaken);
...
sub GFXButton::new {
    my($class, $container, ...) = @_;
    weaken $container;
    ... Rest des Codes ...
}