Ah, but expressing one's happiness can, of itself, contribute to happiness.

Observe:

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();
[download]

So by expressing my happiness in the form of consuming a favorite malt beverage, I become happier. :-)