diff options
Diffstat (limited to 'lib/Data/MultiValued/AttributeTrait/Tags.pm')
-rw-r--r-- | lib/Data/MultiValued/AttributeTrait/Tags.pm | 54 |
1 files changed, 46 insertions, 8 deletions
diff --git a/lib/Data/MultiValued/AttributeTrait/Tags.pm b/lib/Data/MultiValued/AttributeTrait/Tags.pm index 2ea848e..011718d 100644 --- a/lib/Data/MultiValued/AttributeTrait/Tags.pm +++ b/lib/Data/MultiValued/AttributeTrait/Tags.pm @@ -1,4 +1,10 @@ package Data::MultiValued::AttributeTrait::Tags; +{ + $Data::MultiValued::AttributeTrait::Tags::VERSION = '0.0.2'; +} +{ + $Data::MultiValued::AttributeTrait::Tags::DIST = 'Data-MultiValued'; +} use Moose::Role; use namespace::autoclean; use Data::MultiValued::Tags; @@ -6,6 +12,36 @@ with 'Data::MultiValued::AttributeTrait'; # ABSTRACT: attribute traits for attributes holding tagged values + +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; +{ + $Moose::Meta::Attribute::Custom::Trait::MultiValued::Tags::VERSION = '0.0.2'; +} +{ + $Moose::Meta::Attribute::Custom::Trait::MultiValued::Tags::DIST = 'Data-MultiValued'; +}{ +sub register_implementation { 'Data::MultiValued::AttributeTrait::Tags' } +} + +1; + +__END__ +=pod + +=encoding utf-8 + +=head1 NAME + +Data::MultiValued::AttributeTrait::Tags - attribute traits for attributes holding tagged values + +=head1 VERSION + +version 0.0.2 + =head1 SYNOPSIS package My::Class; @@ -39,14 +75,16 @@ Returns C<('tag')>. Returns C<('tag')>. -=cut +=head1 AUTHOR -sub multivalue_storage_class { 'Data::MultiValued::Tags' }; -sub opts_to_pass_set { qw(tag) } -sub opts_to_pass_get { qw(tag) } +Gianni Ceccarelli <dakkar@thenautilus.net> -package Moose::Meta::Attribute::Custom::Trait::MultiValued::Tags;{ -sub register_implementation { 'Data::MultiValued::AttributeTrait::Tags' } -} +=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 -1; |