summaryrefslogtreecommitdiff
path: root/lib/Data
diff options
context:
space:
mode:
Diffstat (limited to 'lib/Data')
-rw-r--r--lib/Data/MultiValued/AttributeAccessors.pm31
-rw-r--r--lib/Data/MultiValued/AttributeTrait.pm31
-rw-r--r--lib/Data/MultiValued/AttributeTrait/Ranges.pm39
-rw-r--r--lib/Data/MultiValued/AttributeTrait/Tags.pm39
-rw-r--r--lib/Data/MultiValued/AttributeTrait/TagsAndRanges.pm39
-rw-r--r--lib/Data/MultiValued/Exceptions.pm63
-rw-r--r--lib/Data/MultiValued/RangeContainer.pm31
-rw-r--r--lib/Data/MultiValued/Ranges.pm31
-rw-r--r--lib/Data/MultiValued/TagContainer.pm31
-rw-r--r--lib/Data/MultiValued/TagContainerForRanges.pm31
-rw-r--r--lib/Data/MultiValued/Tags.pm31
-rw-r--r--lib/Data/MultiValued/TagsAndRanges.pm31
-rw-r--r--lib/Data/MultiValued/UglySerializationHelperRole.pm31
13 files changed, 452 insertions, 7 deletions
diff --git a/lib/Data/MultiValued/AttributeAccessors.pm b/lib/Data/MultiValued/AttributeAccessors.pm
index cac3538..abe2459 100644
--- a/lib/Data/MultiValued/AttributeAccessors.pm
+++ b/lib/Data/MultiValued/AttributeAccessors.pm
@@ -1,4 +1,10 @@
package Data::MultiValued::AttributeAccessors;
+BEGIN {
+ $Data::MultiValued::AttributeAccessors::VERSION = '0.0.1';
+}
+BEGIN {
+ $Data::MultiValued::AttributeAccessors::DIST = 'Data-MultiValued';
+}
use strict;
use warnings;
use base 'Moose::Meta::Method::Accessor';
@@ -107,3 +113,28 @@ sub _generate_multi_clearer_method {
}
1;
+
+__END__
+=pod
+
+=head1 NAME
+
+Data::MultiValued::AttributeAccessors
+
+=head1 VERSION
+
+version 0.0.1
+
+=head1 AUTHOR
+
+Gianni Ceccarelli <dakkar@thenautilus.net>
+
+=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
+
diff --git a/lib/Data/MultiValued/AttributeTrait.pm b/lib/Data/MultiValued/AttributeTrait.pm
index 91e1b13..afeea2e 100644
--- a/lib/Data/MultiValued/AttributeTrait.pm
+++ b/lib/Data/MultiValued/AttributeTrait.pm
@@ -1,4 +1,10 @@
package Data::MultiValued::AttributeTrait;
+BEGIN {
+ $Data::MultiValued::AttributeTrait::VERSION = '0.0.1';
+}
+BEGIN {
+ $Data::MultiValued::AttributeTrait::DIST = 'Data-MultiValued';
+}
use Moose::Role;
use Data::MultiValued::AttributeAccessors;
use MooseX::Types::Moose qw(Str);
@@ -227,3 +233,28 @@ sub _as_hash {
}
1;
+
+__END__
+=pod
+
+=head1 NAME
+
+Data::MultiValued::AttributeTrait
+
+=head1 VERSION
+
+version 0.0.1
+
+=head1 AUTHOR
+
+Gianni Ceccarelli <dakkar@thenautilus.net>
+
+=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
+
diff --git a/lib/Data/MultiValued/AttributeTrait/Ranges.pm b/lib/Data/MultiValued/AttributeTrait/Ranges.pm
index 8d93578..347ee96 100644
--- a/lib/Data/MultiValued/AttributeTrait/Ranges.pm
+++ b/lib/Data/MultiValued/AttributeTrait/Ranges.pm
@@ -1,4 +1,10 @@
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';
@@ -7,8 +13,39 @@ 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;{
+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 <dakkar@thenautilus.net>
+
+=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
+
diff --git a/lib/Data/MultiValued/AttributeTrait/Tags.pm b/lib/Data/MultiValued/AttributeTrait/Tags.pm
index 7cffb33..4355ebe 100644
--- a/lib/Data/MultiValued/AttributeTrait/Tags.pm
+++ b/lib/Data/MultiValued/AttributeTrait/Tags.pm
@@ -1,4 +1,10 @@
package Data::MultiValued::AttributeTrait::Tags;
+BEGIN {
+ $Data::MultiValued::AttributeTrait::Tags::VERSION = '0.0.1';
+}
+BEGIN {
+ $Data::MultiValued::AttributeTrait::Tags::DIST = 'Data-MultiValued';
+}
use Moose::Role;
use Data::MultiValued::Tags;
with 'Data::MultiValued::AttributeTrait';
@@ -7,8 +13,39 @@ 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;{
+package Moose::Meta::Attribute::Custom::Trait::MultiValued::Tags;
+BEGIN {
+ $Moose::Meta::Attribute::Custom::Trait::MultiValued::Tags::VERSION = '0.0.1';
+}
+BEGIN {
+ $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
+
+=head1 VERSION
+
+version 0.0.1
+
+=head1 AUTHOR
+
+Gianni Ceccarelli <dakkar@thenautilus.net>
+
+=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
+
diff --git a/lib/Data/MultiValued/AttributeTrait/TagsAndRanges.pm b/lib/Data/MultiValued/AttributeTrait/TagsAndRanges.pm
index e0c56cd..20b4acd 100644
--- a/lib/Data/MultiValued/AttributeTrait/TagsAndRanges.pm
+++ b/lib/Data/MultiValued/AttributeTrait/TagsAndRanges.pm
@@ -1,4 +1,10 @@
package Data::MultiValued::AttributeTrait::TagsAndRanges;
+BEGIN {
+ $Data::MultiValued::AttributeTrait::TagsAndRanges::VERSION = '0.0.1';
+}
+BEGIN {
+ $Data::MultiValued::AttributeTrait::TagsAndRanges::DIST = 'Data-MultiValued';
+}
use Moose::Role;
use Data::MultiValued::TagsAndRanges;
with 'Data::MultiValued::AttributeTrait';
@@ -7,8 +13,39 @@ 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;{
+package Moose::Meta::Attribute::Custom::Trait::MultiValued::TagsAndRanges;
+BEGIN {
+ $Moose::Meta::Attribute::Custom::Trait::MultiValued::TagsAndRanges::VERSION = '0.0.1';
+}
+BEGIN {
+ $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
+
+=head1 VERSION
+
+version 0.0.1
+
+=head1 AUTHOR
+
+Gianni Ceccarelli <dakkar@thenautilus.net>
+
+=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
+
diff --git a/lib/Data/MultiValued/Exceptions.pm b/lib/Data/MultiValued/Exceptions.pm
index 8d444c0..77a9e22 100644
--- a/lib/Data/MultiValued/Exceptions.pm
+++ b/lib/Data/MultiValued/Exceptions.pm
@@ -1,5 +1,17 @@
package Data::MultiValued::Exceptions;
-package Data::MultiValued::Exceptions::NotFound;{
+BEGIN {
+ $Data::MultiValued::Exceptions::VERSION = '0.0.1';
+}
+BEGIN {
+ $Data::MultiValued::Exceptions::DIST = 'Data-MultiValued';
+}
+package Data::MultiValued::Exceptions::NotFound;
+BEGIN {
+ $Data::MultiValued::Exceptions::NotFound::VERSION = '0.0.1';
+}
+BEGIN {
+ $Data::MultiValued::Exceptions::NotFound::DIST = 'Data-MultiValued';
+}{
use Moose;
extends 'Throwable::Error';
@@ -18,7 +30,13 @@ sub as_string {
}
}
-package Data::MultiValued::Exceptions::TagNotFound;{
+package Data::MultiValued::Exceptions::TagNotFound;
+BEGIN {
+ $Data::MultiValued::Exceptions::TagNotFound::VERSION = '0.0.1';
+}
+BEGIN {
+ $Data::MultiValued::Exceptions::TagNotFound::DIST = 'Data-MultiValued';
+}{
use Moose;
extends 'Data::MultiValued::Exceptions::NotFound';
@@ -26,7 +44,13 @@ has '+message' => (
default => 'tag not found: ',
);
}
-package Data::MultiValued::Exceptions::RangeNotFound;{
+package Data::MultiValued::Exceptions::RangeNotFound;
+BEGIN {
+ $Data::MultiValued::Exceptions::RangeNotFound::VERSION = '0.0.1';
+}
+BEGIN {
+ $Data::MultiValued::Exceptions::RangeNotFound::DIST = 'Data-MultiValued';
+}{
use Moose;
extends 'Data::MultiValued::Exceptions::NotFound';
@@ -34,7 +58,13 @@ has '+message' => (
default => 'no range found for value ',
);
}
-package Data::MultiValued::Exceptions::BadRange;{
+package Data::MultiValued::Exceptions::BadRange;
+BEGIN {
+ $Data::MultiValued::Exceptions::BadRange::VERSION = '0.0.1';
+}
+BEGIN {
+ $Data::MultiValued::Exceptions::BadRange::DIST = 'Data-MultiValued';
+}{
use Moose;
extends 'Throwable::Error';
@@ -55,3 +85,28 @@ sub as_string {
}
1;
+
+__END__
+=pod
+
+=head1 NAME
+
+Data::MultiValued::Exceptions
+
+=head1 VERSION
+
+version 0.0.1
+
+=head1 AUTHOR
+
+Gianni Ceccarelli <dakkar@thenautilus.net>
+
+=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
+
diff --git a/lib/Data/MultiValued/RangeContainer.pm b/lib/Data/MultiValued/RangeContainer.pm
index 474626f..e4c459f 100644
--- a/lib/Data/MultiValued/RangeContainer.pm
+++ b/lib/Data/MultiValued/RangeContainer.pm
@@ -1,4 +1,10 @@
package Data::MultiValued::RangeContainer;
+BEGIN {
+ $Data::MultiValued::RangeContainer::VERSION = '0.0.1';
+}
+BEGIN {
+ $Data::MultiValued::RangeContainer::DIST = 'Data-MultiValued';
+}
use Moose;
use Moose::Util::TypeConstraints;
use MooseX::Types::Moose qw(Num Str Any Undef ArrayRef);
@@ -190,3 +196,28 @@ sub _splice_slot {
}
1;
+
+__END__
+=pod
+
+=head1 NAME
+
+Data::MultiValued::RangeContainer
+
+=head1 VERSION
+
+version 0.0.1
+
+=head1 AUTHOR
+
+Gianni Ceccarelli <dakkar@thenautilus.net>
+
+=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
+
diff --git a/lib/Data/MultiValued/Ranges.pm b/lib/Data/MultiValued/Ranges.pm
index 9c69626..57bda5d 100644
--- a/lib/Data/MultiValued/Ranges.pm
+++ b/lib/Data/MultiValued/Ranges.pm
@@ -1,4 +1,10 @@
package Data::MultiValued::Ranges;
+BEGIN {
+ $Data::MultiValued::Ranges::VERSION = '0.0.1';
+}
+BEGIN {
+ $Data::MultiValued::Ranges::DIST = 'Data-MultiValued';
+}
use Moose;
use MooseX::Params::Validate;
use Moose::Util::TypeConstraints;
@@ -66,3 +72,28 @@ sub clear {
1;
+
+__END__
+=pod
+
+=head1 NAME
+
+Data::MultiValued::Ranges - Handle values with tags and validity ranges
+
+=head1 VERSION
+
+version 0.0.1
+
+=head1 AUTHOR
+
+Gianni Ceccarelli <dakkar@thenautilus.net>
+
+=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
+
diff --git a/lib/Data/MultiValued/TagContainer.pm b/lib/Data/MultiValued/TagContainer.pm
index cdd0456..a65115b 100644
--- a/lib/Data/MultiValued/TagContainer.pm
+++ b/lib/Data/MultiValued/TagContainer.pm
@@ -1,4 +1,10 @@
package Data::MultiValued::TagContainer;
+BEGIN {
+ $Data::MultiValued::TagContainer::VERSION = '0.0.1';
+}
+BEGIN {
+ $Data::MultiValued::TagContainer::DIST = 'Data-MultiValued';
+}
use Moose;
use Moose::Util::TypeConstraints;
use MooseX::Types::Moose qw(HashRef);
@@ -97,3 +103,28 @@ sub _create_new_inferior {
}
1;
+
+__END__
+=pod
+
+=head1 NAME
+
+Data::MultiValued::TagContainer
+
+=head1 VERSION
+
+version 0.0.1
+
+=head1 AUTHOR
+
+Gianni Ceccarelli <dakkar@thenautilus.net>
+
+=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
+
diff --git a/lib/Data/MultiValued/TagContainerForRanges.pm b/lib/Data/MultiValued/TagContainerForRanges.pm
index d3cd4b9..27af25a 100644
--- a/lib/Data/MultiValued/TagContainerForRanges.pm
+++ b/lib/Data/MultiValued/TagContainerForRanges.pm
@@ -1,4 +1,10 @@
package Data::MultiValued::TagContainerForRanges;
+BEGIN {
+ $Data::MultiValued::TagContainerForRanges::VERSION = '0.0.1';
+}
+BEGIN {
+ $Data::MultiValued::TagContainerForRanges::DIST = 'Data-MultiValued';
+}
use Moose;
use MooseX::Types::Moose qw(HashRef);
use Moose::Util::TypeConstraints;
@@ -36,3 +42,28 @@ sub _as_hash {
}
1;
+
+__END__
+=pod
+
+=head1 NAME
+
+Data::MultiValued::TagContainerForRanges
+
+=head1 VERSION
+
+version 0.0.1
+
+=head1 AUTHOR
+
+Gianni Ceccarelli <dakkar@thenautilus.net>
+
+=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
+
diff --git a/lib/Data/MultiValued/Tags.pm b/lib/Data/MultiValued/Tags.pm
index fbf7948..51f7cdb 100644
--- a/lib/Data/MultiValued/Tags.pm
+++ b/lib/Data/MultiValued/Tags.pm
@@ -1,4 +1,10 @@
package Data::MultiValued::Tags;
+BEGIN {
+ $Data::MultiValued::Tags::VERSION = '0.0.1';
+}
+BEGIN {
+ $Data::MultiValued::Tags::DIST = 'Data-MultiValued';
+}
use Moose;
use MooseX::Params::Validate;
use Moose::Util::TypeConstraints;
@@ -63,3 +69,28 @@ sub clear {
}
1;
+
+__END__
+=pod
+
+=head1 NAME
+
+Data::MultiValued::Tags - Handle values with tags and validity ranges
+
+=head1 VERSION
+
+version 0.0.1
+
+=head1 AUTHOR
+
+Gianni Ceccarelli <dakkar@thenautilus.net>
+
+=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
+
diff --git a/lib/Data/MultiValued/TagsAndRanges.pm b/lib/Data/MultiValued/TagsAndRanges.pm
index 6208435..cc57b16 100644
--- a/lib/Data/MultiValued/TagsAndRanges.pm
+++ b/lib/Data/MultiValued/TagsAndRanges.pm
@@ -1,4 +1,10 @@
package Data::MultiValued::TagsAndRanges;
+BEGIN {
+ $Data::MultiValued::TagsAndRanges::VERSION = '0.0.1';
+}
+BEGIN {
+ $Data::MultiValued::TagsAndRanges::DIST = 'Data-MultiValued';
+}
use Moose;
use MooseX::Params::Validate;
use Moose::Util::TypeConstraints;
@@ -77,3 +83,28 @@ sub clear {
}
1;
+
+__END__
+=pod
+
+=head1 NAME
+
+Data::MultiValued::TagsAndRanges - Handle values with tags and validity ranges
+
+=head1 VERSION
+
+version 0.0.1
+
+=head1 AUTHOR
+
+Gianni Ceccarelli <dakkar@thenautilus.net>
+
+=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
+
diff --git a/lib/Data/MultiValued/UglySerializationHelperRole.pm b/lib/Data/MultiValued/UglySerializationHelperRole.pm
index e586dec..60de111 100644
--- a/lib/Data/MultiValued/UglySerializationHelperRole.pm
+++ b/lib/Data/MultiValued/UglySerializationHelperRole.pm
@@ -1,4 +1,10 @@
package Data::MultiValued::UglySerializationHelperRole;
+BEGIN {
+ $Data::MultiValued::UglySerializationHelperRole::VERSION = '0.0.1';
+}
+BEGIN {
+ $Data::MultiValued::UglySerializationHelperRole::DIST = 'Data-MultiValued';
+}
use Moose::Role;
sub new_in_place {
@@ -33,3 +39,28 @@ sub as_hash {
}
1;
+
+__END__
+=pod
+
+=head1 NAME
+
+Data::MultiValued::UglySerializationHelperRole
+
+=head1 VERSION
+
+version 0.0.1
+
+=head1 AUTHOR
+
+Gianni Ceccarelli <dakkar@thenautilus.net>
+
+=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
+
generated by cgit v1.2.3 (git 2.46.0) at 2025-05-03 14:57:18 +0000