Bump to 0.03

[gitmo/MooseX-Role-Parameterized.git] / t / 008-method-modifers.t

#!/usr/bin/env perl
use strict;
use warnings;
use Test::More tests => 2;

my @calls;

do {
    package MyRole::LogMethod;
    use MooseX::Role::Parameterized;

    parameter method => (
        is       => 'ro',
        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");