2 use warnings FATAL => 'all';
6 package Role; use Role::Tiny;
7 sub foo { my $orig = shift; 1 + $orig->(@_) };
8 package Base; sub foo { 1 }
11 eval { Role::Tiny->create_class_with_roles('Base', qw(Role Role)); };
13 like $@, qr/Duplicated/, 'duplicate role detected';