projects
/
gitmo/Moo.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
85afbe86888e94d0977c7461114bde11e438f8d7
[gitmo/Moo.git]
/
t
/
buildargs-error.t
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