Permalink
Fetching contributors…
Cannot retrieve contributors at this time
53 lines (40 sloc) 988 Bytes
#!/usr/bin/env perl
use strict;
use warnings;
use Test::More;
my @calls;
do {
package MyRole::LogMethod;
use MooseX::Role::Parameterized;
parameter method => (
isa => 'Str',
required => 1,
);
role {
my $p = shift;
before $p->method => sub {
push @calls, "calling " . $p->method
};
after $p->method => sub {
push @calls, "called " . $p->method
};
around $p->method => sub {
my $orig = shift;
my $start = 0; # time
$orig->(@_);
my $end = 0; # time
push @calls, "took " . ($end - $start) . " seconds";
};
};
};
do {
package MyClass;
use Moose;
with 'MyRole::LogMethod' => {
method => 'new',
};
};
is_deeply([splice @calls], [], "no calls yet");
MyClass->new;
is_deeply([splice @calls], ["calling new", "took 0 seconds", "called new"], "instrumented new");
done_testing;