File Coverage

blib/lib/Biblio/SICI/Role/ValidSegment.pm

Criterion	Covered	Total	%
statement	20	29	68.9
branch	2	8	25.0
condition	0	15	0.0
subroutine	6	8	75.0
pod	4	4	100.0
total	32	64	50.0

package Biblio::SICI::Role::ValidSegment;
{
  $Biblio::SICI::Role::ValidSegment::VERSION = '0.04';
}

# ABSTRACT: Role to provide common validation error handling functionality to the segments

use strict;
use warnings;

use Moo::Role;


has validationErrors => ( is => 'lazy', );

sub _build_validationErrors {
	return {};
}


sub log_problem_on {
	my ( $self, $attr, $desc ) = @_;

	if ( defined($attr) and $attr and defined($desc) and $desc ) {
		$self->validationErrors->{$attr} = $desc;
	}
	return;
}


sub clear_problem_on {
	my ( $self, $attr ) = @_;

	delete $self->validationErrors->{$attr} if exists $self->validationErrors->{$attr};
	return;
}


sub list_problems {
	my $self = shift;
	return %{ $self->validationErrors };
}


sub is_valid {
	my $self    = shift;
	my $invalid = 0;

	my %problems = %{ $self->validationErrors };

	foreach my $attr ( keys %problems ) {
		if ( exists $problems{$attr} and defined $problems{$attr} and $problems{$attr} ne '' ) {
			$invalid++;
		}
	}
	return 0 if $invalid;
	return 1;
}


1;

__END__