diff options
author | Gianni Ceccarelli <dakkar@thenautilus.net> | 2011-11-09 16:26:40 +0000 |
---|---|---|
committer | Gianni Ceccarelli <dakkar@thenautilus.net> | 2011-11-09 16:26:40 +0000 |
commit | a3ac2afbd2800df8eda1295ebb5cf4fb83df2c2b (patch) | |
tree | 8992cadbec9a3c777eaf69145ae4243e45cf9f20 | |
parent | prepare for renaming/split (diff) | |
download | data-multivalued-a3ac2afbd2800df8eda1295ebb5cf4fb83df2c2b.tar.gz data-multivalued-a3ac2afbd2800df8eda1295ebb5cf4fb83df2c2b.tar.bz2 data-multivalued-a3ac2afbd2800df8eda1295ebb5cf4fb83df2c2b.zip |
renaming
-rw-r--r-- | Data-MultiValued/.gitignore (renamed from Data-TagsAndRanges/.gitignore) | 0 | ||||
-rw-r--r-- | Data-MultiValued/dist.ini (renamed from Data-TagsAndRanges/dist.ini) | 4 | ||||
-rw-r--r-- | Data-MultiValued/lib/Data/MultiValued.pm (renamed from Data-TagsAndRanges/lib/Data/TagsAndRanges.pm) | 10 | ||||
-rw-r--r-- | Data-MultiValued/lib/Data/MultiValued/Exceptions.pm (renamed from Data-TagsAndRanges/lib/Data/TagsAndRanges/Exceptions.pm) | 14 | ||||
-rw-r--r-- | Data-MultiValued/lib/Data/MultiValued/RangeContainer.pm (renamed from Data-TagsAndRanges/lib/Data/TagsAndRanges/RangeContainer.pm) | 8 | ||||
-rw-r--r-- | Data-MultiValued/lib/Data/MultiValued/TagContainer.pm (renamed from Data-TagsAndRanges/lib/Data/TagsAndRanges/TagContainer.pm) | 8 | ||||
-rw-r--r-- | Data-MultiValued/lib/Data/MultiValued/TagContainerForRanges.pm | 21 | ||||
-rw-r--r-- | Data-MultiValued/t/more-overlapping-ranges.t (renamed from Data-TagsAndRanges/t/more-overlapping-ranges.t) | 4 | ||||
-rw-r--r-- | Data-MultiValued/t/overlapping-ranges.t (renamed from Data-TagsAndRanges/t/overlapping-ranges.t) | 4 | ||||
-rw-r--r-- | Data-MultiValued/t/ranges-setting.t (renamed from Data-TagsAndRanges/t/ranges-setting.t) | 4 | ||||
-rw-r--r-- | Data-MultiValued/t/simple-setting.t (renamed from Data-TagsAndRanges/t/simple-setting.t) | 4 | ||||
-rw-r--r-- | Data-MultiValued/t/tags-ranges-setting.t (renamed from Data-TagsAndRanges/t/tags-ranges-setting.t) | 4 | ||||
-rw-r--r-- | Data-MultiValued/t/tags-setting.t (renamed from Data-TagsAndRanges/t/tags-setting.t) | 4 | ||||
-rw-r--r-- | Data-TagsAndRanges/lib/Data/TagsAndRanges/TagContainerForRanges.pm | 21 |
14 files changed, 55 insertions, 55 deletions
diff --git a/Data-TagsAndRanges/.gitignore b/Data-MultiValued/.gitignore index a916a46..a916a46 100644 --- a/Data-TagsAndRanges/.gitignore +++ b/Data-MultiValued/.gitignore diff --git a/Data-TagsAndRanges/dist.ini b/Data-MultiValued/dist.ini index b69e340..d9411c9 100644 --- a/Data-TagsAndRanges/dist.ini +++ b/Data-MultiValued/dist.ini @@ -1,4 +1,4 @@ -name = Data-TagsAndRanges +name = Data-MultiValued author = Gianni Ceccarelli <dakkar@thenautilus.net> license = Perl_5 copyright_holder = Net-a-porter.com @@ -66,4 +66,4 @@ directory = t/lib [TestRelease] ;[ConfirmRelease] -;[UploadToCPAN]
\ No newline at end of file +;[UploadToCPAN] diff --git a/Data-TagsAndRanges/lib/Data/TagsAndRanges.pm b/Data-MultiValued/lib/Data/MultiValued.pm index 8a94b8f..65b041d 100644 --- a/Data-TagsAndRanges/lib/Data/TagsAndRanges.pm +++ b/Data-MultiValued/lib/Data/MultiValued.pm @@ -1,22 +1,22 @@ -package Data::TagsAndRanges; +package Data::MultiValued; use Moose; use MooseX::Params::Validate; use Moose::Util::TypeConstraints; use MooseX::Types::Moose qw(Num Str Undef Any); -use Data::TagsAndRanges::Exceptions; -use Data::TagsAndRanges::TagContainerForRanges; +use Data::MultiValued::Exceptions; +use Data::MultiValued::TagContainerForRanges; # ABSTRACT: Handle values with tags and validity ranges has _storage => ( is => 'rw', - isa => class_type('Data::TagsAndRanges::TagContainerForRanges'), + isa => class_type('Data::MultiValued::TagContainerForRanges'), init_arg => undef, lazy_build => 1, ); sub _build__storage { - Data::TagsAndRanges::TagContainerForRanges->new(); + Data::MultiValued::TagContainerForRanges->new(); } sub set { diff --git a/Data-TagsAndRanges/lib/Data/TagsAndRanges/Exceptions.pm b/Data-MultiValued/lib/Data/MultiValued/Exceptions.pm index def6108..571db0a 100644 --- a/Data-TagsAndRanges/lib/Data/TagsAndRanges/Exceptions.pm +++ b/Data-MultiValued/lib/Data/MultiValued/Exceptions.pm @@ -1,5 +1,5 @@ -package Data::TagsAndRanges::Exceptions; -package Data::TagsAndRanges::Exceptions::NotFound;{ +package Data::MultiValued::Exceptions; +package Data::MultiValued::Exceptions::NotFound;{ use Moose; extends 'Throwable::Error'; @@ -18,23 +18,23 @@ sub as_string { } } -package Data::TagsAndRanges::Exceptions::TagNotFound;{ +package Data::MultiValued::Exceptions::TagNotFound;{ use Moose; -extends 'Data::TagsAndRanges::Exceptions::NotFound'; +extends 'Data::MultiValued::Exceptions::NotFound'; has '+message' => ( default => 'tag not found: ', ); } -package Data::TagsAndRanges::Exceptions::RangeNotFound;{ +package Data::MultiValued::Exceptions::RangeNotFound;{ use Moose; -extends 'Data::TagsAndRanges::Exceptions::NotFound'; +extends 'Data::MultiValued::Exceptions::NotFound'; has '+message' => ( default => 'no range found for value ', ); } -package Data::TagsAndRanges::Exceptions::BadRange;{ +package Data::MultiValued::Exceptions::BadRange;{ use Moose; extends 'Throwable::Error'; diff --git a/Data-TagsAndRanges/lib/Data/TagsAndRanges/RangeContainer.pm b/Data-MultiValued/lib/Data/MultiValued/RangeContainer.pm index e93805e..5c4fb3a 100644 --- a/Data-TagsAndRanges/lib/Data/TagsAndRanges/RangeContainer.pm +++ b/Data-MultiValued/lib/Data/MultiValued/RangeContainer.pm @@ -1,9 +1,9 @@ -package Data::TagsAndRanges::RangeContainer; +package Data::MultiValued::RangeContainer; use Moose; use Moose::Util::TypeConstraints; use MooseX::Types::Moose qw(Num Str Any Undef ArrayRef); use MooseX::Types::Structured qw(Dict); -use Data::TagsAndRanges::Exceptions; +use Data::MultiValued::Exceptions; has _storage => ( is => 'rw', @@ -26,7 +26,7 @@ sub get { my ($range) = $self->_get_slot_at($at); if (!$range) { - Data::TagsAndRanges::Exceptions::RangeNotFound->throw({ + Data::MultiValued::Exceptions::RangeNotFound->throw({ value => $at, }); } @@ -75,7 +75,7 @@ sub set_or_create { my $from = $args->{from} // 0-'inf'; my $to = $args->{to} // 0+'inf'; - Data::TagsAndRanges::Exceptions::BadRange->({ + Data::MultiValued::Exceptions::BadRange->({ from => $from, to => $to, }) if $from > $to; diff --git a/Data-TagsAndRanges/lib/Data/TagsAndRanges/TagContainer.pm b/Data-MultiValued/lib/Data/MultiValued/TagContainer.pm index 8ede59f..e0c7f4f 100644 --- a/Data-TagsAndRanges/lib/Data/TagsAndRanges/TagContainer.pm +++ b/Data-MultiValued/lib/Data/MultiValued/TagContainer.pm @@ -1,8 +1,8 @@ -package Data::TagsAndRanges::TagContainer; +package Data::MultiValued::TagContainer; use Moose; use Moose::Util::TypeConstraints; use MooseX::Types::Moose qw(HashRef); -use Data::TagsAndRanges::Exceptions; +use Data::MultiValued::Exceptions; has _storage => ( is => 'rw', @@ -33,13 +33,13 @@ sub get { return $self->_default_tag; } - Data::TagsAndRanges::Exceptions::TagNotFound->throw({ + Data::MultiValued::Exceptions::TagNotFound->throw({ value => $tag, }); } if (!$self->_has_tag($tag)) { - Data::TagsAndRanges::Exceptions::TagNotFound->throw({ + Data::MultiValued::Exceptions::TagNotFound->throw({ value => $tag, }); } diff --git a/Data-MultiValued/lib/Data/MultiValued/TagContainerForRanges.pm b/Data-MultiValued/lib/Data/MultiValued/TagContainerForRanges.pm new file mode 100644 index 0000000..71fd7f9 --- /dev/null +++ b/Data-MultiValued/lib/Data/MultiValued/TagContainerForRanges.pm @@ -0,0 +1,21 @@ +package Data::MultiValued::TagContainerForRanges; +use Moose; +use MooseX::Types::Moose qw(HashRef); +use Moose::Util::TypeConstraints; +use Data::MultiValued::RangeContainer; + +extends 'Data::MultiValued::TagContainer'; + +has '+_storage' => ( + isa => HashRef[class_type('Data::MultiValued::RangeContainer')], +); + +has '+_default_tag' => ( + isa => class_type('Data::MultiValued::RangeContainer'), +); + +sub _create_new_inferior { + Data::MultiValued::RangeContainer->new(); +} + +1; diff --git a/Data-TagsAndRanges/t/more-overlapping-ranges.t b/Data-MultiValued/t/more-overlapping-ranges.t index 899127f..9ff1dc2 100644 --- a/Data-TagsAndRanges/t/more-overlapping-ranges.t +++ b/Data-MultiValued/t/more-overlapping-ranges.t @@ -3,9 +3,9 @@ use strict; use warnings; use Test::Most 'die'; use Data::Printer; -use Data::TagsAndRanges; +use Data::MultiValued; -my $obj = Data::TagsAndRanges->new(); +my $obj = Data::MultiValued->new(); ok($obj,'constructor works'); $obj->set({ diff --git a/Data-TagsAndRanges/t/overlapping-ranges.t b/Data-MultiValued/t/overlapping-ranges.t index 55355ef..e359894 100644 --- a/Data-TagsAndRanges/t/overlapping-ranges.t +++ b/Data-MultiValued/t/overlapping-ranges.t @@ -3,9 +3,9 @@ use strict; use warnings; use Test::Most 'die'; use Data::Printer; -use Data::TagsAndRanges; +use Data::MultiValued; -my $obj = Data::TagsAndRanges->new(); +my $obj = Data::MultiValued->new(); ok($obj,'constructor works'); $obj->set({ diff --git a/Data-TagsAndRanges/t/ranges-setting.t b/Data-MultiValued/t/ranges-setting.t index 1b92000..148a4c6 100644 --- a/Data-TagsAndRanges/t/ranges-setting.t +++ b/Data-MultiValued/t/ranges-setting.t @@ -3,9 +3,9 @@ use strict; use warnings; use Test::Most 'die'; use Data::Printer; -use Data::TagsAndRanges; +use Data::MultiValued; -my $obj = Data::TagsAndRanges->new(); +my $obj = Data::MultiValued->new(); ok($obj,'constructor works'); lives_ok { diff --git a/Data-TagsAndRanges/t/simple-setting.t b/Data-MultiValued/t/simple-setting.t index 594e7d7..b478e7a 100644 --- a/Data-TagsAndRanges/t/simple-setting.t +++ b/Data-MultiValued/t/simple-setting.t @@ -3,9 +3,9 @@ use strict; use warnings; use Test::Most 'die'; use Data::Printer; -use Data::TagsAndRanges; +use Data::MultiValued; -my $obj = Data::TagsAndRanges->new(); +my $obj = Data::MultiValued->new(); ok($obj,'constructor works'); lives_ok { diff --git a/Data-TagsAndRanges/t/tags-ranges-setting.t b/Data-MultiValued/t/tags-ranges-setting.t index ec9f837..7214ebe 100644 --- a/Data-TagsAndRanges/t/tags-ranges-setting.t +++ b/Data-MultiValued/t/tags-ranges-setting.t @@ -3,9 +3,9 @@ use strict; use warnings; use Test::Most 'die'; use Data::Printer; -use Data::TagsAndRanges; +use Data::MultiValued; -my $obj = Data::TagsAndRanges->new(); +my $obj = Data::MultiValued->new(); ok($obj,'constructor works'); my @tags = (undef,'tag1','tag2'); diff --git a/Data-TagsAndRanges/t/tags-setting.t b/Data-MultiValued/t/tags-setting.t index 9b4a697..d9f6fd8 100644 --- a/Data-TagsAndRanges/t/tags-setting.t +++ b/Data-MultiValued/t/tags-setting.t @@ -3,9 +3,9 @@ use strict; use warnings; use Test::Most 'die'; use Data::Printer; -use Data::TagsAndRanges; +use Data::MultiValued; -my $obj = Data::TagsAndRanges->new(); +my $obj = Data::MultiValued->new(); ok($obj,'constructor works'); lives_ok { diff --git a/Data-TagsAndRanges/lib/Data/TagsAndRanges/TagContainerForRanges.pm b/Data-TagsAndRanges/lib/Data/TagsAndRanges/TagContainerForRanges.pm deleted file mode 100644 index 3c1b44a..0000000 --- a/Data-TagsAndRanges/lib/Data/TagsAndRanges/TagContainerForRanges.pm +++ /dev/null @@ -1,21 +0,0 @@ -package Data::TagsAndRanges::TagContainerForRanges; -use Moose; -use MooseX::Types::Moose qw(HashRef); -use Moose::Util::TypeConstraints; -use Data::TagsAndRanges::RangeContainer; - -extends 'Data::TagsAndRanges::TagContainer'; - -has '+_storage' => ( - isa => HashRef[class_type('Data::TagsAndRanges::RangeContainer')], -); - -has '+_default_tag' => ( - isa => class_type('Data::TagsAndRanges::RangeContainer'), -); - -sub _create_new_inferior { - Data::TagsAndRanges::RangeContainer->new(); -} - -1; |