From db5965c30bab012b51fdf3d308848eb0521385ab Mon Sep 17 00:00:00 2001 From: Gianni Ceccarelli Date: Mon, 19 Dec 2011 16:56:04 +0000 Subject: autoclean & immutable where possible --- lib/Data/MultiValued/AttributeTrait.pm | 1 + lib/Data/MultiValued/AttributeTrait/Ranges.pm | 1 + lib/Data/MultiValued/AttributeTrait/Tags.pm | 1 + lib/Data/MultiValued/AttributeTrait/TagsAndRanges.pm | 1 + lib/Data/MultiValued/RangeContainer.pm | 3 +++ lib/Data/MultiValued/Ranges.pm | 3 +++ lib/Data/MultiValued/TagContainer.pm | 3 +++ lib/Data/MultiValued/TagContainerForRanges.pm | 3 +++ lib/Data/MultiValued/Tags.pm | 3 +++ lib/Data/MultiValued/TagsAndRanges.pm | 3 +++ lib/Data/MultiValued/UglySerializationHelperRole.pm | 1 + 11 files changed, 23 insertions(+) diff --git a/lib/Data/MultiValued/AttributeTrait.pm b/lib/Data/MultiValued/AttributeTrait.pm index 78ae31e..eb8cbd3 100644 --- a/lib/Data/MultiValued/AttributeTrait.pm +++ b/lib/Data/MultiValued/AttributeTrait.pm @@ -1,5 +1,6 @@ package Data::MultiValued::AttributeTrait; use Moose::Role; +use namespace::autoclean; use Data::MultiValued::AttributeAccessors; use MooseX::Types::Moose qw(Str); use Try::Tiny; diff --git a/lib/Data/MultiValued/AttributeTrait/Ranges.pm b/lib/Data/MultiValued/AttributeTrait/Ranges.pm index 3d3b3f8..2b9a0ff 100644 --- a/lib/Data/MultiValued/AttributeTrait/Ranges.pm +++ b/lib/Data/MultiValued/AttributeTrait/Ranges.pm @@ -1,5 +1,6 @@ package Data::MultiValued::AttributeTrait::Ranges; use Moose::Role; +use namespace::autoclean; use Data::MultiValued::Ranges; with 'Data::MultiValued::AttributeTrait'; diff --git a/lib/Data/MultiValued/AttributeTrait/Tags.pm b/lib/Data/MultiValued/AttributeTrait/Tags.pm index d671ed4..2ea848e 100644 --- a/lib/Data/MultiValued/AttributeTrait/Tags.pm +++ b/lib/Data/MultiValued/AttributeTrait/Tags.pm @@ -1,5 +1,6 @@ package Data::MultiValued::AttributeTrait::Tags; use Moose::Role; +use namespace::autoclean; use Data::MultiValued::Tags; with 'Data::MultiValued::AttributeTrait'; diff --git a/lib/Data/MultiValued/AttributeTrait/TagsAndRanges.pm b/lib/Data/MultiValued/AttributeTrait/TagsAndRanges.pm index 0bb87ef..36b7cf9 100644 --- a/lib/Data/MultiValued/AttributeTrait/TagsAndRanges.pm +++ b/lib/Data/MultiValued/AttributeTrait/TagsAndRanges.pm @@ -1,5 +1,6 @@ package Data::MultiValued::AttributeTrait::TagsAndRanges; use Moose::Role; +use namespace::autoclean; use Data::MultiValued::TagsAndRanges; with 'Data::MultiValued::AttributeTrait'; diff --git a/lib/Data/MultiValued/RangeContainer.pm b/lib/Data/MultiValued/RangeContainer.pm index 8dd9933..53b6c4c 100644 --- a/lib/Data/MultiValued/RangeContainer.pm +++ b/lib/Data/MultiValued/RangeContainer.pm @@ -1,5 +1,6 @@ package Data::MultiValued::RangeContainer; 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); @@ -284,4 +285,6 @@ sub all_ranges { return map { [ $_->{from}, $_->{to} ] } @{$self->_storage}; } +__PACKAGE__->meta->make_immutable(); + 1; diff --git a/lib/Data/MultiValued/Ranges.pm b/lib/Data/MultiValued/Ranges.pm index aed29f4..5f193ba 100644 --- a/lib/Data/MultiValued/Ranges.pm +++ b/lib/Data/MultiValued/Ranges.pm @@ -1,5 +1,6 @@ package Data::MultiValued::Ranges; use Moose; +use namespace::autoclean; use MooseX::Params::Validate; use Moose::Util::TypeConstraints; use MooseX::Types::Moose qw(Num Str Undef Any); @@ -185,4 +186,6 @@ L, L =cut +__PACKAGE__->meta->make_immutable(); + 1; diff --git a/lib/Data/MultiValued/TagContainer.pm b/lib/Data/MultiValued/TagContainer.pm index fe1a794..ca9093f 100644 --- a/lib/Data/MultiValued/TagContainer.pm +++ b/lib/Data/MultiValued/TagContainer.pm @@ -1,5 +1,6 @@ package Data::MultiValued::TagContainer; use Moose; +use namespace::autoclean; use Moose::Util::TypeConstraints; use MooseX::Types::Moose qw(HashRef); use Data::MultiValued::Exceptions; @@ -168,4 +169,6 @@ sub _create_new_inferior { return {}; } +__PACKAGE__->meta->make_immutable(); + 1; diff --git a/lib/Data/MultiValued/TagContainerForRanges.pm b/lib/Data/MultiValued/TagContainerForRanges.pm index 8e3c2b9..ecafc1e 100644 --- a/lib/Data/MultiValued/TagContainerForRanges.pm +++ b/lib/Data/MultiValued/TagContainerForRanges.pm @@ -1,5 +1,6 @@ package Data::MultiValued::TagContainerForRanges; use Moose; +use namespace::autoclean; use MooseX::Types::Moose qw(HashRef); use Moose::Util::TypeConstraints; use Data::MultiValued::RangeContainer; @@ -77,4 +78,6 @@ sub _as_hash { }; } +__PACKAGE__->meta->make_immutable(); + 1; diff --git a/lib/Data/MultiValued/Tags.pm b/lib/Data/MultiValued/Tags.pm index 640db40..8ba06f3 100644 --- a/lib/Data/MultiValued/Tags.pm +++ b/lib/Data/MultiValued/Tags.pm @@ -1,5 +1,6 @@ package Data::MultiValued::Tags; use Moose; +use namespace::autoclean; use MooseX::Params::Validate; use Moose::Util::TypeConstraints; use MooseX::Types::Moose qw(Num Str Undef Any); @@ -143,4 +144,6 @@ L, L =cut +__PACKAGE__->meta->make_immutable(); + 1; diff --git a/lib/Data/MultiValued/TagsAndRanges.pm b/lib/Data/MultiValued/TagsAndRanges.pm index 085b8c1..2f06452 100644 --- a/lib/Data/MultiValued/TagsAndRanges.pm +++ b/lib/Data/MultiValued/TagsAndRanges.pm @@ -1,5 +1,6 @@ package Data::MultiValued::TagsAndRanges; use Moose; +use namespace::autoclean; use MooseX::Params::Validate; use Moose::Util::TypeConstraints; use MooseX::Types::Moose qw(Num Str Undef Any); @@ -155,4 +156,6 @@ sub _as_hash { return {_storage=>$ret}; } +__PACKAGE__->meta->make_immutable(); + 1; diff --git a/lib/Data/MultiValued/UglySerializationHelperRole.pm b/lib/Data/MultiValued/UglySerializationHelperRole.pm index 19f1268..ebf783a 100644 --- a/lib/Data/MultiValued/UglySerializationHelperRole.pm +++ b/lib/Data/MultiValued/UglySerializationHelperRole.pm @@ -1,5 +1,6 @@ package Data::MultiValued::UglySerializationHelperRole; use Moose::Role; +use namespace::autoclean; # ABSTRACT: only use this if you know what you're doing -- cgit v1.2.3