perl - Perl with Moo: メソッドのスーパークラスの実装を呼び出す方法は?

Question

Xサブクラスを持つクラスがありYます。 いくつかの追加の動作でオーバーライドしたいXメソッド、失敗した場合に呼び出すステートメントがあります。Python では、これは次のように実行されます。calculate()YifX.calculate()

class X(object):
    def calculate(self, my_arg):
        return "Hello!"

class Y(X):
    def calculate(self, my_arg):
        if type(my_arg) is int and my_arg > 5:
            return "Goodbye!"
        return super(Y, self).calculate(my_arg)

Mooモジュールを使用してPerlでこれを行うにはどうすればよいですか?