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 Scalar::Util::blessed($_instance);};
-
$source .= "\n" . 'my $class = Scalar::Util::blessed($_instance) || $_instance;';
$source .= "\n" . 'return $class->Moose::Object::new(@_)';
=head1 COPYRIGHT AND LICENSE
-Copyright 2006-2009 by Infinity Interactive, Inc.
+Copyright 2006-2010 by Infinity Interactive, Inc.
L<http://www.iinteractive.com>