lib/CatalystX/Declare/DefaultSuperclassing.pm

   1 use MooseX::Declare;
   2
   3 role CatalystX::Declare::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