use strict;
use warnings;
-use Test::More tests => 27;
+use Test::More;
use Test::Exception;
-
=pod
This basically just makes sure that using +name
for (1..3) {
has "err$_" => (
isa => 'Str | Int',
+ is => 'bare',
);
}
} "or add new types to the union";
}
+{
+ package Role::With::PlusAttr;
+ use Moose::Role;
+
+ with 'Foo::Role';
+
+ ::throws_ok {
+ has '+bar' => ( is => 'ro' );
+ } qr/has '\+attr' is not supported in roles/,
+ "Test has '+attr' in roles explodes";
+}
+
+done_testing;