=cut
+sub _clean_message {
+ my $message = shift @_;
+ $message =~s/MooseX::Types::Structured:://g;
+ return $message;
+}
+
override 'validate' => sub {
my ($self, $value, $message_stack) = @_;
unless ($message_stack) {
return $self->get_message($args);
} else {
my $message_str = $message_stack->as_string;
- return $self->get_message("$args, Internal Validation Error is: $message_str");
+ return _clean_message($self->get_message("$args, Internal Validation Error is: $message_str"));
}
} else {
return $self->get_message($args);
},
);
-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}) ."[+] " . _clean_message($_->{message}) } reverse @messages);
+ my $message = join("", map { "\n". (" " x $_->{level}) ."[+] " . $_->{message} } reverse @messages);
return $message;
}