sub baz {
  my $self = shift;
  $self->{smiley} += 25;
  ..
}