gistfile1.pl

 sub parent {
    my $self = shift;
    my $pcol = $self->parent_column;
    return $self->result_source->resultset->find(
      $self->get_column ($pcol)
    );
  }