Profile of /usr/local/lib/perl5/site_perl/5.10.1/darwin-2level/Class/MOP/Deprecated.pm

← Index
NYTProf Performance Profile «block view•line view•sub view»
For 01.HTTP.t
Run on Tue May 4 15:25:55 2010
Reported on Tue May 4 15:26:21 2010

File | /usr/local/lib/perl5/site_perl/5.10.1/darwin-2level/Class/MOP/Deprecated.pm
Statements Executed | 18
Statement Execution Time | 1.47ms

Subroutines — ordered by exclusive time
Calls | P | F | Exclusive Time | Inclusive Time | Subroutine
--- | --- | --- | --- | --- | ---
1 | 1 | 1 | 23µs | 29µs | Class::MOP::Deprecated::::BEGIN@3 Class::MOP::Deprecated::BEGIN@3
1 | 1 | 1 | 9µs | 27µs | Class::MOP::Deprecated::::BEGIN@4 Class::MOP::Deprecated::BEGIN@4
1 | 1 | 1 | 8µs | 33µs | Class::MOP::Deprecated::::BEGIN@7 Class::MOP::Deprecated::BEGIN@7
1 | 1 | 1 | 8µs | 47µs | Class::MOP::Deprecated::::BEGIN@6 Class::MOP::Deprecated::BEGIN@6
0 | 0 | 0 | 0s | 0s | Class::MOP::Attribute::::process_accessors Class::MOP::Attribute::process_accessors
0 | 0 | 0 | 0s | 0s | Class::MOP::Class::::alias_method Class::MOP::Class::alias_method
0 | 0 | 0 | 0s | 0s | Class::MOP::Class::::check_metaclass_compatibility Class::MOP::Class::check_metaclass_compatibility
0 | 0 | 0 | 0s | 0s | Class::MOP::Class::::clone_instance Class::MOP::Class::clone_instance
0 | 0 | 0 | 0s | 0s | Class::MOP::Class::::compute_all_applicable_attributes Class::MOP::Class::compute_all_applicable_attributes
0 | 0 | 0 | 0s | 0s | Class::MOP::Class::::compute_all_applicable_methods Class::MOP::Class::compute_all_applicable_methods
0 | 0 | 0 | 0s | 0s | Class::MOP::Class::::construct_class_instance Class::MOP::Class::construct_class_instance
0 | 0 | 0 | 0s | 0s | Class::MOP::Class::::construct_instance Class::MOP::Class::construct_instance
0 | 0 | 0 | 0s | 0s | Class::MOP::Class::::create_meta_instance Class::MOP::Class::create_meta_instance
0 | 0 | 0 | 0s | 0s | Class::MOP::Class::::get_attribute_map Class::MOP::Class::get_attribute_map
0 | 0 | 0 | 0s | 0s | Class::MOP::Deprecated::::import Class::MOP::Deprecated::import
0 | 0 | 0 | 0s | 0s | Class::MOP::Deprecated::::warn Class::MOP::Deprecated::warn
0 | 0 | 0 | 0s | 0s | Class::MOP::::HAVE_ISAREV Class::MOP::HAVE_ISAREV
0 | 0 | 0 | 0s | 0s | Class::MOP::Instance::::bless_instance_structure Class::MOP::Instance::bless_instance_structure
0 | 0 | 0 | 0s | 0s | Class::MOP::Method::Accessor::::generate_accessor_method Class::MOP::Method::Accessor::generate_accessor_method
0 | 0 | 0 | 0s | 0s | Class::MOP::Method::Accessor::::generate_accessor_method_inline Class::MOP::Method::Accessor::generate_accessor_method_inline
0 | 0 | 0 | 0s | 0s | Class::MOP::Method::Accessor::::generate_clearer_method Class::MOP::Method::Accessor::generate_clearer_method
0 | 0 | 0 | 0s | 0s | Class::MOP::Method::Accessor::::generate_clearer_method_inline Class::MOP::Method::Accessor::generate_clearer_method_inline
0 | 0 | 0 | 0s | 0s | Class::MOP::Method::Accessor::::generate_predicate_method Class::MOP::Method::Accessor::generate_predicate_method
0 | 0 | 0 | 0s | 0s | Class::MOP::Method::Accessor::::generate_predicate_method_inline Class::MOP::Method::Accessor::generate_predicate_method_inline
0 | 0 | 0 | 0s | 0s | Class::MOP::Method::Accessor::::generate_reader_method Class::MOP::Method::Accessor::generate_reader_method
0 | 0 | 0 | 0s | 0s | Class::MOP::Method::Accessor::::generate_reader_method_inline Class::MOP::Method::Accessor::generate_reader_method_inline
0 | 0 | 0 | 0s | 0s | Class::MOP::Method::Accessor::::generate_writer_method Class::MOP::Method::Accessor::generate_writer_method
0 | 0 | 0 | 0s | 0s | Class::MOP::Method::Accessor::::generate_writer_method_inline Class::MOP::Method::Accessor::generate_writer_method_inline
0 | 0 | 0 | 0s | 0s | Class::MOP::Method::Accessor::::initialize_body Class::MOP::Method::Accessor::initialize_body
0 | 0 | 0 | 0s | 0s | Class::MOP::Method::Constructor::::attributesClass::MOP::Method::Constructor::attributes
0 | 0 | 0 | 0s | 0s | Class::MOP::Method::Constructor::::generate_constructor_methodClass::MOP::Method::Constructor::generate_constructor_method
0 | 0 | 0 | 0s | 0s | Class::MOP::Method::Constructor::::generate_constructor_method_inlineClass::MOP::Method::Constructor::generate_constructor_method_inline
0 | 0 | 0 | 0s | 0s | Class::MOP::Method::Constructor::::initialize_bodyClass::MOP::Method::Constructor::initialize_body
0 | 0 | 0 | 0s | 0s | Class::MOP::Method::Constructor::::meta_instanceClass::MOP::Method::Constructor::meta_instance
0 | 0 | 0 | 0s | 0s | Class::MOP::Package::::get_method_map Class::MOP::Package::get_method_map
0 | 0 | 0 | 0s | 0s | Class::MOP::::in_global_destruction Class::MOP::in_global_destruction
0 | 0 | 0 | 0s | 0s | Class::MOP::::subname Class::MOP::subname

