Commit | Line | Data |
---|---|---|
918fb36e | 1 | use MooseX::Declare; |
2 | ||
9c11a562 | 3 | role CatalystX::Declare::DefaultSuperclassing { |
918fb36e | 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 |