use Scalar::Util 'blessed';
-our $VERSION = '0.02';
+our $VERSION = '0.64_03';
+$VERSION = eval $VERSION;
our $AUTHORITY = 'cpan:STEVAN';
# introspection
Class::MOP::Class->initialize(blessed($_[0]) || $_[0]);
}
+sub _new {
+ shift->meta->new_object(@_);
+}
+
# RANT:
# Cmon, how many times have you written
# the following code while debugging:
sub dump {
my $self = shift;
require Data::Dumper;
- $Data::Dumper::Maxdepth = shift || 1;
+ local $Data::Dumper::Maxdepth = shift || 1;
Data::Dumper::Dumper $self;
}
legend:
..(is an instance of)..>
- --(is a subclass of)-->
+ --(is a subclass of)--->
A deeper discussion of this model is currently beyond the scope of
this documenation.
=item B<dump (?$max_depth)>
+This will C<require> the L<Data::Dumper> module and then dump a
+representation of your object. It passed the C<$max_depth> arg
+to C<$Data::Dumper::Maxdepth>. The default C<$max_depth> is 1,
+so it will not go crazy and print a massive bunch of stuff.
+Adjust this as nessecary.
+
=back
=head1 AUTHORS
=head1 COPYRIGHT AND LICENSE
-Copyright 2006 by Infinity Interactive, Inc.
+Copyright 2006-2008 by Infinity Interactive, Inc.
L<http://www.iinteractive.com>
This library is free software; you can redistribute it and/or modify
it under the same terms as Perl itself.
-=cut
\ No newline at end of file
+=cut