File Coverage

blib/lib/Validation/Class/Directive/Error.pm

Criterion	Covered	Total	%
statement	18	18	100.0
branch	2	2	100.0
condition			n/a
subroutine	5	5	100.0
pod	0	1	0.0
total	25	26	96.1

# ABSTRACT: Error Directive for Validation Class Field Definitions

package Validation::Class::Directive::Error;

use strict;
use warnings;

use base 'Validation::Class::Directive';

use Validation::Class::Util;

our $VERSION = '7.900057'; # VERSION


has 'mixin' => 0;
has 'field' => 1;
has 'multi' => 0;

sub normalize {

    my ($self, $proto, $field) = @_;

    # static messages may contain multiline strings for the sake of
    # aesthetics, flatten them here

    if (defined $field->{error}) {

        $field->{error} =~ s/^[\n\s\t\r]+//g;
        $field->{error} =~ s/[\n\s\t\r]+$//g;
        $field->{error} =~ s/[\n\s\t\r]+/ /g;

    }

    return $self;

}

1;

__END__