Select Code to Download

my $pan = Saucepan->new ();
$pan->heat ("medium");
...
$pan->add (Ingredient->new ("sugar",  cup => .5));
wait () until $pan->content ()->state ("melted");
$pan->bubble ($_) for Time->new (minute => (1 || 2));