package Data::MultiValued::AttributeTrait::Ranges; BEGIN { $Data::MultiValued::AttributeTrait::Ranges::VERSION = '0.0.1'; } BEGIN { $Data::MultiValued::AttributeTrait::Ranges::DIST = 'Data-MultiValued'; } 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; BEGIN { $Moose::Meta::Attribute::Custom::Trait::MultiValued::Ranges::VERSION = '0.0.1'; } BEGIN { $Moose::Meta::Attribute::Custom::Trait::MultiValued::Ranges::DIST = 'Data-MultiValued'; }{ sub register_implementation { 'Data::MultiValued::AttributeTrait::Ranges' } } 1; __END__ =pod =head1 NAME Data::MultiValued::AttributeTrait::Ranges =head1 VERSION version 0.0.1 =head1 AUTHOR Gianni Ceccarelli =head1 COPYRIGHT AND LICENSE This software is copyright (c) 2011 by Net-a-porter.com. This is free software; you can redistribute it and/or modify it under the same terms as the Perl 5 programming language system itself. =cut