my $code = 'incomplete';
my $happy_level = 0;

until ($code eq 'complete') {
   $code = check_code();
}

print STDERR "Yay! Code is done!";
$happy_level++;

my $drink = new Bev::Beer(-brand => 'Guinness');
$drink->imbibe();
$happy_level++ if $drink->is_tasty();