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.02';
  10 our $AUTHORITY = 'cpan:STEVAN';
  11
  12 # introspection
  13
  14 sub meta {
  15     require Class::MOP::Class;
  16     Class::MOP::Class->initialize(blessed($_[0]) || $_[0]);
  17 }
  18
  19 # RANT:
  20 # Cmon, how many times have you written
  21 # the following code while debugging:
  22 #
  23 #  use Data::Dumper;
  24 #  warn Dumper $obj;
  25 #
  26 # It can get seriously annoying, so why
  27 # not just do this ...
  28 sub dump {
  29     my $self = shift;
  30     require Data::Dumper;
  31     $Data::Dumper::Maxdepth = shift || 1;
  32     Data::Dumper::Dumper $self;
  33 }
  34
  35 1;
  36
  37 __END__
  38
  39 =pod
  40
  41 =head1 NAME
  42
  43 Class::MOP::Object - Object Meta Object
  44
  45 =head1 DESCRIPTION
  46
  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.
  49
  50                          ......
  51                         :      :
  52                         :      v
  53                   +-------------------+
  54             +-----| Class::MOP::Class |
  55             |     +-------------------+
  56             |        ^      ^       ^
  57             v        :      :       :
  58   +--------------------+    :      +--------------------+
  59   | Class::MOP::Module |    :      | Class::MOP::Object |
  60   +--------------------+    :      +--------------------+
  61             |               :                ^
  62             |               :                |
  63             |    +---------------------+     |
  64             +--->| Class::MOP::Package |-----+
  65                  +---------------------+
  66
  67   legend:
  68     ..(is an instance of)..>
  69     --(is a subclass of)-->
  70
  71 A deeper discussion of this model is currently beyond the scope of
  72 this documenation.
  73
  74 =head1 METHODS
  75
  76 =over 4
  77
  78 =item B<meta>
  79
  80 =item B<dump (?$max_depth)>
  81
  82 =back
  83
  84 =head1 AUTHORS
  85
  86 Stevan Little E<lt>stevan@iinteractive.comE<gt>
  87
  88 =head1 COPYRIGHT AND LICENSE
  89
  90 Copyright 2006 by Infinity Interactive, Inc.
  91
  92 L<http://www.iinteractive.com>
  93
  94 This library is free software; you can redistribute it and/or modify
  95 it under the same terms as Perl itself.
  96
  97 =cut