X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FMoose%2FMeta%2FRole%2FApplication.pm;h=40c7e82bc6c9686c3dcbb83083530b6a58843bac;hb=refs%2Fheads%2Fattic%2Frole-application-allow-shadow;hp=d9d4c2f1dc9d3f84efadaf55c96189fd454b55fa;hpb=2afe5289a42e908d111db381a826c66d93fbb913;p=gitmo%2FMoose.git

diff --git a/lib/Moose/Meta/Role/Application.pm b/lib/Moose/Meta/Role/Application.pm
index d9d4c2f..40c7e82 100644
--- a/lib/Moose/Meta/Role/Application.pm
+++ b/lib/Moose/Meta/Role/Application.pm
@@ -18,6 +18,13 @@ __PACKAGE__->meta->add_attribute('method_aliases' => (
     Class::MOP::_definition_context(),
 ));
 
+__PACKAGE__->meta->add_attribute('shadowing_prohibited' => (
+    init_arg => '-prohibit_shadowing',
+    reader => 'is_shadowing_prohibited',
+    default => sub { 0 },
+    Class::MOP::_definition_context(),
+));
+
 sub new {
     my ($class, %params) = @_;
     $class->_new(\%params);