File Coverage

blib/lib/MooX/Role/Validatable/Error.pm

Criterion	Covered	Total	%
statement	16	16	100.0
branch	1	2	50.0
condition	1	2	50.0
subroutine	4	4	100.0
pod	0	1	0.0
total	22	25	88.0

package MooX::Role::Validatable::Error;

use Moo;
use Types::Standard qw( Str Int Bool );

has message => (
    is       => 'ro',
    required => 1,
);

has message_to_client => (
    is       => 'ro',
    required => 1,
);

has set_by => (
    is       => 'ro',
    required => 1,
);

has severity => (
    is      => 'ro',
    isa     => Int,
    default => sub { 1 },
);

has transient => (
    is      => 'ro',
    isa     => Bool,
    default => sub { 0 },
);

has alert => (
    is      => 'ro',
    isa     => Bool,
    default => sub { 0 },
);

has info_link => (is => 'ro');
has info_text => (is => 'ro');

sub as_html {
    my $self = shift;

    my $html = "" . $self->message_to_client;
    if (my $info_link = $self->info_link) {
        my $info_text = $self->info_text || 'More Info...';
        $html .= qq~$info_text\n~;
    }
    $html .= "\n";

    return $html;
}

no Moo;
1;
__END__