X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FMoose%2FMeta%2FRole%2FApplication.pm;h=636dff7057da1b361718ef6e54b50791e4ecb4a4;hb=721a2ea053c8a9e6801ea562d365b5140ac5a868;hp=664c07111923cc034a7cdab0f929b688fd768694;hpb=7a388c12358603c8a3bb6769915bc0e3e7da4f03;p=gitmo%2FMoose.git diff --git a/lib/Moose/Meta/Role/Application.pm b/lib/Moose/Meta/Role/Application.pm index 664c071..636dff7 100644 --- a/lib/Moose/Meta/Role/Application.pm +++ b/lib/Moose/Meta/Role/Application.pm @@ -4,7 +4,7 @@ use strict; use warnings; use metaclass; -our $VERSION = '0.61'; +our $VERSION = '0.88'; $VERSION = eval $VERSION; our $AUTHORITY = 'cpan:STEVAN'; @@ -20,16 +20,16 @@ __PACKAGE__->meta->add_attribute('method_aliases' => ( default => sub { {} } )); -sub new { +sub new { my ($class, %params) = @_; - + if (exists $params{excludes}) { # I wish we had coercion here :) - $params{excludes} = (ref $params{excludes} eq 'ARRAY' - ? $params{excludes} + $params{excludes} = (ref $params{excludes} eq 'ARRAY' + ? $params{excludes} : [ $params{excludes} ]); } - + $class->_new(\%params); } @@ -58,12 +58,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 +96,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 +153,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