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;
}