package MooseX::AttributeHelpers::Trait::Collection::List;
use Moose::Role;
-our $VERSION = '0.01';
+our $VERSION = '0.17';
+$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;
+no Moose::Role;
# register the alias ...
package # hide me from search.cpan.org
- Moose::Meta::Attribute::Custom::Collection::List;
-sub register_implementation { 'MooseX::AttributeHelpers::Collection::List' }
+ Moose::Meta::Attribute::Custom::Trait::Collection::List;
+sub register_implementation {
+ 'MooseX::AttributeHelpers::Trait::Collection::List'
+}
1;
default => sub { [] },
provides => {
map => 'map_options',
- grep => 'fitler_options',
+ grep => 'filter_options',
}
);
it under the same terms as Perl itself.
=cut
-