X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FMoose%2FMeta%2FRole%2FApplication.pm;h=8c45eb6aa7e1108e630114ed27f4c8388f555121;hb=8de5717850eb1f406e5f71d2ccfac33c72cc490b;hp=393adc7de4fa5ca428078fd082773ec365840b6b;hpb=fb4fcfee39263ca3983e28f840f38185282d4327;p=gitmo%2FMoose.git diff --git a/lib/Moose/Meta/Role/Application.pm b/lib/Moose/Meta/Role/Application.pm index 393adc7..8c45eb6 100644 --- a/lib/Moose/Meta/Role/Application.pm +++ b/lib/Moose/Meta/Role/Application.pm @@ -4,32 +4,42 @@ use strict; use warnings; use metaclass; -our $VERSION = '0.57'; +our $VERSION = '0.92'; $VERSION = eval $VERSION; our $AUTHORITY = 'cpan:STEVAN'; __PACKAGE__->meta->add_attribute('method_exclusions' => ( - init_arg => 'excludes', + init_arg => '-excludes', reader => 'get_method_exclusions', default => sub { [] } )); __PACKAGE__->meta->add_attribute('method_aliases' => ( - init_arg => 'alias', + init_arg => '-alias', reader => 'get_method_aliases', default => sub { {} } )); -sub new { +sub new { my ($class, %params) = @_; - - if (exists $params{excludes}) { + + if ( exists $params{excludes} && !exists $params{'-excludes'} ) { + $params{'-excludes'} = delete $params{excludes}; + } + if ( exists $params{alias} && !exists $params{'-alias'} ) { + $params{'-alias'} = delete $params{alias}; + } + + if ( exists $params{'-excludes'} ) { + # I wish we had coercion here :) - $params{excludes} = (ref $params{excludes} eq 'ARRAY' - ? $params{excludes} - : [ $params{excludes} ]); + $params{'-excludes'} = ( + ref $params{'-excludes'} eq 'ARRAY' + ? $params{'-excludes'} + : [ $params{'-excludes'} ] + ); } - + $class->_new(\%params); } @@ -58,12 +68,12 @@ sub apply { $self->check_role_exclusions(@_); $self->check_required_methods(@_); $self->check_required_attributes(@_); - + $self->apply_attributes(@_); - $self->apply_methods(@_); - + $self->apply_methods(@_); + $self->apply_override_method_modifiers(@_); - + $self->apply_before_method_modifiers(@_); $self->apply_around_method_modifiers(@_); $self->apply_after_method_modifiers(@_); @@ -96,6 +106,9 @@ Moose::Meta::Role::Application - A base class for role application This is the abstract base class for role applications. +The API for this class and its subclasses still needs some +consideration, and is intentionally not yet documented. + =head2 METHODS =over 4 @@ -150,7 +163,7 @@ Stevan Little Estevan@iinteractive.comE =head1 COPYRIGHT AND LICENSE -Copyright 2006-2008 by Infinity Interactive, Inc. +Copyright 2006-2009 by Infinity Interactive, Inc. L