如何在Moops中重载方法?

时间:2014-12-04 16:50:55

标签: perl moose moops

我想在Moops中重载一些方法。

我尝试了以下代码:

method setIdNum() {
      print "Please enter ID number: ";
      chomp (my $input = <STDIN>);
      $self->$idNum($input);
}

method setIdNum(Int $num) {
      $self->$idNum($num);
}

但是通过说setIdNum被重新定义它的错误。

1 个答案:

答案 0 :(得分:3)

如果您需要多方法,则必须将multi放在method关键字前面,明确要求它们:

multi method setIdNum() {
  print "Please enter ID number: ";
  chomp (my $input = <STDIN>);
  $self->$idNum($input);
}

multi method setIdNum(Int $num) {
  $self->$idNum($num);
}

您可能还需要在类声明中明确要求Kavorka支持:

class Whatever {
    use Kavorka qw( multi method );
  ...