bump version to 1.19

[gitmo/Moose.git] / lib / Moose / Meta / Method / Constructor.pm

diff --git a/lib/Moose/Meta/Method/Constructor.pm b/lib/Moose/Meta/Method/Constructor.pm
index fc043e7..c1af28d 100644 (file)
--- a/lib/Moose/Meta/Method/Constructor.pm
+++ b/lib/Moose/Meta/Method/Constructor.pm
@@ -7,7 +7,7 @@ use warnings;
 use Carp ();
 use Scalar::Util 'blessed', 'weaken', 'looks_like_number', 'refaddr';
 
-our $VERSION   = '1.15';
+our $VERSION   = '1.19';
 our $AUTHORITY = 'cpan:STEVAN';
 
 use base 'Moose::Meta::Method',
@@ -149,25 +149,26 @@ sub _generate_BUILDARGS {
         and ( !$buildargs or $buildargs->body == \&Moose::Object::BUILDARGS )
         ) {
 
-        # This is basically a copy of Moose::Object::BUILDARGS wrapped in a do
-        # {} block.
+        # This is the same logic as Moose::Object::BUILDARGS
         return sprintf( <<'EOF', $self->_inline_throw_error( q{'Single parameters to new() must be a HASH ref'}, 'data => $_[0]' ) );
 do {
+    my $params;
     if ( scalar @_ == 1 ) {
         unless ( defined $_[0] && ref $_[0] eq 'HASH' ) {
             %s
         }
-        return { %%{ $_[0] } };
+        $params = { %%{ $_[0] } };
     }
     elsif ( @_ %% 2 ) {
         Carp::carp(
             "The new() method for $class expects a hash reference or a key/value list."
                 . " You passed an odd number of arguments" );
-        return { @_, undef };
+        $params = { @_, undef };
     }
     else {
-        return {@_};
+        $params = {@_};
     }
+    $params
 };
 EOF
             ;