sub grandparent {
    my $self = shift;
    my $parent = $self->parent // return;
    return $parent->parent;
}
...
if( my $gp = $obj->grandparent ) {
   ## use it;
}
else{
   ## take a different path
}