Commit | Line | Data |
---|---|---|
2c580674 | 1 | use strictures 1; |
2 | use Test::More; | |
3 | ||
4 | { | |
5 | package Role; use Role::Tiny; | |
6 | around foo => sub { my $orig = shift; 1 + $orig->(@_) }; | |
7 | package Base; sub foo { 1 } | |
8 | } | |
9 | ||
10 | eval { Role::Tiny->create_class_with_roles('Base', qw(Role Role)); }; | |
11 | ||
836aea1b | 12 | like $@, qr/Duplicated/, 'duplicate role detected'; |
2c580674 | 13 | |
14 | done_testing; |