8 'Test::Output' => '0.01',
11 # All tests are wrapped with lives_and because the stderr output tests will
12 # otherwise eat exceptions, and the test just dies silently.
29 ::stderr_like{ has foo => (
35 qr{\QAllowing a native trait to automatically supply a default is deprecated. You can avoid this warning by supplying a default, builder, or making the attribute required at $0 line},
36 'Not providing a default for native String trait warns';
38 ::stderr_is{ has bar => (
43 } q{}, 'No warning when _default_is is set';
45 ::stderr_like{ Foo->new->bar }
46 qr{\QThe bar method in the Foo class was automatically created by the native delegation trait for the bar attribute. This "default is" feature is deprecated. Explicitly set "is" or define accessor names to avoid this at $0 line},
47 'calling a reader on a method created by a _default_is warns';
59 ::stderr_is{ has foo => (
63 builder => '_build_foo',
66 'Providing a builder for a String trait avoids default default warning';
77 'no default is assigned when reader is provided'
80 ::stderr_is{ Pack1->new->_bar } q{},
81 'Providing a reader for a String trait avoids default is warning';
85 sub _build_foo { q{} }
95 ::stderr_is{ has foo => (
102 'Making a String trait required avoids default default warning';
105 traits => ['String'],
113 'no default is assigned when writer is provided'
116 ::stderr_is{ Pack2->new( foo => 'x' )->_bar('x') }
118 'Providing a writer for a String trait avoids default is warning';
130 ::stderr_is{ has foo => (
131 traits => ['String'],
137 'Making a String trait lazy_build avoids default default warning';
140 traits => ['String'],
148 'no default is assigned when accessor is provided'
151 ::stderr_is{ Pack3->new->_bar }
153 'Providing a accessor for a String trait avoids default is warning';
157 sub _build_foo { q{} }
161 use Moose::Util::TypeConstraints;
166 subtype 'Frubble', as 'Str', optimize_as sub { };
168 qr/\QProviding an optimized subroutine ref for type constraints is deprecated./,
169 'Providing an optimize_as sub is deprecated';