X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FMoose%2FMeta%2FRole%2FApplication.pm;h=49775b00c2772f97b7df4441c58b3d5747b9bf73;hb=55d05fb16429c2150b5337b1a0130ae334e129d0;hp=fef12c11f8ab470b82dc7236c70ab69565652cb3;hpb=113d3174264db82cb788bc846f617584072cba39;p=gitmo%2FMoose.git diff --git a/lib/Moose/Meta/Role/Application.pm b/lib/Moose/Meta/Role/Application.pm index fef12c1..49775b0 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.91'; +our $VERSION = '1.12'; $VERSION = eval $VERSION; our $AUTHORITY = 'cpan:STEVAN'; @@ -23,6 +23,14 @@ __PACKAGE__->meta->add_attribute('method_aliases' => ( sub new { my ($class, %params) = @_; + if ( exists $params{excludes} || exists $params{alias} ) { + # Moose::Deprecated::deprecated( + # feature => 'alias or excludes', + # message => + # "The alias and excludes options for role application have been renamed -alias and -excludes" + # ); + } + if ( exists $params{excludes} && !exists $params{'-excludes'} ) { $params{'-excludes'} = delete $params{excludes}; } @@ -153,9 +161,7 @@ consideration, and is intentionally not yet documented. =head1 BUGS -All complex software has bugs lurking in it, and this module is no -exception. If you find a bug please either email me, or add the bug -to cpan-RT. +See L for details on reporting bugs. =head1 AUTHOR @@ -163,7 +169,7 @@ Stevan Little Estevan@iinteractive.comE =head1 COPYRIGHT AND LICENSE -Copyright 2006-2009 by Infinity Interactive, Inc. +Copyright 2006-2010 by Infinity Interactive, Inc. L