X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FMooseX%2FTypes%2FStructured%2FMessageStack.pm;h=56aa94889f1a879de6bb1516510a23c0fa74df1e;hb=refs%2Ftags%2F0.23;hp=38a8a345ed45c4b07ae2681119887562ab5e25d2;hpb=ea5b55ce8868282cd4f18a8040343036163ef1a2;p=gitmo%2FMooseX-Types-Structured.git diff --git a/lib/MooseX/Types/Structured/MessageStack.pm b/lib/MooseX/Types/Structured/MessageStack.pm index 38a8a34..56aa948 100644 --- a/lib/MooseX/Types/Structured/MessageStack.pm +++ b/lib/MooseX/Types/Structured/MessageStack.pm @@ -29,10 +29,12 @@ has 'messages' => ( sub as_string { my @messages = (shift)->all_messages; - my $message = join("", map { "\n". (" " x $_->{level}) ."[+] " . $_->{message} } reverse @messages); - return $message; -} + my @flattened_msgs = map { + "\n". (" " x $_->{level}) ."[+] " . $_->{message}; + } reverse @messages; + return join("", @flattened_msgs); +} no Moose; __PACKAGE__->meta->make_immutable;