Make warning for default_default include info on how to shut it up

diff --git a/lib/Moose/Meta/Attribute/Native/Trait.pm b/lib/Moose/Meta/Attribute/Native/Trait.pm
index 1eb2fc7..de59416 100644 (file)
--- a/lib/Moose/Meta/Attribute/Native/Trait.pm
+++ b/lib/Moose/Meta/Attribute/Native/Trait.pm
@@ -44,7 +44,8 @@ before '_process_options' => sub {
         Moose::Deprecated::deprecated(
             feature => 'default default for Native Trait',
             message =>
-                'Allowing a native trait to automatically supply a default is deprecated'
+                'Allowing a native trait to automatically supply a default is deprecated.'
+                . ' You can avoid this warning by supply a default, builder, or making the attribute required'
         );
     }
 };

diff --git a/t/010_basics/030_deprecations.t b/t/010_basics/030_deprecations.t
index c63121c..d4d4004 100644 (file)
--- a/t/010_basics/030_deprecations.t
+++ b/t/010_basics/030_deprecations.t
@@ -32,7 +32,7 @@ use Test::Requires {
                     isa    => 'Str',
                 );
                 }
-                qr/\QAllowing a native trait to automatically supply a default is deprecated/,
+                qr{\QAllowing a native trait to automatically supply a default is deprecated. You can avoid this warning by supply a default, builder, or making the attribute required at t/010_basics/030_deprecations.t line},
                 'Not providing a default for native String trait warns';
 
             ::stderr_is{ has bar => (