use Test::More;
use MooseX::Declare;
class Foo {
method foo (Foo $foo: Int $x) {
$x - 5;
}
}
class Bar extends Foo {
around foo (Bar $bar: Int $x) {
$orig->($bar, $x * 2);
}
}
is(Bar->new->foo(10), 15, 'Test advice on class method');
done_testing;