1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24
package Carton::Dist::Core; use strict; use Moo; extends 'Carton::Dist'; has module_version => (is => 'ro'); sub BUILDARGS { my($class, %args) = @_; # TODO represent dual-life $args{name} =~ s/::/-/g; \%args; } sub is_core { 1 } sub version_for { my($self, $module) = @_; $self->module_version; } 1;