sub MenuBar::Item::BUILD {
    my $self = shift;
    bless $self, __PACKAGE__ ;
    $self->Append( $self->item_quit );
    return $self;
}

##</code><code>##

#!/usr/bin/perl --
use Wx qw[ :allclasses ]; 
{ package MMenu;  use base qw/ Wx::Menu /; 1; }
{ package MFrame; use base qw/ Wx::Frame /; 1; }
package main;
print join "\n", 
    MMenu->new,
    MFrame->new,
;;;;;
__END__
Wx::Menu=SCALAR(0x3f9afc)
MFrame=HASH(0x99b30c)