1 package MooseX::Types::Structured::MessageStack;
16 # :level, :message, :tc
20 isa => 'ArrayRef[HashRef]',
22 default => sub { [] },
24 has_messages => 'count',
25 add_message => 'push',
26 all_messages => 'elements',
31 my @messages = (shift)->all_messages;
32 my @flattened_msgs = map {
33 "\n". (" " x $_->{level}) ."[+] " . $_->{message};
36 return join("", @flattened_msgs);
40 __PACKAGE__->meta->make_immutable;