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 $message = shift @_;
32 $message =~s/MooseX::Types::Structured:://g;
37 my @messages = (shift)->all_messages;
38 my $message = join("", map { "\n". (" " x $_->{level}) ."[+] " . _clean_message($_->{message}) } reverse @messages);
44 __PACKAGE__->meta->make_immutable;