Commit | Line | Data |
---|---|---|
918fb36e | 1 | use MooseX::Declare; |
2 | ||
3 | role CatalystX::Declarative::DefaultSuperclassing { | |
4 | ||
5 | requires qw( | |
6 | default_superclasses | |
7 | ); | |
8 | ||
9 | before add_optional_customizations (Object $ctx, Str $package) { | |
10 | ||
11 | unless (@{ $ctx->options->{extends} || [] }) { | |
12 | $ctx->options->{extends} = [$self->default_superclasses]; | |
13 | } | |
14 | } | |
15 | } | |
16 |