-package MooseX::Types::Structured::MessageStack;
+package ## Hide from PAUSE
+ MooseX::Types::Structured::MessageStack;
+
use Moose;
+=attr level
+
+=cut
+
has 'level' => (
traits => ['Counter'],
is => 'ro',
},
);
-# :level, :message, :tc
+=attr messages
+
+=cut
+
has 'messages' => (
traits => ['Array'],
is => 'ro',
},
);
+=method as_string
+
+=cut
+
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;