package Data::MultiValued::AttributeTrait::Ranges; use Moose::Role; use Data::MultiValued::Ranges; with 'Data::MultiValued::AttributeTrait'; sub multivalue_storage_class { 'Data::MultiValued::Ranges' }; sub opts_to_pass_set { qw(from to) } sub opts_to_pass_get { qw(at) } package Moose::Meta::Attribute::Custom::Trait::MultiValued::Ranges;{ sub register_implementation { 'Data::MultiValued::AttributeTrait::Ranges' } } 1;