less noisey validation messages

[gitmo/MooseX-Types-Structured.git] / lib / MooseX / Types / Structured / MessageStack.pm

diff --git a/lib/MooseX/Types/Structured/MessageStack.pm b/lib/MooseX/Types/Structured/MessageStack.pm
index 38a8a34..399580d 100644 (file)
--- a/lib/MooseX/Types/Structured/MessageStack.pm
+++ b/lib/MooseX/Types/Structured/MessageStack.pm
@@ -27,9 +27,15 @@ has 'messages' => (
     },
 );
 
+sub _clean_message {
+    my $message = shift @_;
+    $message =~s/MooseX::Types::Structured:://g;
+    return $message;
+}
+
 sub as_string {
     my @messages = (shift)->all_messages;
-    my $message = join("", map { "\n". (" " x $_->{level}) ."[+] " . $_->{message} } reverse @messages);
+    my $message = join("", map { "\n". (" " x $_->{level}) ."[+] " . _clean_message($_->{message}) } reverse @messages);
     return $message;
 }