Help for this page

Select Code to Download


  1. or download this
    my $donut = Donut::Filled->new (Filling => "Cherry");
    $donut->add (Topping => "Hawaiian");
    
    print $donut; # Should be "Cherry filling with Hawaiian topping"
                  # Is now "Donut::Filled=HASH(0xXXXXXXXX)"
    
  2. or download this
    print "Your order is for $count donuts which are specified with $donut<BR><BR>\n";
  3. or download this
    print "Your order is for $count donuts which are specified with "
    .$donut->printed()."<BR><BR>\n";