Call graph for these subroutines as a Graphviz dot language file.

Line | State ments | Time on line | Calls | Time in subs | Code
--- | --- | --- | --- | --- | ---
1 |  |  |  |  | package Class::MOP::Deprecated;
2 |  |  |  |  |
3 | 3 | 25µs | 2 | 35µs | # spent 29µs (23+6) within Class::MOP::Deprecated::BEGIN@3 which was called # once (23µs+6µs) by Moose::Exporter::BEGIN@11 at line 3 use strict; # spent 29µs making 1 call to Class::MOP::Deprecated::BEGIN@3 # spent 6µs making 1 call to strict::import
4 | 3 | 25µs | 2 | 44µs | # spent 27µs (9+18) within Class::MOP::Deprecated::BEGIN@4 which was called # once (9µs+18µs) by Moose::Exporter::BEGIN@11 at line 4 use warnings; # spent 27µs making 1 call to Class::MOP::Deprecated::BEGIN@4 # spent 18µs making 1 call to warnings::import
5 |  |  |  |  |
6 | 3 | 30µs | 2 | 86µs | # spent 47µs (8+39) within Class::MOP::Deprecated::BEGIN@6 which was called # once (8µs+39µs) by Moose::Exporter::BEGIN@11 at line 6 use Carp qw( cluck ); # spent 47µs making 1 call to Class::MOP::Deprecated::BEGIN@6 # spent 39µs making 1 call to Exporter::import
7 | 3 | 1.35ms | 2 | 58µs | # spent 33µs (8+25) within Class::MOP::Deprecated::BEGIN@7 which was called # once (8µs+25µs) by Moose::Exporter::BEGIN@11 at line 7 use Scalar::Util qw( blessed ); # spent 33µs making 1 call to Class::MOP::Deprecated::BEGIN@7 # spent 25µs making 1 call to Exporter::import
8 |  |  |  |  |
9 | 1 | 600ns |  |  | our $VERSION = '0.98';
10 | 1 | 16µs |  |  | $VERSION = eval $VERSION;
11 | 1 | 300ns |  |  | our $AUTHORITY = 'cpan:STEVAN';
12 |  |  |  |  |
13 | 1 | 10µs |  |  | my %DeprecatedAt = (
14 |  |  |  |  |
15 |  |  |  |  | # features deprecated before 0.93
16 |  |  |  |  | 'Class::MOP::HAVE_ISAREV' => 0.93,
17 |  |  |  |  | 'Class::MOP::subname' => 0.93,
18 |  |  |  |  | 'Class::MOP::in_global_destruction' => 0.93,
19 |  |  |  |  |
20 |  |  |  |  | 'Class::MOP::Package::get_method_map' => 0.93,
21 |  |  |  |  |
22 |  |  |  |  | 'Class::MOP::Class::construct_class_instance' => 0.93,
23 |  |  |  |  | 'Class::MOP::Class::check_metaclass_compatibility' => 0.93,
24 |  |  |  |  | 'Class::MOP::Class::create_meta_instance' => 0.93,
25 |  |  |  |  | 'Class::MOP::Class::clone_instance' => 0.93,
26 |  |  |  |  | 'Class::MOP::Class::alias_method' => 0.93,
27 |  |  |  |  | 'Class::MOP::Class::compute_all_applicable_methods' => 0.93,
28 |  |  |  |  | 'Class::MOP::Class::compute_all_applicable_attributes' => 0.93,
29 |  |  |  |  | 'Class::MOP::Class::get_attribute_map' => 0.95,
30 |  |  |  |  |
31 |  |  |  |  | 'Class::MOP::Instance::bless_instance_structure' => 0.93,
32 |  |  |  |  |
33 |  |  |  |  | 'Class::MOP::Attribute::process_accessors' => 0.93,
34 |  |  |  |  |
35 |  |  |  |  | 'Class::MOP::Method::Accessor::initialize_body' => 0.93,
36 |  |  |  |  | 'Class::MOP::Method::Accessor::generate_accessor_method' => 0.93,
37 |  |  |  |  | 'Class::MOP::Method::Accessor::generate_reader_method' => 0.93,
38 |  |  |  |  | 'Class::MOP::Method::Accessor::generate_writer_method' => 0.93,
39 |  |  |  |  | 'Class::MOP::Method::Accessor::generate_predicate_method' => 0.93,
40 |  |  |  |  | 'Class::MOP::Method::Accessor::generate_clearer_method' => 0.93,
41 |  |  |  |  | 'Class::MOP::Method::Accessor::generate_accessor_method_inline' => 0.93,
42 |  |  |  |  | 'Class::MOP::Method::Accessor::generate_reader_method_inline' => 0.93,
43 |  |  |  |  | 'Class::MOP::Method::Accessor::generate_writer_method_inline' => 0.93,
44 |  |  |  |  | 'Class::MOP::Method::Accessor::generate_clearer_method_inline' => 0.93,
45 |  |  |  |  | 'Class::MOP::Method::Accessor::generate_predicate_method_inline' => 0.93,
46 |  |  |  |  |
47 |  |  |  |  | 'Class::MOP::Method::Constructor::meta_instance' => 0.93,
48 |  |  |  |  | 'Class::MOP::Method::Constructor::attributes' => 0.93,
49 |  |  |  |  | 'Class::MOP::Method::Constructor::initialize_body' => 0.93,
50 |  |  |  |  | 'Class::MOP::Method::Constructor::generate_constructor_method' => 0.93,
51 |  |  |  |  | 'Class::MOP::Method::Constructor::generate_constructor_method_inline' =>
52 |  |  |  |  | 0.93,
53 |  |  |  |  |
54 |  |  |  |  | # features deprecated after 0.93
55 |  |  |  |  | # ...
56 |  |  |  |  | );
57 |  |  |  |  |
58 | 1 | 100ns |  |  | my %Registry;
59 |  |  |  |  |
60 |  |  |  |  | sub import {
61 |  |  |  |  | my ( $class, %args ) = @_;
62 |  |  |  |  |
63 |  |  |  |  | if ( defined( my $compat_version = delete $args{-compatible} ) ) {
64 |  |  |  |  | $Registry{ (caller) } = $compat_version;
65 |  |  |  |  | }
66 |  |  |  |  |
67 |  |  |  |  | if (%args) {
68 |  |  |  |  | my $unknowns = join q{ }, keys %args;
69 |  |  |  |  | cluck "Unknown argument(s) for $class->import: $unknowns.\n";
70 |  |  |  |  | }
71 |  |  |  |  | return;
72 |  |  |  |  | }
73 |  |  |  |  |
74 |  |  |  |  | sub warn {
75 |  |  |  |  | my ( $package, undef, undef, $feature ) = caller(1);
76 |  |  |  |  |
77 |  |  |  |  | my $compat_version;
78 |  |  |  |  | while ( $package && !defined( $compat_version = $Registry{$package} ) ) {
79 |  |  |  |  | $package =~ s/ :: \w+ \z//xms or last;
80 |  |  |  |  | }
81 |  |  |  |  |
82 |  |  |  |  | my $deprecated_at = $DeprecatedAt{$feature}
83 |  |  |  |  | or die "Unregistered deprecated feature: $feature";
84 |  |  |  |  |
85 |  |  |  |  | if ( !defined($compat_version)
86 |  |  |  |  | || $compat_version >= $DeprecatedAt{$feature} ) {
87 |  |  |  |  | goto &cluck;
88 |  |  |  |  | }
89 |  |  |  |  | }
90 |  |  |  |  |
91 |  |  |  |  | package
92 |  |  |  |  | Class::MOP;
93 |  |  |  |  |
94 |  |  |  |  | sub HAVE_ISAREV () {
95 |  |  |  |  | Class::MOP::Deprecated::warn(
96 |  |  |  |  | "Class::MOP::HAVE_ISAREV is deprecated and will be removed in a future release. It has always returned 1 anyway."
97 |  |  |  |  | );
98 |  |  |  |  | return 1;
99 |  |  |  |  | }
100 |  |  |  |  |
101 |  |  |  |  | sub subname {
102 |  |  |  |  | Class::MOP::Deprecated::warn(
103 |  |  |  |  | "Class::MOP::subname is deprecated. Please use Sub::Name directly.");
104 |  |  |  |  | require Sub::Name;
105 |  |  |  |  | goto \&Sub::Name::subname;
106 |  |  |  |  | }
107 |  |  |  |  |
108 |  |  |  |  | sub in_global_destruction {
109 |  |  |  |  | Class::MOP::Deprecated::warn(
110 |  |  |  |  | "Class::MOP::in_global_destruction is deprecated. Please use Devel::GlobalDestruction directly."
111 |  |  |  |  | );
112 |  |  |  |  | require Devel::GlobalDestruction;
113 |  |  |  |  | goto \&Devel::GlobalDestruction::in_global_destruction;
114 |  |  |  |  | }
115 |  |  |  |  |
116 |  |  |  |  | package
117 |  |  |  |  | Class::MOP::Package;
118 |  |  |  |  |
119 |  |  |  |  | sub get_method_map {
120 |  |  |  |  | Class::MOP::Deprecated::warn(
121 |  |  |  |  | 'The get_method_map method has been made private.'
122 |  |  |  |  | . " The public version is deprecated and will be removed in a future release.\n"
123 |  |  |  |  | );
124 |  |  |  |  | my $self = shift;
125 |  |  |  |  |
126 |  |  |  |  | my $map = $self->_full_method_map;
127 |  |  |  |  |
128 |  |  |  |  | $map->{$_} = $self->get_method($_)
129 |  |  |  |  | for grep { !blessed( $map->{$_} ) } keys %{$map};
130 |  |  |  |  |
131 |  |  |  |  | return $map;
132 |  |  |  |  | }
133 |  |  |  |  |
134 |  |  |  |  | package
135 |  |  |  |  | Class::MOP::Module;
136 |  |  |  |  |
137 |  |  |  |  | package
138 |  |  |  |  | Class::MOP::Class;
139 |  |  |  |  |
140 |  |  |  |  | sub construct_class_instance {
141 |  |  |  |  | Class::MOP::Deprecated::warn(
142 |  |  |  |  | 'The construct_class_instance method has been made private.'
143 |  |  |  |  | . " The public version is deprecated and will be removed in a future release.\n"
144 |  |  |  |  | );
145 |  |  |  |  | shift->_construct_class_instance(@_);
146 |  |  |  |  | }
147 |  |  |  |  |
148 |  |  |  |  | sub check_metaclass_compatibility {
149 |  |  |  |  | Class::MOP::Deprecated::warn(
150 |  |  |  |  | 'The check_metaclass_compatibility method has been made private.'
151 |  |  |  |  | . " The public version is deprecated and will be removed in a future release.\n"
152 |  |  |  |  | );
153 |  |  |  |  | shift->_check_metaclass_compatibility(@_);
154 |  |  |  |  | }
155 |  |  |  |  |
156 |  |  |  |  | sub construct_instance {
157 |  |  |  |  | Class::MOP::Deprecated::warn(
158 |  |  |  |  | 'The construct_instance method has been made private.'
159 |  |  |  |  | . " The public version is deprecated and will be removed in a future release.\n"
160 |  |  |  |  | );
161 |  |  |  |  | shift->_construct_instance(@_);
162 |  |  |  |  | }
163 |  |  |  |  |
164 |  |  |  |  | sub create_meta_instance {
165 |  |  |  |  | Class::MOP::Deprecated::warn(
166 |  |  |  |  | 'The create_meta_instance method has been made private.'
167 |  |  |  |  | . " The public version is deprecated and will be removed in a future release.\n"
168 |  |  |  |  | );
169 |  |  |  |  | shift->_create_meta_instance(@_);
170 |  |  |  |  | }
171 |  |  |  |  |
172 |  |  |  |  | sub clone_instance {
173 |  |  |  |  | Class::MOP::Deprecated::warn(
174 |  |  |  |  | 'The clone_instance method has been made private.'
175 |  |  |  |  | . " The public version is deprecated and will be removed in a future release.\n"
176 |  |  |  |  | );
177 |  |  |  |  | shift->_clone_instance(@_);
178 |  |  |  |  | }
179 |  |  |  |  |
180 |  |  |  |  | sub alias_method {
181 |  |  |  |  | Class::MOP::Deprecated::warn(
182 |  |  |  |  | "The alias_method method is deprecated. Use add_method instead.\n");
183 |  |  |  |  |
184 |  |  |  |  | shift->add_method(@_);
185 |  |  |  |  | }
186 |  |  |  |  |
187 |  |  |  |  | sub compute_all_applicable_methods {
188 |  |  |  |  | Class::MOP::Deprecated::warn(
189 |  |  |  |  | 'The compute_all_applicable_methods method is deprecated.'
190 |  |  |  |  | . " Use get_all_methods instead.\n" );
191 |  |  |  |  |
192 |  |  |  |  | return map {
193 |  |  |  |  | {
194 |  |  |  |  | name => $_->name,
195 |  |  |  |  | class => $_->package_name,
196 |  |  |  |  | code => $_, # sigh, overloading
197 |  |  |  |  | },
198 |  |  |  |  | } shift->get_all_methods(@_);
199 |  |  |  |  | }
200 |  |  |  |  |
201 |  |  |  |  | sub compute_all_applicable_attributes {
202 |  |  |  |  | Class::MOP::Deprecated::warn(
203 |  |  |  |  | 'The compute_all_applicable_attributes method has been deprecated.'
204 |  |  |  |  | . " Use get_all_attributes instead.\n" );
205 |  |  |  |  |
206 |  |  |  |  | shift->get_all_attributes(@_);
207 |  |  |  |  | }
208 |  |  |  |  |
209 |  |  |  |  | sub get_attribute_map {
210 |  |  |  |  | Class::MOP::Deprecated::warn(
211 |  |  |  |  | "The get_attribute_map method has been deprecated.\n");
212 |  |  |  |  |
213 |  |  |  |  | shift->_attribute_map(@_);
214 |  |  |  |  | }
215 |  |  |  |  |
216 |  |  |  |  | package
217 |  |  |  |  | Class::MOP::Instance;
218 |  |  |  |  |
219 |  |  |  |  | sub bless_instance_structure {
220 |  |  |  |  | Class::MOP::Deprecated::warn(
221 |  |  |  |  | 'The bless_instance_structure method is deprecated.'
222 |  |  |  |  | . " It will be removed in a future release.\n" );
223 |  |  |  |  |
224 |  |  |  |  | my ( $self, $instance_structure ) = @_;
225 |  |  |  |  | bless $instance_structure, $self->_class_name;
226 |  |  |  |  | }
227 |  |  |  |  |
228 |  |  |  |  | package
229 |  |  |  |  | Class::MOP::Attribute;
230 |  |  |  |  |
231 |  |  |  |  | sub process_accessors {
232 |  |  |  |  | Class::MOP::Deprecated::warn(
233 |  |  |  |  | 'The process_accessors method has been made private.'
234 |  |  |  |  | . " The public version is deprecated and will be removed in a future release.\n"
235 |  |  |  |  | );
236 |  |  |  |  | shift->_process_accessors(@_);
237 |  |  |  |  | }
238 |  |  |  |  |
239 |  |  |  |  | package
240 |  |  |  |  | Class::MOP::Method::Accessor;
241 |  |  |  |  |
242 |  |  |  |  | sub initialize_body {
243 |  |  |  |  | Class::MOP::Deprecated::warn(
244 |  |  |  |  | 'The initialize_body method has been made private.'
245 |  |  |  |  | . " The public version is deprecated and will be removed in a future release.\n"
246 |  |  |  |  | );
247 |  |  |  |  | shift->_initialize_body;
248 |  |  |  |  | }
249 |  |  |  |  |
250 |  |  |  |  | sub generate_accessor_method {
251 |  |  |  |  | Class::MOP::Deprecated::warn(
252 |  |  |  |  | 'The generate_accessor_method method has been made private.'
253 |  |  |  |  | . " The public version is deprecated and will be removed in a future release.\n"
254 |  |  |  |  | );
255 |  |  |  |  | shift->_generate_accessor_method;
256 |  |  |  |  | }
257 |  |  |  |  |
258 |  |  |  |  | sub generate_reader_method {
259 |  |  |  |  | Class::MOP::Deprecated::warn(
260 |  |  |  |  | 'The generate_reader_method method has been made private.'
261 |  |  |  |  | . " The public version is deprecated and will be removed in a future release.\n"
262 |  |  |  |  | );
263 |  |  |  |  | shift->_generate_reader_method;
264 |  |  |  |  | }
265 |  |  |  |  |
266 |  |  |  |  | sub generate_writer_method {
267 |  |  |  |  | Class::MOP::Deprecated::warn(
268 |  |  |  |  | 'The generate_writer_method method has been made private.'
269 |  |  |  |  | . " The public version is deprecated and will be removed in a future release.\n"
270 |  |  |  |  | );
271 |  |  |  |  | shift->_generate_writer_method;
272 |  |  |  |  | }
273 |  |  |  |  |
274 |  |  |  |  | sub generate_predicate_method {
275 |  |  |  |  | Class::MOP::Deprecated::warn(
276 |  |  |  |  | 'The generate_predicate_method method has been made private.'
277 |  |  |  |  | . " The public version is deprecated and will be removed in a future release.\n"
278 |  |  |  |  | );
279 |  |  |  |  | shift->_generate_predicate_method;
280 |  |  |  |  | }
281 |  |  |  |  |
282 |  |  |  |  | sub generate_clearer_method {
283 |  |  |  |  | Class::MOP::Deprecated::warn(
284 |  |  |  |  | 'The generate_clearer_method method has been made private.'
285 |  |  |  |  | . " The public version is deprecated and will be removed in a future release.\n"
286 |  |  |  |  | );
287 |  |  |  |  | shift->_generate_clearer_method;
288 |  |  |  |  | }
289 |  |  |  |  |
290 |  |  |  |  | sub generate_accessor_method_inline {
291 |  |  |  |  | Class::MOP::Deprecated::warn(
292 |  |  |  |  | 'The generate_accessor_method_inline method has been made private.'
293 |  |  |  |  | . " The public version is deprecated and will be removed in a future release.\n"
294 |  |  |  |  | );
295 |  |  |  |  | shift->_generate_accessor_method_inline;
296 |  |  |  |  | }
297 |  |  |  |  |
298 |  |  |  |  | sub generate_reader_method_inline {
299 |  |  |  |  | Class::MOP::Deprecated::warn(
300 |  |  |  |  | 'The generate_reader_method_inline method has been made private.'
301 |  |  |  |  | . " The public version is deprecated and will be removed in a future release.\n"
302 |  |  |  |  | );
303 |  |  |  |  | shift->_generate_reader_method_inline;
304 |  |  |  |  | }
305 |  |  |  |  |
306 |  |  |  |  | sub generate_writer_method_inline {
307 |  |  |  |  | Class::MOP::Deprecated::warn(
308 |  |  |  |  | 'The generate_writer_method_inline method has been made private.'
309 |  |  |  |  | . " The public version is deprecated and will be removed in a future release.\n"
310 |  |  |  |  | );
311 |  |  |  |  | shift->_generate_writer_method_inline;
312 |  |  |  |  | }
313 |  |  |  |  |
314 |  |  |  |  | sub generate_predicate_method_inline {
315 |  |  |  |  | Class::MOP::Deprecated::warn(
316 |  |  |  |  | 'The generate_predicate_method_inline method has been made private.'
317 |  |  |  |  | . " The public version is deprecated and will be removed in a future release.\n"
318 |  |  |  |  | );
319 |  |  |  |  | shift->_generate_predicate_method_inline;
320 |  |  |  |  | }
321 |  |  |  |  |
322 |  |  |  |  | sub generate_clearer_method_inline {
323 |  |  |  |  | Class::MOP::Deprecated::warn(
324 |  |  |  |  | 'The generate_clearer_method_inline method has been made private.'
325 |  |  |  |  | . " The public version is deprecated and will be removed in a future release.\n"
326 |  |  |  |  | );
327 |  |  |  |  | shift->_generate_clearer_method_inline;
328 |  |  |  |  | }
329 |  |  |  |  |
330 |  |  |  |  | package
331 |  |  |  |  | Class::MOP::Method::Constructor;
332 |  |  |  |  |
333 |  |  |  |  | sub meta_instance {
334 |  |  |  |  | Class::MOP::Deprecated::warn(
335 |  |  |  |  | 'The meta_instance method has been made private.'
336 |  |  |  |  | . " The public version is deprecated and will be removed in a future release.\n"
337 |  |  |  |  | );
338 |  |  |  |  | shift->_meta_instance;
339 |  |  |  |  | }
340 |  |  |  |  |
341 |  |  |  |  | sub attributes {
342 |  |  |  |  | Class::MOP::Deprecated::warn(
343 |  |  |  |  | 'The attributes method has been made private.'
344 |  |  |  |  | . " The public version is deprecated and will be removed in a future release.\n"
345 |  |  |  |  | );
346 |  |  |  |  |
347 |  |  |  |  | return shift->_attributes;
348 |  |  |  |  | }
349 |  |  |  |  |
350 |  |  |  |  | sub initialize_body {
351 |  |  |  |  | Class::MOP::Deprecated::warn(
352 |  |  |  |  | 'The initialize_body method has been made private.'
353 |  |  |  |  | . " The public version is deprecated and will be removed in a future release.\n"
354 |  |  |  |  | );
355 |  |  |  |  | shift->_initialize_body;
356 |  |  |  |  | }
357 |  |  |  |  |
358 |  |  |  |  | sub generate_constructor_method {
359 |  |  |  |  | Class::MOP::Deprecated::warn(
360 |  |  |  |  | 'The generate_constructor_method method has been made private.'
361 |  |  |  |  | . " The public version is deprecated and will be removed in a future release.\n"
362 |  |  |  |  | );
363 |  |  |  |  | shift->_generate_constructor_method;
364 |  |  |  |  | }
365 |  |  |  |  |
366 |  |  |  |  | sub generate_constructor_method_inline {
367 |  |  |  |  | Class::MOP::Deprecated::warn(
368 |  |  |  |  | 'The generate_constructor_method_inline method has been made private.'
369 |  |  |  |  | . " The public version is deprecated and will be removed in a future release.\n"
370 |  |  |  |  | );
371 |  |  |  |  | shift->_generate_constructor_method_inline;
372 |  |  |  |  | }
373 |  |  |  |  |
374 | 1 | 15µs |  |  | 1;
375 |  |  |  |  |
376 |  |  |  |  | __END__
377 |  |  |  |  |
378 |  |  |  |  | =pod
379 |  |  |  |  |
380 |  |  |  |  | =head1 NAME
381 |  |  |  |  |
382 |  |  |  |  | Class::MOP::Deprecated - List of deprecated methods
383 |  |  |  |  |
384 |  |  |  |  | =head1 DESCRIPTION
385 |  |  |  |  |
386 |  |  |  |  | use Class::MOP::Deprecated -compatible => $version;
387 |  |  |  |  |
388 |  |  |  |  | =head1 FUNCTIONS
389 |  |  |  |  |
390 |  |  |  |  | This class provides methods that have been deprecated but remain for backward
391 |  |  |  |  | compatibility.
392 |  |  |  |  |
393 |  |  |  |  | If you specify C<< -compatible => $version >>, you can use deprecated features
394 |  |  |  |  | without warnings. Note that this special treatment is limited to the package
395 |  |  |  |  | that loads C<Class::MOP::Deprecated>.
396 |  |  |  |  |
397 |  |  |  |  | =head1 AUTHORS
398 |  |  |  |  |
399 |  |  |  |  | Goro Fuji E<lt>gfuji@cpan.orgE<gt>
400 |  |  |  |  |
401 |  |  |  |  | =head1 COPYRIGHT AND LICENSE
402 |  |  |  |  |
403 |  |  |  |  | Copyright 2006-2010 by Infinity Interactive, Inc.
404 |  |  |  |  |
405 |  |  |  |  | L<http://www.iinteractive.com>
406 |  |  |  |  |
407 |  |  |  |  | This library is free software; you can redistribute it and/or modify
408 |  |  |  |  | it under the same terms as Perl itself.
409 |  |  |  |  |
410 |  |  |  |  | =cut