8 'Test::Warn' => '0.21',
13 eval 'package Foo; use Package::DeprecationManager;';
16 qr/^\QYou must provide a hash reference -deprecations parameter when importing Package::DeprecationManager/,
17 'must provide a set of deprecations when using Package::DeprecationManager';
23 use Package::DeprecationManager -deprecations => {
27 'not a sub' => '1.23',
31 deprecated('foo is deprecated');
35 deprecated('bar is deprecated');
45 message => 'quux > 5 has been deprecated',
46 feature => 'not a sub',
52 deprecated("The varies sub varies: $_[0]");
62 ::warning_is{ Foo::foo() }
63 { carped => 'foo is deprecated' },
64 'deprecation warning for foo';
66 ::warning_is{ Foo::bar() }
67 { carped => 'bar is deprecated' },
68 'deprecation warning for bar';
70 ::warning_is{ Foo::baz() }
71 { carped => 'Foo::baz has been deprecated since version 1.21' },
72 'deprecation warning for baz, and message is generated by Package::DeprecationManager';
74 ::warning_is{ Foo::foo() } q{}, 'no warning on second call to foo';
76 ::warning_is{ Foo::bar() } q{}, 'no warning on second call to bar';
78 ::warning_is{ Foo::baz() } q{}, 'no warning on second call to baz';
80 ::warning_is{ Foo::varies(1) }
81 { carped => "The varies sub varies: 1" },
82 'warning for varies sub';
84 ::warning_is{ Foo::varies(2) }
85 { carped => "The varies sub varies: 2" },
86 'warning for varies sub with different error';
88 ::warning_is{ Foo::varies(1) }
90 'no warning for varies sub with same message as first call';
96 Foo->import( -api_version => '0.01' );
98 ::warning_is{ Foo::foo() }
100 'no warning for foo with api_version = 0.01';
102 ::warning_is{ Foo::bar() }
104 'no warning for bar with api_version = 0.01';
106 ::warning_is{ Foo::baz() }
108 'no warning for baz with api_version = 0.01';
114 Foo->import( -api_version => '1.17' );
116 ::warning_is{ Foo::foo() }
117 { carped => 'foo is deprecated' },
118 'deprecation warning for foo with api_version = 1.17';
120 ::warning_is{ Foo::bar() }
121 { carped => 'bar is deprecated' },
122 'deprecation warning for bar with api_version = 1.17';
124 ::warning_is{ Foo::baz() }
126 'no warning for baz with api_version = 1.17';
134 ::warning_is{ Foo::quux(1) }
136 'no warning for quux(1)';
138 ::warning_is{ Foo::quux(10) }
139 { carped => 'quux > 5 has been deprecated' },
140 'got a warning for quux(10)';
147 use Package::DeprecationManager -deprecations => {
150 -ignore => [ 'My::Package1', 'My::Package2' ];
153 deprecated('foo is deprecated');
160 use Package::DeprecationManager -deprecations => {
163 -ignore => [ 'My::Package2' ];
166 deprecated('bar is deprecated');
171 package My::Package1;
173 sub foo { Dep::foo() }
174 sub bar { Dep2::bar() }
178 package My::Package2;
180 sub foo { My::Package1::foo() }
181 sub bar { My::Package1::bar() }
187 ::warning_like{ My::Package2::foo() }
188 qr/^foo is deprecated at t.basic\.t line \d+/,
189 'deprecation warning for call to My::Package2::foo()';
191 ::warning_like{ My::Package1::bar() }
192 qr/^bar is deprecated at t.basic\.t line \d+/,
193 'deprecation warning for call to My::Package1::bar()';
199 Dep->import( -api_version => '0.8' );
201 ::warning_is{ My::Package2::foo() }
203 'no warning when calling My::Package2::foo()';