diff options
author | Gianni Ceccarelli <gianni.ceccarelli@net-a-porter.com> | 2011-12-20 10:00:16 +0000 |
---|---|---|
committer | Gianni Ceccarelli <gianni.ceccarelli@net-a-porter.com> | 2011-12-20 10:00:16 +0000 |
commit | de45e3579f74f3edc03c77cc3c8d0084be6aa9ae (patch) | |
tree | 813d34a7f91c1e511a98af2465c6eccc8d3865a2 /lib/Data | |
parent | Build results of 12ab14c (on master) (diff) | |
parent | lighter exception classes (diff) | |
download | data-multivalued-de45e3579f74f3edc03c77cc3c8d0084be6aa9ae.tar.gz data-multivalued-de45e3579f74f3edc03c77cc3c8d0084be6aa9ae.tar.bz2 data-multivalued-de45e3579f74f3edc03c77cc3c8d0084be6aa9ae.zip |
Build results of f39fe87 (on master)
Diffstat (limited to 'lib/Data')
-rw-r--r-- | lib/Data/MultiValued.pm | 4 | ||||
-rw-r--r-- | lib/Data/MultiValued/AttributeAccessors.pm | 4 | ||||
-rw-r--r-- | lib/Data/MultiValued/AttributeTrait.pm | 5 | ||||
-rw-r--r-- | lib/Data/MultiValued/AttributeTrait/Ranges.pm | 7 | ||||
-rw-r--r-- | lib/Data/MultiValued/AttributeTrait/Tags.pm | 7 | ||||
-rw-r--r-- | lib/Data/MultiValued/AttributeTrait/TagsAndRanges.pm | 7 | ||||
-rw-r--r-- | lib/Data/MultiValued/Exceptions.pm | 40 | ||||
-rw-r--r-- | lib/Data/MultiValued/RangeContainer.pm | 7 | ||||
-rw-r--r-- | lib/Data/MultiValued/Ranges.pm | 7 | ||||
-rw-r--r-- | lib/Data/MultiValued/TagContainer.pm | 7 | ||||
-rw-r--r-- | lib/Data/MultiValued/TagContainerForRanges.pm | 7 | ||||
-rw-r--r-- | lib/Data/MultiValued/Tags.pm | 7 | ||||
-rw-r--r-- | lib/Data/MultiValued/TagsAndRanges.pm | 7 | ||||
-rw-r--r-- | lib/Data/MultiValued/UglySerializationHelperRole.pm | 5 |
14 files changed, 72 insertions, 49 deletions
diff --git a/lib/Data/MultiValued.pm b/lib/Data/MultiValued.pm index c1f1681..fa59f65 100644 --- a/lib/Data/MultiValued.pm +++ b/lib/Data/MultiValued.pm @@ -1,6 +1,6 @@ package Data::MultiValued; { - $Data::MultiValued::VERSION = '0.0.1_3'; + $Data::MultiValued::VERSION = '0.0.1_4'; } { $Data::MultiValued::DIST = 'Data-MultiValued'; @@ -25,7 +25,7 @@ Data::MultiValued - store tag- and range-dependant data in a scalar or Moose att =head1 VERSION -version 0.0.1_3 +version 0.0.1_4 =head1 SYNOPSIS diff --git a/lib/Data/MultiValued/AttributeAccessors.pm b/lib/Data/MultiValued/AttributeAccessors.pm index 63e9281..71f86b6 100644 --- a/lib/Data/MultiValued/AttributeAccessors.pm +++ b/lib/Data/MultiValued/AttributeAccessors.pm @@ -1,6 +1,6 @@ package Data::MultiValued::AttributeAccessors; { - $Data::MultiValued::AttributeAccessors::VERSION = '0.0.1_3'; + $Data::MultiValued::AttributeAccessors::VERSION = '0.0.1_4'; } { $Data::MultiValued::AttributeAccessors::DIST = 'Data-MultiValued'; @@ -130,7 +130,7 @@ Data::MultiValued::AttributeAccessors - method meta-class for multi-valued attri =head1 VERSION -version 0.0.1_3 +version 0.0.1_4 =head1 DESCRIPTION diff --git a/lib/Data/MultiValued/AttributeTrait.pm b/lib/Data/MultiValued/AttributeTrait.pm index fb92de8..d5fddf8 100644 --- a/lib/Data/MultiValued/AttributeTrait.pm +++ b/lib/Data/MultiValued/AttributeTrait.pm @@ -1,11 +1,12 @@ package Data::MultiValued::AttributeTrait; { - $Data::MultiValued::AttributeTrait::VERSION = '0.0.1_3'; + $Data::MultiValued::AttributeTrait::VERSION = '0.0.1_4'; } { $Data::MultiValued::AttributeTrait::DIST = 'Data-MultiValued'; } use Moose::Role; +use namespace::autoclean; use Data::MultiValued::AttributeAccessors; use MooseX::Types::Moose qw(Str); use Try::Tiny; @@ -287,7 +288,7 @@ Data::MultiValued::AttributeTrait - "base role" for traits of multi-valued Moose =head1 VERSION -version 0.0.1_3 +version 0.0.1_4 =head1 DESCRIPTION diff --git a/lib/Data/MultiValued/AttributeTrait/Ranges.pm b/lib/Data/MultiValued/AttributeTrait/Ranges.pm index 59d973c..56e0e72 100644 --- a/lib/Data/MultiValued/AttributeTrait/Ranges.pm +++ b/lib/Data/MultiValued/AttributeTrait/Ranges.pm @@ -1,11 +1,12 @@ package Data::MultiValued::AttributeTrait::Ranges; { - $Data::MultiValued::AttributeTrait::Ranges::VERSION = '0.0.1_3'; + $Data::MultiValued::AttributeTrait::Ranges::VERSION = '0.0.1_4'; } { $Data::MultiValued::AttributeTrait::Ranges::DIST = 'Data-MultiValued'; } use Moose::Role; +use namespace::autoclean; use Data::MultiValued::Ranges; with 'Data::MultiValued::AttributeTrait'; @@ -18,7 +19,7 @@ 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_3'; + $Moose::Meta::Attribute::Custom::Trait::MultiValued::Ranges::VERSION = '0.0.1_4'; } { $Moose::Meta::Attribute::Custom::Trait::MultiValued::Ranges::DIST = 'Data-MultiValued'; @@ -39,7 +40,7 @@ Data::MultiValued::AttributeTrait::Ranges - attribute traits for attributes hold =head1 VERSION -version 0.0.1_3 +version 0.0.1_4 =head1 SYNOPSIS diff --git a/lib/Data/MultiValued/AttributeTrait/Tags.pm b/lib/Data/MultiValued/AttributeTrait/Tags.pm index d3124e2..f4f7405 100644 --- a/lib/Data/MultiValued/AttributeTrait/Tags.pm +++ b/lib/Data/MultiValued/AttributeTrait/Tags.pm @@ -1,11 +1,12 @@ package Data::MultiValued::AttributeTrait::Tags; { - $Data::MultiValued::AttributeTrait::Tags::VERSION = '0.0.1_3'; + $Data::MultiValued::AttributeTrait::Tags::VERSION = '0.0.1_4'; } { $Data::MultiValued::AttributeTrait::Tags::DIST = 'Data-MultiValued'; } use Moose::Role; +use namespace::autoclean; use Data::MultiValued::Tags; with 'Data::MultiValued::AttributeTrait'; @@ -18,7 +19,7 @@ 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_3'; + $Moose::Meta::Attribute::Custom::Trait::MultiValued::Tags::VERSION = '0.0.1_4'; } { $Moose::Meta::Attribute::Custom::Trait::MultiValued::Tags::DIST = 'Data-MultiValued'; @@ -39,7 +40,7 @@ Data::MultiValued::AttributeTrait::Tags - attribute traits for attributes holdin =head1 VERSION -version 0.0.1_3 +version 0.0.1_4 =head1 SYNOPSIS diff --git a/lib/Data/MultiValued/AttributeTrait/TagsAndRanges.pm b/lib/Data/MultiValued/AttributeTrait/TagsAndRanges.pm index 7bf362f..36441d6 100644 --- a/lib/Data/MultiValued/AttributeTrait/TagsAndRanges.pm +++ b/lib/Data/MultiValued/AttributeTrait/TagsAndRanges.pm @@ -1,11 +1,12 @@ package Data::MultiValued::AttributeTrait::TagsAndRanges; { - $Data::MultiValued::AttributeTrait::TagsAndRanges::VERSION = '0.0.1_3'; + $Data::MultiValued::AttributeTrait::TagsAndRanges::VERSION = '0.0.1_4'; } { $Data::MultiValued::AttributeTrait::TagsAndRanges::DIST = 'Data-MultiValued'; } use Moose::Role; +use namespace::autoclean; use Data::MultiValued::TagsAndRanges; with 'Data::MultiValued::AttributeTrait'; @@ -18,7 +19,7 @@ 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_3'; + $Moose::Meta::Attribute::Custom::Trait::MultiValued::TagsAndRanges::VERSION = '0.0.1_4'; } { $Moose::Meta::Attribute::Custom::Trait::MultiValued::TagsAndRanges::DIST = 'Data-MultiValued'; @@ -39,7 +40,7 @@ Data::MultiValued::AttributeTrait::TagsAndRanges - attribute traits for attribut =head1 VERSION -version 0.0.1_3 +version 0.0.1_4 =head1 SYNOPSIS diff --git a/lib/Data/MultiValued/Exceptions.pm b/lib/Data/MultiValued/Exceptions.pm index c908388..141ff63 100644 --- a/lib/Data/MultiValued/Exceptions.pm +++ b/lib/Data/MultiValued/Exceptions.pm @@ -1,6 +1,6 @@ package Data::MultiValued::Exceptions; { - $Data::MultiValued::Exceptions::VERSION = '0.0.1_3'; + $Data::MultiValued::Exceptions::VERSION = '0.0.1_4'; } { $Data::MultiValued::Exceptions::DIST = 'Data-MultiValued'; @@ -11,13 +11,21 @@ package Data::MultiValued::Exceptions; package Data::MultiValued::Exceptions::NotFound; { - $Data::MultiValued::Exceptions::NotFound::VERSION = '0.0.1_3'; + $Data::MultiValued::Exceptions::NotFound::VERSION = '0.0.1_4'; } { $Data::MultiValued::Exceptions::NotFound::DIST = 'Data-MultiValued'; }{ use Moose; -extends 'Throwable::Error'; +with 'Throwable'; +use overload + q{""} => 'as_string', + fallback => 1; + +has message => ( + is => 'ro', + required => 1, +); has value => ( is => 'ro', @@ -28,7 +36,6 @@ sub as_string { my ($self) = @_; my $str = $self->message . ($self->value // '<undef>'); - $str .= "\n\n" . $self->stack_trace->as_string; return $str; } @@ -37,7 +44,7 @@ sub as_string { package Data::MultiValued::Exceptions::TagNotFound; { - $Data::MultiValued::Exceptions::TagNotFound::VERSION = '0.0.1_3'; + $Data::MultiValued::Exceptions::TagNotFound::VERSION = '0.0.1_4'; } { $Data::MultiValued::Exceptions::TagNotFound::DIST = 'Data-MultiValued'; @@ -53,7 +60,7 @@ has '+message' => ( package Data::MultiValued::Exceptions::RangeNotFound; { - $Data::MultiValued::Exceptions::RangeNotFound::VERSION = '0.0.1_3'; + $Data::MultiValued::Exceptions::RangeNotFound::VERSION = '0.0.1_4'; } { $Data::MultiValued::Exceptions::RangeNotFound::DIST = 'Data-MultiValued'; @@ -69,24 +76,23 @@ has '+message' => ( package Data::MultiValued::Exceptions::BadRange; { - $Data::MultiValued::Exceptions::BadRange::VERSION = '0.0.1_3'; + $Data::MultiValued::Exceptions::BadRange::VERSION = '0.0.1_4'; } { $Data::MultiValued::Exceptions::BadRange::DIST = 'Data-MultiValued'; }{ use Moose; -extends 'Throwable::Error'; +with 'Throwable'; +use overload + q{""} => 'as_string', + fallback => 1; has ['from','to'] => ( is => 'ro', required => 1 ); -has '+message' => ( - default => 'invalid range: ', -); sub as_string { my ($self) = @_; - my $str = $self->message . $self->from . ', ' . $self->to; - $str .= "\n\n" . $self->stack_trace->as_string; + my $str = 'invalid range: ' . $self->from . ', ' . $self->to; return $str; } @@ -106,7 +112,7 @@ Data::MultiValued::Exceptions - exception classes =head1 VERSION -version 0.0.1_3 +version 0.0.1_4 =head1 DESCRIPTION @@ -127,8 +133,6 @@ tags. Stringifies to: tag not found: $value - $stack_trace - =head2 C<Data::MultiValued::Exceptions::RangeNotFound> Subclass of L</Data::MultiValued::Exceptions::NotFound>, for @@ -136,8 +140,6 @@ ranges. Stringifies to: no range found for value: $value - $stack_trace - =head2 C<Data::MultiValued::Exceptions::BadRange> Thrown when an invalid range is supplied to a method. An invalid range @@ -147,8 +149,6 @@ Stringifies to: invalid range: $from, $to - $stack_trace - =head1 AUTHOR Gianni Ceccarelli <dakkar@thenautilus.net> diff --git a/lib/Data/MultiValued/RangeContainer.pm b/lib/Data/MultiValued/RangeContainer.pm index 96ce9d9..0f1a5b9 100644 --- a/lib/Data/MultiValued/RangeContainer.pm +++ b/lib/Data/MultiValued/RangeContainer.pm @@ -1,11 +1,12 @@ package Data::MultiValued::RangeContainer; { - $Data::MultiValued::RangeContainer::VERSION = '0.0.1_3'; + $Data::MultiValued::RangeContainer::VERSION = '0.0.1_4'; } { $Data::MultiValued::RangeContainer::DIST = 'Data-MultiValued'; } use Moose; +use namespace::autoclean; use Moose::Util::TypeConstraints; use MooseX::Types::Moose qw(Num Str Any Undef ArrayRef); use MooseX::Types::Structured qw(Dict); @@ -232,6 +233,8 @@ sub all_ranges { return map { [ $_->{from}, $_->{to} ] } @{$self->_storage}; } +__PACKAGE__->meta->make_immutable(); + 1; __END__ @@ -245,7 +248,7 @@ Data::MultiValued::RangeContainer - container for ranged values =head1 VERSION -version 0.0.1_3 +version 0.0.1_4 =head1 DESCRIPTION diff --git a/lib/Data/MultiValued/Ranges.pm b/lib/Data/MultiValued/Ranges.pm index db863a5..e7ada6c 100644 --- a/lib/Data/MultiValued/Ranges.pm +++ b/lib/Data/MultiValued/Ranges.pm @@ -1,11 +1,12 @@ package Data::MultiValued::Ranges; { - $Data::MultiValued::Ranges::VERSION = '0.0.1_3'; + $Data::MultiValued::Ranges::VERSION = '0.0.1_4'; } { $Data::MultiValued::Ranges::DIST = 'Data-MultiValued'; } use Moose; +use namespace::autoclean; use MooseX::Params::Validate; use Moose::Util::TypeConstraints; use MooseX::Types::Moose qw(Num Str Undef Any); @@ -78,6 +79,8 @@ sub _as_hash { } +__PACKAGE__->meta->make_immutable(); + 1; __END__ @@ -91,7 +94,7 @@ Data::MultiValued::Ranges - Handle values with validity ranges =head1 VERSION -version 0.0.1_3 +version 0.0.1_4 =head1 SYNOPSIS diff --git a/lib/Data/MultiValued/TagContainer.pm b/lib/Data/MultiValued/TagContainer.pm index 4ba40df..3b8ebfd 100644 --- a/lib/Data/MultiValued/TagContainer.pm +++ b/lib/Data/MultiValued/TagContainer.pm @@ -1,11 +1,12 @@ package Data::MultiValued::TagContainer; { - $Data::MultiValued::TagContainer::VERSION = '0.0.1_3'; + $Data::MultiValued::TagContainer::VERSION = '0.0.1_4'; } { $Data::MultiValued::TagContainer::DIST = 'Data-MultiValued'; } use Moose; +use namespace::autoclean; use Moose::Util::TypeConstraints; use MooseX::Types::Moose qw(HashRef); use Data::MultiValued::Exceptions; @@ -110,6 +111,8 @@ sub _create_new_inferior { return {}; } +__PACKAGE__->meta->make_immutable(); + 1; __END__ @@ -123,7 +126,7 @@ Data::MultiValued::TagContainer - container for tagged values =head1 VERSION -version 0.0.1_3 +version 0.0.1_4 =head1 DESCRIPTION diff --git a/lib/Data/MultiValued/TagContainerForRanges.pm b/lib/Data/MultiValued/TagContainerForRanges.pm index 115276b..778cd3b 100644 --- a/lib/Data/MultiValued/TagContainerForRanges.pm +++ b/lib/Data/MultiValued/TagContainerForRanges.pm @@ -1,11 +1,12 @@ package Data::MultiValued::TagContainerForRanges; { - $Data::MultiValued::TagContainerForRanges::VERSION = '0.0.1_3'; + $Data::MultiValued::TagContainerForRanges::VERSION = '0.0.1_4'; } { $Data::MultiValued::TagContainerForRanges::DIST = 'Data-MultiValued'; } use Moose; +use namespace::autoclean; use MooseX::Types::Moose qw(HashRef); use Moose::Util::TypeConstraints; use Data::MultiValued::RangeContainer; @@ -52,6 +53,8 @@ sub _as_hash { }; } +__PACKAGE__->meta->make_immutable(); + 1; __END__ @@ -65,7 +68,7 @@ Data::MultiValued::TagContainerForRanges - container for tagged values that are =head1 VERSION -version 0.0.1_3 +version 0.0.1_4 =head1 DESCRIPTION diff --git a/lib/Data/MultiValued/Tags.pm b/lib/Data/MultiValued/Tags.pm index ccf6e52..d3cd639 100644 --- a/lib/Data/MultiValued/Tags.pm +++ b/lib/Data/MultiValued/Tags.pm @@ -1,11 +1,12 @@ package Data::MultiValued::Tags; { - $Data::MultiValued::Tags::VERSION = '0.0.1_3'; + $Data::MultiValued::Tags::VERSION = '0.0.1_4'; } { $Data::MultiValued::Tags::DIST = 'Data-MultiValued'; } use Moose; +use namespace::autoclean; use MooseX::Params::Validate; use Moose::Util::TypeConstraints; use MooseX::Types::Moose qw(Num Str Undef Any); @@ -75,6 +76,8 @@ sub _as_hash { } +__PACKAGE__->meta->make_immutable(); + 1; __END__ @@ -88,7 +91,7 @@ Data::MultiValued::Tags - Handle values with tags =head1 VERSION -version 0.0.1_3 +version 0.0.1_4 =head1 SYNOPSIS diff --git a/lib/Data/MultiValued/TagsAndRanges.pm b/lib/Data/MultiValued/TagsAndRanges.pm index fd1461e..64cc49d 100644 --- a/lib/Data/MultiValued/TagsAndRanges.pm +++ b/lib/Data/MultiValued/TagsAndRanges.pm @@ -1,11 +1,12 @@ package Data::MultiValued::TagsAndRanges; { - $Data::MultiValued::TagsAndRanges::VERSION = '0.0.1_3'; + $Data::MultiValued::TagsAndRanges::VERSION = '0.0.1_4'; } { $Data::MultiValued::TagsAndRanges::DIST = 'Data-MultiValued'; } use Moose; +use namespace::autoclean; use MooseX::Params::Validate; use Moose::Util::TypeConstraints; use MooseX::Types::Moose qw(Num Str Undef Any); @@ -88,6 +89,8 @@ sub _as_hash { return {_storage=>$ret}; } +__PACKAGE__->meta->make_immutable(); + 1; __END__ @@ -101,7 +104,7 @@ Data::MultiValued::TagsAndRanges - Handle values with tags and validity ranges =head1 VERSION -version 0.0.1_3 +version 0.0.1_4 =head1 SYNOPSIS diff --git a/lib/Data/MultiValued/UglySerializationHelperRole.pm b/lib/Data/MultiValued/UglySerializationHelperRole.pm index c30166f..ddf2f63 100644 --- a/lib/Data/MultiValued/UglySerializationHelperRole.pm +++ b/lib/Data/MultiValued/UglySerializationHelperRole.pm @@ -1,11 +1,12 @@ package Data::MultiValued::UglySerializationHelperRole; { - $Data::MultiValued::UglySerializationHelperRole::VERSION = '0.0.1_3'; + $Data::MultiValued::UglySerializationHelperRole::VERSION = '0.0.1_4'; } { $Data::MultiValued::UglySerializationHelperRole::DIST = 'Data-MultiValued'; } use Moose::Role; +use namespace::autoclean; # ABSTRACT: only use this if you know what you're doing @@ -56,7 +57,7 @@ Data::MultiValued::UglySerializationHelperRole - only use this if you know what =head1 VERSION -version 0.0.1_3 +version 0.0.1_4 =head1 SYNOPSIS |