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;
}
=head1 COPYRIGHT AND LICENSE
-Copyright 2006, 2007 by Infinity Interactive, Inc.
+Copyright 2006-2008 by Infinity Interactive, Inc.
L<http://www.iinteractive.com>