[catagits/CatalystX-Declare.git] / lib / CatalystX / Declare / DefaultSuperclassing.pm

use MooseX::Declare;

role CatalystX::Declare::DefaultSuperclassing {

    requires qw(
        default_superclasses
    );

    before add_optional_customizations (Object $ctx, Str $package) {

        unless (@{ $ctx->options->{extends} || [] }) {
            $ctx->options->{extends} = [$self->default_superclasses];
        }
    }
}
Commit	Line	Data
918fb36e	1	use MooseX::Declare;
918fb36e	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