make ::Constructor readable

[gitmo/Moose.git] / t / 050_metaclasses / 052_metaclass_compat.t

diff --git a/t/050_metaclasses/052_metaclass_compat.t b/t/050_metaclasses/052_metaclass_compat.t
index f56fc59..675daf4 100644 (file)
--- a/t/050_metaclasses/052_metaclass_compat.t
+++ b/t/050_metaclasses/052_metaclass_compat.t
@@ -13,7 +13,10 @@ our $called = 0;
     around _generate_BUILDALL => sub {
         my $orig = shift;
         my $self = shift;
-        return $self->$orig(@_) . '$::called++;';
+        return (
+            $self->$orig(@_),
+            '$::called++;'
+        );
     }
 }