use Scalar::Util 'blessed', 'weaken', 'looks_like_number', 'refaddr';
-our $VERSION = '0.90';
+our $VERSION = '0.93';
our $AUTHORITY = 'cpan:STEVAN';
use base 'Moose::Meta::Method',
my $source = 'sub {';
$source .= "\n" . 'my $_instance = shift;';
- $source .= "\n" . q{Carp::cluck 'Calling new() on an instance is deprecated,'
- . ' please use (blessed $obj)->new' if blessed $_instance;};
-
$source .= "\n" . 'my $class = Scalar::Util::blessed($_instance) || $_instance;';
$source .= "\n" . 'return $class->Moose::Object::new(@_)';