[p5sagit/Function-Parameters.git] / t / foreign / MooseX-Method-Signatures / attributes.t

#!perl
use strict;
use warnings FATAL => 'all';

use Test::More tests => 2;

use attributes;
use Function::Parameters qw(:strict);

my $attrs;
my $cb_called;

sub MODIFY_CODE_ATTRIBUTES {
    my ($pkg, $code, @attrs) = @_;
    $cb_called = 1;
    $attrs = \@attrs;
    return ();
}

method moo ($a, $b) : Bar Baz(fubar) {
}

method foo
:
Bar
:Moo(:Ko{oh)
: Baz(fu{bar:): { return {} }

ok($cb_called, 'attribute handler got called');
is_deeply($attrs, [qw/Bar Moo(:Ko{oh) Baz(fu{bar:)/], '... with the right attributes');
Commit	Line	Data
595edbcf	1	#!perl
	2	use strict;
	3	use warnings FATAL => 'all';
	4
	5	use Test::More tests => 2;
	6
	7	use attributes;
	8	use Function::Parameters qw(:strict);
	9
	10	my $attrs;
	11	my $cb_called;
	12
	13	sub MODIFY_CODE_ATTRIBUTES {
	14	my ($pkg, $code, @attrs) = @_;
	15	$cb_called = 1;
	16	$attrs = \@attrs;
	17	return ();
	18	}
	19
	20	method moo ($a, $b) : Bar Baz(fubar) {
	21	}
	22
	23	method foo
	24	:
	25	Bar
	26	:Moo(:Ko{oh)
	27	: Baz(fu{bar:): { return {} }
	28
	29	ok($cb_called, 'attribute handler got called');
	30	is_deeply($attrs, [qw/Bar Moo(:Ko{oh) Baz(fu{bar:)/], '... with the right attributes');