X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=gitmo%2FMooseX-Types-Structured.git;a=blobdiff_plain;f=lib%2FMooseX%2FTypes%2FStructured%2FMessageStack.pm;h=a5dbeef173739a9ed66b81ec3b51e9d1274712f6;hp=ec20df66321f3c4845ad0f977dfbe6a6c06165b5;hb=fc5995b6cb005b8d8a792cb5581688ffc2379ade;hpb=852f8d8d4b2f0cddd25fe0bc130174295763d21e diff --git a/lib/MooseX/Types/Structured/MessageStack.pm b/lib/MooseX/Types/Structured/MessageStack.pm index ec20df6..a5dbeef 100644 --- a/lib/MooseX/Types/Structured/MessageStack.pm +++ b/lib/MooseX/Types/Structured/MessageStack.pm @@ -1,6 +1,10 @@ package MooseX::Types::Structured::MessageStack; use Moose; +=attr level + +=cut + has 'level' => ( traits => ['Counter'], is => 'ro', @@ -13,6 +17,10 @@ has 'level' => ( }, ); +=attr messages + +=cut + has 'messages' => ( traits => ['Array'], is => 'ro', @@ -26,6 +34,10 @@ has 'messages' => ( }, ); +=method as_string + +=cut + sub as_string { my @messages = (shift)->all_messages; my @flattened_msgs = map {