{ my $age; sub age {
    my $self = shift;
    return $age unless @_;
    $age = shift;
}}