1 package Class::MOP::Deprecated;
6 use Package::DeprecationManager -deprecations => {
7 'Class::MOP::HAVE_ISAREV' => '0.93',
8 'Class::MOP::subname' => '0.93',
9 'Class::MOP::in_global_destruction' => '0.93',
11 'Class::MOP::Package::get_method_map' => '0.93',
13 'Class::MOP::Class::construct_class_instance' => '0.93',
14 'Class::MOP::Class::check_metaclass_compatibility' => '0.93',
15 'Class::MOP::Class::create_meta_instance' => '0.93',
16 'Class::MOP::Class::clone_instance' => '0.93',
17 'Class::MOP::Class::alias_method' => '0.93',
18 'Class::MOP::Class::compute_all_applicable_methods' => '0.93',
19 'Class::MOP::Class::compute_all_applicable_attributes' => '0.93',
20 'Class::MOP::Class::get_attribute_map' => '0.95',
22 'Class::MOP::Instance::bless_instance_structure' => '0.93',
24 'Class::MOP::Attribute::process_accessors' => '0.93',
26 'Class::MOP::Method::Accessor::initialize_body' => '0.93',
27 'Class::MOP::Method::Accessor::generate_accessor_method' => '0.93',
28 'Class::MOP::Method::Accessor::generate_reader_method' => '0.93',
29 'Class::MOP::Method::Accessor::generate_writer_method' => '0.93',
30 'Class::MOP::Method::Accessor::generate_predicate_method' => '0.93',
31 'Class::MOP::Method::Accessor::generate_clearer_method' => '0.93',
32 'Class::MOP::Method::Accessor::generate_accessor_method_inline' => '0.93',
33 'Class::MOP::Method::Accessor::generate_reader_method_inline' => '0.93',
34 'Class::MOP::Method::Accessor::generate_writer_method_inline' => '0.93',
35 'Class::MOP::Method::Accessor::generate_clearer_method_inline' => '0.93',
36 'Class::MOP::Method::Accessor::generate_predicate_method_inline' =>
39 'Class::MOP::Method::Constructor::meta_instance' => '0.93',
40 'Class::MOP::Method::Constructor::attributes' => '0.93',
41 'Class::MOP::Method::Constructor::initialize_body' => '0.93',
42 'Class::MOP::Method::Constructor::generate_constructor_method' => '0.93',
43 'Class::MOP::Method::Constructor::generate_constructor_method_inline' =>
52 Class::MOP::Deprecated::deprecated(
53 "Class::MOP::HAVE_ISAREV is deprecated and will be removed in a future release. It has always returned 1 anyway."
59 Class::MOP::Deprecated::deprecated(
60 "Class::MOP::subname is deprecated. Please use Sub::Name directly.");
62 goto \&Sub::Name::subname;
65 sub in_global_destruction {
66 Class::MOP::Deprecated::deprecated(
67 "Class::MOP::in_global_destruction is deprecated. Please use Devel::GlobalDestruction directly."
69 require Devel::GlobalDestruction;
70 goto \&Devel::GlobalDestruction::in_global_destruction;
76 use Scalar::Util qw( blessed );
79 Class::MOP::Deprecated::deprecated(
80 'The get_method_map method has been made private.'
81 . " The public version is deprecated and will be removed in a future release.\n"
85 return { map { $_->name => $_ } $self->_get_local_methods };
94 sub construct_class_instance {
95 Class::MOP::Deprecated::deprecated(
96 'The construct_class_instance method has been made private.'
97 . " The public version is deprecated and will be removed in a future release.\n"
99 shift->_construct_class_instance(@_);
102 sub check_metaclass_compatibility {
103 Class::MOP::Deprecated::deprecated(
104 'The check_metaclass_compatibility method has been made private.'
105 . " The public version is deprecated and will be removed in a future release.\n"
107 shift->_check_metaclass_compatibility(@_);
110 sub construct_instance {
111 Class::MOP::Deprecated::deprecated(
112 'The construct_instance method has been made private.'
113 . " The public version is deprecated and will be removed in a future release.\n"
115 shift->_construct_instance(@_);
118 sub create_meta_instance {
119 Class::MOP::Deprecated::deprecated(
120 'The create_meta_instance method has been made private.'
121 . " The public version is deprecated and will be removed in a future release.\n"
123 shift->_create_meta_instance(@_);
127 Class::MOP::Deprecated::deprecated(
128 'The clone_instance method has been made private.'
129 . " The public version is deprecated and will be removed in a future release.\n"
131 shift->_clone_instance(@_);
135 Class::MOP::Deprecated::deprecated(
136 "The alias_method method is deprecated. Use add_method instead.\n");
138 shift->add_method(@_);
141 sub compute_all_applicable_methods {
142 Class::MOP::Deprecated::deprecated(
143 'The compute_all_applicable_methods method is deprecated.'
144 . " Use get_all_methods instead.\n" );
149 class => $_->package_name,
150 code => $_, # sigh, overloading
152 } shift->get_all_methods(@_);
155 sub compute_all_applicable_attributes {
156 Class::MOP::Deprecated::deprecated(
157 'The compute_all_applicable_attributes method has been deprecated.'
158 . " Use get_all_attributes instead.\n" );
160 shift->get_all_attributes(@_);
163 sub get_attribute_map {
164 Class::MOP::Deprecated::deprecated(
165 "The get_attribute_map method has been deprecated.\n");
167 shift->_attribute_map(@_);
171 Class::MOP::Instance;
173 sub bless_instance_structure {
174 Class::MOP::Deprecated::deprecated(
175 'The bless_instance_structure method is deprecated.'
176 . " It will be removed in a future release.\n" );
178 my ( $self, $instance_structure ) = @_;
179 bless $instance_structure, $self->_class_name;
183 Class::MOP::Attribute;
185 sub process_accessors {
186 Class::MOP::Deprecated::deprecated(
187 'The process_accessors method has been made private.'
188 . " The public version is deprecated and will be removed in a future release.\n"
190 shift->_process_accessors(@_);
194 Class::MOP::Method::Accessor;
196 sub initialize_body {
197 Class::MOP::Deprecated::deprecated(
198 'The initialize_body method has been made private.'
199 . " The public version is deprecated and will be removed in a future release.\n"
201 shift->_initialize_body;
204 sub generate_accessor_method {
205 Class::MOP::Deprecated::deprecated(
206 'The generate_accessor_method method has been made private.'
207 . " The public version is deprecated and will be removed in a future release.\n"
209 shift->_generate_accessor_method;
212 sub generate_reader_method {
213 Class::MOP::Deprecated::deprecated(
214 'The generate_reader_method method has been made private.'
215 . " The public version is deprecated and will be removed in a future release.\n"
217 shift->_generate_reader_method;
220 sub generate_writer_method {
221 Class::MOP::Deprecated::deprecated(
222 'The generate_writer_method method has been made private.'
223 . " The public version is deprecated and will be removed in a future release.\n"
225 shift->_generate_writer_method;
228 sub generate_predicate_method {
229 Class::MOP::Deprecated::deprecated(
230 'The generate_predicate_method method has been made private.'
231 . " The public version is deprecated and will be removed in a future release.\n"
233 shift->_generate_predicate_method;
236 sub generate_clearer_method {
237 Class::MOP::Deprecated::deprecated(
238 'The generate_clearer_method method has been made private.'
239 . " The public version is deprecated and will be removed in a future release.\n"
241 shift->_generate_clearer_method;
244 sub generate_accessor_method_inline {
245 Class::MOP::Deprecated::deprecated(
246 'The generate_accessor_method_inline method has been made private.'
247 . " The public version is deprecated and will be removed in a future release.\n"
249 shift->_generate_accessor_method_inline;
252 sub generate_reader_method_inline {
253 Class::MOP::Deprecated::deprecated(
254 'The generate_reader_method_inline method has been made private.'
255 . " The public version is deprecated and will be removed in a future release.\n"
257 shift->_generate_reader_method_inline;
260 sub generate_writer_method_inline {
261 Class::MOP::Deprecated::deprecated(
262 'The generate_writer_method_inline method has been made private.'
263 . " The public version is deprecated and will be removed in a future release.\n"
265 shift->_generate_writer_method_inline;
268 sub generate_predicate_method_inline {
269 Class::MOP::Deprecated::deprecated(
270 'The generate_predicate_method_inline method has been made private.'
271 . " The public version is deprecated and will be removed in a future release.\n"
273 shift->_generate_predicate_method_inline;
276 sub generate_clearer_method_inline {
277 Class::MOP::Deprecated::deprecated(
278 'The generate_clearer_method_inline method has been made private.'
279 . " The public version is deprecated and will be removed in a future release.\n"
281 shift->_generate_clearer_method_inline;
285 Class::MOP::Method::Constructor;
288 Class::MOP::Deprecated::deprecated(
289 'The meta_instance method has been made private.'
290 . " The public version is deprecated and will be removed in a future release.\n"
292 shift->_meta_instance;
296 Class::MOP::Deprecated::deprecated(
297 'The attributes method has been made private.'
298 . " The public version is deprecated and will be removed in a future release.\n"
301 return shift->_attributes;
304 sub initialize_body {
305 Class::MOP::Deprecated::deprecated(
306 'The initialize_body method has been made private.'
307 . " The public version is deprecated and will be removed in a future release.\n"
309 shift->_initialize_body;
312 sub generate_constructor_method {
313 Class::MOP::Deprecated::deprecated(
314 'The generate_constructor_method method has been made private.'
315 . " The public version is deprecated and will be removed in a future release.\n"
317 shift->_generate_constructor_method;
320 sub generate_constructor_method_inline {
321 Class::MOP::Deprecated::deprecated(
322 'The generate_constructor_method_inline method has been made private.'
323 . " The public version is deprecated and will be removed in a future release.\n"
325 shift->_generate_constructor_method_inline;
336 Class::MOP::Deprecated - Manages deprecation warnings for Class::MOP
340 use Class::MOP::Deprecated -api_version => $version;
344 This module manages deprecation warnings for features that have been
345 deprecated in Class::MOP.
347 If you specify C<< -api_version => $version >>, you can use deprecated features
348 without warnings. Note that this special treatment is limited to the package
349 that loads C<Class::MOP::Deprecated>.