File Coverage

blib/lib/Articulate/Validation.pm

Criterion	Covered	Total	%
statement	18	20	90.0
branch	0	2	0.0
condition			n/a
subroutine	5	5	100.0
pod	1	1	100.0
total	24	28	85.7

package Articulate::Validation;
use strict;
use warnings;

use Moo;

with 'Articulate::Role::Component';
use Articulate::Syntax qw(instantiate_array);

=head1 NAME

Articulate::Validation - ensure content is valid before accepting it.

=head1 DESCRIPTION

  use Articulate::Validation;
  $validation->validate($meta, $content) or throw_error;

Validators should return a true argument if either a) The item is valid, or b) The validator has no opinion on the item.

=head1 METHODS

=head3 validate

Iterates through the validators. Returns false if any has a false result. Returns true otherwise.

=cut

=head1 ATTTRIBUTES

=head3 validators

An arrayref of the classes which provide a validate function, in the order in which they will be asked to validate items.

=cut

has validators =>
  is      => 'rw',
  default => sub { [] },
  coerce  => sub { instantiate_array @_ };

sub validate {
  my $self    = shift;
  my $meta    = shift;
  my $content = shift;
  foreach my $validator (@{ $self->validators }) {
    my $result = $validator->validate($meta, $content);
    return $result unless $result;
  }
  return 1;
}

1;