summaryrefslogtreecommitdiff
path: root/lib/Data/MultiValued/AttributeTrait
diff options
context:
space:
mode:
Diffstat (limited to 'lib/Data/MultiValued/AttributeTrait')
-rw-r--r--lib/Data/MultiValued/AttributeTrait/Ranges.pm52
-rw-r--r--lib/Data/MultiValued/AttributeTrait/Tags.pm52
-rw-r--r--lib/Data/MultiValued/AttributeTrait/TagsAndRanges.pm52
3 files changed, 132 insertions, 24 deletions
diff --git a/lib/Data/MultiValued/AttributeTrait/Ranges.pm b/lib/Data/MultiValued/AttributeTrait/Ranges.pm
index 3d3b3f8..b80d6d6 100644
--- a/lib/Data/MultiValued/AttributeTrait/Ranges.pm
+++ b/lib/Data/MultiValued/AttributeTrait/Ranges.pm
@@ -1,10 +1,44 @@
package Data::MultiValued::AttributeTrait::Ranges;
+{
+ $Data::MultiValued::AttributeTrait::Ranges::VERSION = '0.0.1';
+}
+{
+ $Data::MultiValued::AttributeTrait::Ranges::DIST = 'Data-MultiValued';
+}
use Moose::Role;
use Data::MultiValued::Ranges;
with 'Data::MultiValued::AttributeTrait';
# ABSTRACT: attribute traits for attributes holding ranged values
+
+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;
+{
+ $Moose::Meta::Attribute::Custom::Trait::MultiValued::Ranges::VERSION = '0.0.1';
+}
+{
+ $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 - attribute traits for attributes holding ranged values
+
+=head1 VERSION
+
+version 0.0.1
+
=head1 SYNOPSIS
package My::Class;
@@ -38,14 +72,16 @@ Returns C<('from', 'to')>.
Returns C<('at')>.
-=cut
+=head1 AUTHOR
-sub multivalue_storage_class { 'Data::MultiValued::Ranges' };
-sub opts_to_pass_set { qw(from to) }
-sub opts_to_pass_get { qw(at) }
+Gianni Ceccarelli <dakkar@thenautilus.net>
-package Moose::Meta::Attribute::Custom::Trait::MultiValued::Ranges;{
-sub register_implementation { 'Data::MultiValued::AttributeTrait::Ranges' }
-}
+=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;
diff --git a/lib/Data/MultiValued/AttributeTrait/Tags.pm b/lib/Data/MultiValued/AttributeTrait/Tags.pm
index d671ed4..f62a1eb 100644
--- a/lib/Data/MultiValued/AttributeTrait/Tags.pm
+++ b/lib/Data/MultiValued/AttributeTrait/Tags.pm
@@ -1,10 +1,44 @@
package Data::MultiValued::AttributeTrait::Tags;
+{
+ $Data::MultiValued::AttributeTrait::Tags::VERSION = '0.0.1';
+}
+{
+ $Data::MultiValued::AttributeTrait::Tags::DIST = 'Data-MultiValued';
+}
use Moose::Role;
use Data::MultiValued::Tags;
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.1';
+}
+{
+ $Moose::Meta::Attribute::Custom::Trait::MultiValued::Tags::DIST = 'Data-MultiValued';
+}{
+sub register_implementation { 'Data::MultiValued::AttributeTrait::Tags' }
+}
+
+1;
+
+__END__
+=pod
+
+=head1 NAME
+
+Data::MultiValued::AttributeTrait::Tags - attribute traits for attributes holding tagged values
+
+=head1 VERSION
+
+version 0.0.1
+
=head1 SYNOPSIS
package My::Class;
@@ -38,14 +72,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;
diff --git a/lib/Data/MultiValued/AttributeTrait/TagsAndRanges.pm b/lib/Data/MultiValued/AttributeTrait/TagsAndRanges.pm
index 0bb87ef..23c93e6 100644
--- a/lib/Data/MultiValued/AttributeTrait/TagsAndRanges.pm
+++ b/lib/Data/MultiValued/AttributeTrait/TagsAndRanges.pm
@@ -1,10 +1,44 @@
package Data::MultiValued::AttributeTrait::TagsAndRanges;
+{
+ $Data::MultiValued::AttributeTrait::TagsAndRanges::VERSION = '0.0.1';
+}
+{
+ $Data::MultiValued::AttributeTrait::TagsAndRanges::DIST = 'Data-MultiValued';
+}
use Moose::Role;
use Data::MultiValued::TagsAndRanges;
with 'Data::MultiValued::AttributeTrait';
# ABSTRACT: attribute traits for attributes holding tagged and ranged values
+
+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;
+{
+ $Moose::Meta::Attribute::Custom::Trait::MultiValued::TagsAndRanges::VERSION = '0.0.1';
+}
+{
+ $Moose::Meta::Attribute::Custom::Trait::MultiValued::TagsAndRanges::DIST = 'Data-MultiValued';
+}{
+sub register_implementation { 'Data::MultiValued::AttributeTrait::TagsAndRanges' }
+}
+
+1;
+
+__END__
+=pod
+
+=head1 NAME
+
+Data::MultiValued::AttributeTrait::TagsAndRanges - attribute traits for attributes holding tagged and ranged values
+
+=head1 VERSION
+
+version 0.0.1
+
=head1 SYNOPSIS
package My::Class;
@@ -38,14 +72,16 @@ Returns C<('tag', 'from', 'to')>.
Returns C<('tag', 'at')>.
-=cut
+=head1 AUTHOR
-sub multivalue_storage_class { 'Data::MultiValued::TagsAndRanges' };
-sub opts_to_pass_set { qw(from to tag) }
-sub opts_to_pass_get { qw(at tag) }
+Gianni Ceccarelli <dakkar@thenautilus.net>
-package Moose::Meta::Attribute::Custom::Trait::MultiValued::TagsAndRanges;{
-sub register_implementation { 'Data::MultiValued::AttributeTrait::TagsAndRanges' }
-}
+=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;