[gitmo/Moo.git] / t / buildargs-error.t

use strictures 1;
use Test::More;

{
    package Foo;
    use Moo;

    has bar => ( is => "rw" );
    has baz => ( is => "rw" );

    sub BUILDARGS {
        my ($self, $args) = @_;

        return %$args
    }
}

my $f = Foo->new({ bar => 1, baz => 1 });

done_testing;
Commit	Line	Data
f6f646d5	1	use strictures 1;
	2	use Test::More;
	3
	4	{
	5	package Foo;
	6	use Moo;
	7
	8	has bar => ( is => "rw" );
	9	has baz => ( is => "rw" );
	10
	11	sub BUILDARGS {
	12	my ($self, $args) = @_;
	13
	14	return %$args
	15	}
	16	}
	17
	18	my $f = Foo->new({ bar => 1, baz => 1 });
	19
	20	done_testing;
	21