diff options
| author | Gianni Ceccarelli <dakkar@thenautilus.net> | 2011-11-10 11:42:31 +0000 |
|---|---|---|
| committer | Gianni Ceccarelli <dakkar@thenautilus.net> | 2011-11-10 11:42:31 +0000 |
| commit | a93d238ea41f767a40fc0177b0f46ea5f1d5200e (patch) | |
| tree | 6abf62a77a6af15b7425ff0659c67fdeba96ca44 /Data-MultiValued/lib/Data/MultiValued/AttributeTrait | |
| parent | silence a test (diff) | |
| download | data-multivalued-a93d238ea41f767a40fc0177b0f46ea5f1d5200e.tar.gz data-multivalued-a93d238ea41f767a40fc0177b0f46ea5f1d5200e.tar.bz2 data-multivalued-a93d238ea41f767a40fc0177b0f46ea5f1d5200e.zip | |
all traits, and some tests
Diffstat (limited to 'Data-MultiValued/lib/Data/MultiValued/AttributeTrait')
3 files changed, 30 insertions, 0 deletions
diff --git a/Data-MultiValued/lib/Data/MultiValued/AttributeTrait/Ranges.pm b/Data-MultiValued/lib/Data/MultiValued/AttributeTrait/Ranges.pm new file mode 100644 index 0000000..8d93578 --- /dev/null +++ b/Data-MultiValued/lib/Data/MultiValued/AttributeTrait/Ranges.pm @@ -0,0 +1,14 @@ +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; diff --git a/Data-MultiValued/lib/Data/MultiValued/AttributeTrait/Tags.pm b/Data-MultiValued/lib/Data/MultiValued/AttributeTrait/Tags.pm index fff5776..7cffb33 100644 --- a/Data-MultiValued/lib/Data/MultiValued/AttributeTrait/Tags.pm +++ b/Data-MultiValued/lib/Data/MultiValued/AttributeTrait/Tags.pm @@ -4,6 +4,8 @@ use Data::MultiValued::Tags; with 'Data::MultiValued::AttributeTrait'; sub multivalue_storage_class { 'Data::MultiValued::Tags' }; +sub opts_to_pass_set { qw(tag) } +sub opts_to_pass_get { qw(tag) } package Moose::Meta::Attribute::Custom::Trait::MultiValued::Tags;{ sub register_implementation { 'Data::MultiValued::AttributeTrait::Tags' } diff --git a/Data-MultiValued/lib/Data/MultiValued/AttributeTrait/TagsAndRanges.pm b/Data-MultiValued/lib/Data/MultiValued/AttributeTrait/TagsAndRanges.pm new file mode 100644 index 0000000..e0c56cd --- /dev/null +++ b/Data-MultiValued/lib/Data/MultiValued/AttributeTrait/TagsAndRanges.pm @@ -0,0 +1,14 @@ +package Data::MultiValued::AttributeTrait::TagsAndRanges; +use Moose::Role; +use Data::MultiValued::TagsAndRanges; +with 'Data::MultiValued::AttributeTrait'; + +sub multivalue_storage_class { 'Data::MultiValued::TagsAndRanges' }; +sub opts_to_pass_set { qw(from to tag) } +sub opts_to_pass_get { qw(at tag) } + +package Moose::Meta::Attribute::Custom::Trait::MultiValued::TagsAndRanges;{ +sub register_implementation { 'Data::MultiValued::AttributeTrait::TagsAndRanges' } +} + +1; |