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