Merge branch 'master' of gitmo@git.moose.perl.org:Class-MOP
[gitmo/Class-MOP.git] / lib / Class / MOP / Object.pm
1
2 package Class::MOP::Object;
3
4 use strict;
5 use warnings;
6
7 use Scalar::Util 'blessed';
8
9 our $VERSION   = '0.89';
10 $VERSION = eval $VERSION;
11 our $AUTHORITY = 'cpan:STEVAN';
12
13 # introspection
14
15 sub meta { 
16     require Class::MOP::Class;
17     Class::MOP::Class->initialize(blessed($_[0]) || $_[0]);
18 }
19
20 sub _new {
21     Class::MOP::class_of(shift)->new_object(@_);
22 }
23
24 # RANT:
25 # Cmon, how many times have you written 
26 # the following code while debugging:
27
28 #  use Data::Dumper; 
29 #  warn Dumper $obj;
30 #
31 # It can get seriously annoying, so why 
32 # not just do this ...
33 sub dump { 
34     my $self = shift;
35     require Data::Dumper;
36     local $Data::Dumper::Maxdepth = shift || 1;
37     Data::Dumper::Dumper $self;
38 }
39
40 1;
41
42 __END__
43
44 =pod
45
46 =head1 NAME 
47
48 Class::MOP::Object - Base class for metaclasses
49
50 =head1 DESCRIPTION
51
52 This class is a very minimal base class for metaclasses.
53
54 =head1 METHODS
55
56 This class provides a few methods which are useful in all metaclasses.
57
58 =over 4
59
60 =item B<< Class::MOP::???->meta >>
61
62 This returns a L<Class::MOP::Class> object.
63
64 =item B<< $metaobject->dump($max_depth) >>
65
66 This method uses L<Data::Dumper> to dump the object. You can pass an
67 optional maximum depth, which will set C<$Data::Dumper::Maxdepth>. The
68 default maximum depth is 1.
69
70 =back
71
72 =head1 AUTHORS
73
74 Stevan Little E<lt>stevan@iinteractive.comE<gt>
75
76 =head1 COPYRIGHT AND LICENSE
77
78 Copyright 2006-2009 by Infinity Interactive, Inc.
79
80 L<http://www.iinteractive.com>
81
82 This library is free software; you can redistribute it and/or modify
83 it under the same terms as Perl itself.
84
85 =cut