Looks ok to me too. Sorry, I can't help.

By the way, I think

    my $panel = Wx::Panel->new($self, -1);
    my $sizer = Wx::BoxSizer->new(wxVERTICAL);
    my $control = my_control->new($panel);
    $sizer->Add($control, 1, wxEXPAND);
    $panel->SetSizerAndFit($sizer);
    return $self;
[download]

can be simplified to

    my $sizer = Wx::BoxSizer->new(wxVERTICAL);
    my $control = my_control->new($self);
    $sizer->Add($control, 1, wxEXPAND);
    $self->SetSizerAndFit($sizer);
    return $self;
[download]