use Mouse;
has foo => (
+ is => 'bare',
required => 1,
);
has bar => (
+ is => 'bare',
required => 1,
default => 50,
);
has baz => (
+ is => 'bare',
required => 1,
default => sub { 10 },
);
);
};
-throws_ok { Class->new } qr/Attribute 'foo' is required/, "required attribute is required";
+throws_ok { Class->new } qr/Attribute \(foo\) is required/, "required attribute is required";
lives_ok { Class->new(foo => 5) } "foo is the only required but unfulfilled attribute";
lives_ok { Class->new(foo => 1, bar => 1, baz => 1, quux => 1) } "all attributes specified";