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