package MooseX::AttributeHelpers::Trait::Collection::List;
use Moose::Role;
-our $VERSION = '0.01';
+our $VERSION = '0.23';
+$VERSION = eval $VERSION;
our $AUTHORITY = 'cpan:STEVAN';
use MooseX::AttributeHelpers::MethodProvider::List;
with 'MooseX::AttributeHelpers::Trait::Collection';
-has '+method_provider' => (
- default => 'MooseX::AttributeHelpers::MethodProvider::List'
+has 'method_provider' => (
+ is => 'ro',
+ isa => 'ClassName',
+ predicate => 'has_method_provider',
+ default => 'MooseX::AttributeHelpers::MethodProvider::List'
);
sub helper_type { 'ArrayRef' }
-no Moose;
-
-# register the alias ...
-package # hide me from search.cpan.org
- Moose::Meta::Attribute::Custom::Collection::List;
-sub register_implementation { 'MooseX::AttributeHelpers::Collection::List' }
-
+no Moose::Role;
1;
default => sub { [] },
provides => {
map => 'map_options',
- grep => 'fitler_options',
+ grep => 'filter_options',
}
);
=head1 COPYRIGHT AND LICENSE
-Copyright 2007-2008 by Infinity Interactive, Inc.
+Copyright 2007-2009 by Infinity Interactive, Inc.
L<http://www.iinteractive.com>
it under the same terms as Perl itself.
=cut
-