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";