Hmm. I think I did something odd in here...

[gitmo/MooseX-AttributeHelpers.git] / lib / MooseX / AttributeHelpers / Collection / ImmutableHash.pm

diff --git a/lib/MooseX/AttributeHelpers/Collection/ImmutableHash.pm b/lib/MooseX/AttributeHelpers/Collection/ImmutableHash.pm
index a0c7566..fc9b06e 100644 (file)
--- a/lib/MooseX/AttributeHelpers/Collection/ImmutableHash.pm
+++ b/lib/MooseX/AttributeHelpers/Collection/ImmutableHash.pm
@@ -1,27 +1,22 @@
 
 package MooseX::AttributeHelpers::Collection::ImmutableHash;
 use Moose;
+use MooseX::AttributeHelpers::Sugar;
 
 our $VERSION   = '0.01';
 our $AUTHORITY = 'cpan:STEVAN';
 
-use MooseX::AttributeHelpers::MethodProvider::ImmutableHash;
-
 extends 'MooseX::AttributeHelpers::Collection';
 
-has '+method_provider' => (
-    default => 'MooseX::AttributeHelpers::MethodProvider::ImmutableHash'
+define_attribute_helper (
+    helper_type      => 'HashRef',
+    method_provider  => 
+        'MooseX::AttributeHelpers::MethodProvider::ImmutableHash',
+    shortcut         => 'Collection::ImmutableHash',
 );
 
-sub helper_type { 'HashRef' }
-
 no Moose;
-
-# register the alias ...
-package # hide me from search.cpan.org
-    Moose::Meta::Attribute::Custom::Collection::ImmutableHash;
-sub register_implementation { 'MooseX::AttributeHelpers::Collection::ImmutableHash' }
-
+no MooseX::AttributeHelpers::Sugar;
 
 1;
 
@@ -54,22 +49,12 @@ MooseX::AttributeHelpers::Collection::ImmutableHash
 =head1 DESCRIPTION
 
 This module provides a immutable HashRef attribute which provides a number of 
-hash-line operations. See L<MooseX::AttributeHelpers::MethodProvider::ImmutableHash>
-for more details.
-
-=head1 METHODS
-
-=over 4
-
-=item B<meta>
-
-=item B<method_provider>
-
-=item B<has_method_provider>
+hash-like operations. 
 
-=item B<helper_type>
+=head1 PROVIDED METHODS
 
-=back
+The methods for this metaclass are provided by
+L<MooseX::AttributeHelpers::MethodProvider::ImmutableHash>.
 
 =head1 BUGS
 
@@ -90,4 +75,4 @@ L<http://www.iinteractive.com>
 This library is free software; you can redistribute it and/or modify
 it under the same terms as Perl itself.
 
-=cut
\ No newline at end of file
+=cut