perl – 确定是否已从基类重写基类子例程

我有一个名为Parent的基类

亲

package Parent;

sub new {
    my $c = shift;
    my $s = {},bless $s,$c;
    return $s;
}

sub who {
    return "parent";
}

1;

这个父类暴露了一个方法;谁.

我写了两个孩子课：Child和Freak.只有孩子才能覆盖谁.

儿童

package Child;

use base 'Parent';

sub who {
    return "child";
}

1;

怪物

package Freak;

use base 'Parent';

1;

基类如何确定是否已重写方法的基础？

我希望能够写出这样的东西

package Parent;

sub new {
    my $c = shift;
    my $s = {},$c;
    return $s;
}

sub who {
    return "parent";
}

sub check {
  my $self = shift;

  my $is_overridden = 1; # what conditional should be here?

  return $is_overridden ? "yes" : "no";
}

1;

我可以使用什么条件来确定子程序是否被覆盖？