Help for this page

Select Code to Download


  1. or download this
    package FloorWax;
sub new {
...
    my $class = shift;
    bless {DT_massage(@_)}, $class;
}
  2. or download this
    package FloorToppingDessertWax;
our @ISA = qw[FloorWax DessertTopping];

sub new {
    my $class = shift;
  3. or download this
    package FloorWax;
sub new {bless {}, shift}
...
    @$self{keys %arg} = values %arg;
    $self
}
  4. or download this
    package FloorToppingDessertWax;
our @ISA = qw[FloorWax DessertTopping];
...
    }
    $self;
}