4 use Test::More tests => 2;
9 package MyRole::LogMethod;
10 use MooseX::Role::Parameterized;
21 override $p->method => sub {
22 push @calls, "calling " . $p->method;
24 push @calls, "called " . $p->method;
32 with 'MyRole::LogMethod' => {
37 is_deeply([splice @calls], [], "no calls yet");
39 is_deeply([splice @calls], ["calling new", "called new"], "instrumented new");