X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FMoose%2FAttributeHelpers%2FTrait%2FCollection%2FBag.pm;h=3a8fef38f710bae7f6905f7a76713859473f7552;hb=37b7c240679cc0aa92b97335d3c33c0d67602bab;hp=5cd36c7657a75a094e35bf2d4c972cc3d1cff861;hpb=e3c07b1941867113a7fbc81f042857bb6b11ed83;p=gitmo%2FMoose.git diff --git a/lib/Moose/AttributeHelpers/Trait/Collection/Bag.pm b/lib/Moose/AttributeHelpers/Trait/Collection/Bag.pm index 5cd36c7..3a8fef3 100644 --- a/lib/Moose/AttributeHelpers/Trait/Collection/Bag.pm +++ b/lib/Moose/AttributeHelpers/Trait/Collection/Bag.pm @@ -3,7 +3,7 @@ package Moose::AttributeHelpers::Trait::Collection::Bag; use Moose::Role; use Moose::Util::TypeConstraints; -our $VERSION = '0.19'; +our $VERSION = '0.84'; $VERSION = eval $VERSION; our $AUTHORITY = 'cpan:STEVAN'; @@ -22,7 +22,7 @@ subtype 'Bag' => as 'HashRef[Int]'; sub helper_type { 'Bag' } -before 'process_options_for_provides' => sub { +before 'process_options_for_handles' => sub { my ($self, $options, $name) = @_; # Set some default attribute options here unless already defined @@ -63,12 +63,12 @@ Moose::AttributeHelpers::Collection::Bag metaclass => 'Collection::Bag', is => 'ro', isa => 'Bag', # optional ... as is defalt - provides => { - 'add' => 'add_word', - 'get' => 'get_count_for', - 'empty' => 'has_any_words', - 'count' => 'num_words', - 'delete' => 'delete_word', + handles => { + add_word => 'add', + get_count_for => 'get', + has_any_words => 'empty', + num_words => 'count', + delete_word => 'delete', } ); @@ -90,7 +90,7 @@ for more details. =item B -=item B +=item B =back