sub X
{
    my $self = shift;

    $self->{age} = 17;
}