sub initialize
{
    my $self = shift;
    $self->SUPER::initialize( @_ );
    ...
}