Commit | Line | Data |
6b3fe092 |
1 | use strictures 1; |
2 | use Test::More; |
3 | use Test::Fatal; |
4 | |
5 | BEGIN { |
6 | package Role::For::Constructor; |
7 | use Moo::Role; |
8 | has extra_param => (is => 'ro'); |
9 | } |
10 | BEGIN { |
11 | package Some::Class; |
12 | use Moo; |
13 | BEGIN { |
14 | my $con = Moo->_constructor_maker_for(__PACKAGE__); |
15 | Moo::Role->apply_roles_to_object($con, 'Role::For::Constructor'); |
16 | } |
17 | } |
18 | |
19 | { |
20 | package Some::SubClass; |
21 | use Moo; |
22 | extends 'Some::Class'; |
23 | |
24 | ::is(::exception { |
25 | has bar => (is => 'ro'); |
26 | }, undef, 'extending constructor generator works'); |
27 | } |
28 | |
29 | done_testing; |