summaryrefslogtreecommitdiff
path: root/lib/Data/MultiValued/TagContainerForRanges.pm
diff options
context:
space:
mode:
Diffstat (limited to 'lib/Data/MultiValued/TagContainerForRanges.pm')
-rw-r--r--lib/Data/MultiValued/TagContainerForRanges.pm95
1 files changed, 62 insertions, 33 deletions
diff --git a/lib/Data/MultiValued/TagContainerForRanges.pm b/lib/Data/MultiValued/TagContainerForRanges.pm
index 826df9d..115276b 100644
--- a/lib/Data/MultiValued/TagContainerForRanges.pm
+++ b/lib/Data/MultiValued/TagContainerForRanges.pm
@@ -1,4 +1,10 @@
package Data::MultiValued::TagContainerForRanges;
+{
+ $Data::MultiValued::TagContainerForRanges::VERSION = '0.0.1_3';
+}
+{
+ $Data::MultiValued::TagContainerForRanges::DIST = 'Data-MultiValued';
+}
use Moose;
use MooseX::Types::Moose qw(HashRef);
use Moose::Util::TypeConstraints;
@@ -6,18 +12,6 @@ use Data::MultiValued::RangeContainer;
# ABSTRACT: container for tagged values that are ranged containers
-=head1 DESCRIPTION
-
-Please don't use this module directly, use
-L<Data::MultiValued::TagsAndRanges>.
-
-This module is a subclass of L<Data::MultiValued::TagContainer>, which
-only allows instances of L<Data::MultiValued::RangeContainer> as
-"storage cells".
-
-=head1 METHODS
-
-=cut
extends 'Data::MultiValued::TagContainer';
@@ -29,26 +23,11 @@ has '+_default_tag' => (
isa => class_type('Data::MultiValued::RangeContainer'),
);
-=head2 C<_create_new_inferior>
-
-Returns a new L<Data::MultiValued::RangeContainer> instance.
-
-=cut
sub _create_new_inferior {
Data::MultiValued::RangeContainer->new();
}
-=head1 Serialisation helpers
-
-These are used through
-L<Data::MultiValued::UglySerializationHelperRole>.
-
-=head2 C<_rebless_storage>
-
-Blesses the "storage cells" into L<Data::MultiValued::RangeContainer>.
-
-=cut
sub _rebless_storage {
my ($self) = @_;
@@ -58,12 +37,6 @@ sub _rebless_storage {
return;
}
-=head2 C<_as_hash>
-
-Returns the internal representation with no blessed hashes, with as
-few copies as possible.
-
-=cut
sub _as_hash {
my ($self) = @_;
@@ -80,3 +53,59 @@ sub _as_hash {
}
1;
+
+__END__
+=pod
+
+=encoding utf-8
+
+=head1 NAME
+
+Data::MultiValued::TagContainerForRanges - container for tagged values that are ranged containers
+
+=head1 VERSION
+
+version 0.0.1_3
+
+=head1 DESCRIPTION
+
+Please don't use this module directly, use
+L<Data::MultiValued::TagsAndRanges>.
+
+This module is a subclass of L<Data::MultiValued::TagContainer>, which
+only allows instances of L<Data::MultiValued::RangeContainer> as
+"storage cells".
+
+=head1 METHODS
+
+=head2 C<_create_new_inferior>
+
+Returns a new L<Data::MultiValued::RangeContainer> instance.
+
+=head1 Serialisation helpers
+
+These are used through
+L<Data::MultiValued::UglySerializationHelperRole>.
+
+=head2 C<_rebless_storage>
+
+Blesses the "storage cells" into L<Data::MultiValued::RangeContainer>.
+
+=head2 C<_as_hash>
+
+Returns the internal representation with no blessed hashes, with as
+few copies as possible.
+
+=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
+