Deprecation warning for Moose::init_meta

diff --git a/lib/Moose.pm b/lib/Moose.pm
index edfcfec..87a4398 100644 (file)
--- a/lib/Moose.pm
+++ b/lib/Moose.pm
@@ -133,6 +133,11 @@ sub init_meta {
     # This used to be called as a function. This hack preserves
     # backwards compatibility.
     if ( $_[0] ne __PACKAGE__ ) {
+        Moose::Deprecated::deprecated(
+            feature => 'Moose::init_meta',
+            message => 'Calling Moose::init_meta as a function is deprecated',
+        );
+
         return __PACKAGE__->init_meta(
             for_class  => $_[0],
             base_class => $_[1],

diff --git a/lib/Moose/Deprecated.pm b/lib/Moose/Deprecated.pm
index 71ac437..c7b09af 100644 (file)
--- a/lib/Moose/Deprecated.pm
+++ b/lib/Moose/Deprecated.pm
@@ -13,6 +13,7 @@ use Package::DeprecationManager -deprecations => {
     'Role type'                   => '0.84',
     'subtype without sugar'       => '0.72',
     'type without sugar'          => '0.72',
+    'Moose::init_meta'            => '0.56',
     },
     -ignore => [qw( Moose Moose::Exporter Moose::Util::MetaRole )],
     ;