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 $message = join("", map { "\n". (" " x $_->{level}) ."[+] " . $_->{message} } reverse @messages);
38 __PACKAGE__->meta->make_immutable;