package FloorToppingDessertWax;
our @ISA = qw[FloorWax DessertTopping];
sub new {bless {}, shift}
sub init {
    my $self = shift;
    foreach my $class (@ISA) {
        my $init = "${class}::init";
        $self->$init(@_) if $self->can($init);
    }
    $self;
}