2 package Class::MOP::Object;
7 use Scalar::Util 'blessed';
10 our $AUTHORITY = 'cpan:STEVAN';
15 require Class::MOP::Class;
16 Class::MOP::Class->initialize(blessed($_[0]) || $_[0]);
20 # Cmon, how many times have you written
21 # the following code while debugging:
26 # It can get seriously annoying, so why
27 # not just do this ...
31 local $Data::Dumper::Maxdepth = shift || 1;
32 Data::Dumper::Dumper $self;
43 Class::MOP::Object - Object Meta Object
47 This class is basically a stub, it provides no functionality at all,
48 and really just exists to make the Class::MOP metamodel complete.
54 +-----| Class::MOP::Class |
55 | +-------------------+
58 +--------------------+ : +--------------------+
59 | Class::MOP::Module | : | Class::MOP::Object |
60 +--------------------+ : +--------------------+
63 | +---------------------+ |
64 +--->| Class::MOP::Package |-----+
65 +---------------------+
68 ..(is an instance of)..>
69 --(is a subclass of)--->
71 A deeper discussion of this model is currently beyond the scope of
80 =item B<dump (?$max_depth)>
82 This will C<require> the L<Data::Dumper> module and then dump a
83 representation of your object. It passed the C<$max_depth> arg
84 to C<$Data::Dumper::Maxdepth>. The default C<$max_depth> is 1,
85 so it will not go crazy and print a massive bunch of stuff.
86 Adjust this as nessecary.
92 Stevan Little E<lt>stevan@iinteractive.comE<gt>
94 =head1 COPYRIGHT AND LICENSE
96 Copyright 2006-2008 by Infinity Interactive, Inc.
98 L<http://www.iinteractive.com>
100 This library is free software; you can redistribute it and/or modify
101 it under the same terms as Perl itself.