more readable inlined code

[gitmo/Moose.git] / lib / Moose / Meta / TypeConstraint / Role.pm

diff --git a/lib/Moose/Meta/TypeConstraint/Role.pm b/lib/Moose/Meta/TypeConstraint/Role.pm
index 5544b6d..a69e6cd 100644 (file)
--- a/lib/Moose/Meta/TypeConstraint/Role.pm
+++ b/lib/Moose/Meta/TypeConstraint/Role.pm
@@ -18,8 +18,10 @@ my $inliner = sub {
     my $self = shift;
     my $val  = shift;
 
-    return
-        "Moose::Util::does_role( $val, " . B::perlstring( $self->role ) . ')';
+    return 'Moose::Util::does_role('
+             . $val . ', '
+             . B::perlstring($self->role)
+         . ')';
 };
 
 sub new {