File Coverage

blib/lib/Valiemon/ValidationError.pm

Criterion	Covered	Total	%
statement	17	19	89.4
branch			n/a
condition			n/a
subroutine	6	7	85.7
pod	0	3	0.0
total	23	29	79.3

package Valiemon::ValidationError;
use strict;
use warnings;
use utf8;

use Class::Accessor::Lite (
    ro => [qw(attribute position expected actual)],
);

sub new {
    my ($class, $attr, $position) = @_;
    return bless {
        attribute => $attr,
        position  => $position,
    }, $class;
}

sub set_detail {
    my ($self, %params) = @_;

    $self->{expected} = $params{expected};
    $self->{actual} = $params{actual};
}

sub as_message {
    my ($self) = @_;
    return sprintf 'invalid `%s` at `%s`.',
        $self->attribute->attr_name, $self->position;
}

1;