sub happy_birthday { my $self = shift; return $self->age( $self->age() + 1 ); }