package Data::MultiValued::AttributeTrait::Ranges;
use Moose::Role;
use namespace::autoclean;
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) }
sub all_ranges {
my ($self,$instance) = @_;
my $storage = $self->get_full_storage($instance);
return unless $storage;
return $storage->_storage->all_ranges;
}
package Moose::Meta::Attribute::Custom::Trait::MultiValued::Ranges;{
sub register_implementation { 'Data::MultiValued::AttributeTrait::Ranges' }
}
1;