File Coverage

blib/lib/HTML/WidgetValidator.pm

Criterion	Covered	Total	%
statement	15	23	65.2
branch			n/a
condition			n/a
subroutine	5	8	62.5
pod	0	4	0.0
total	20	35	57.1

package HTML::WidgetValidator;
use warnings;
use strict;
use HTML::WidgetValidator::HTMLParser;
use HTML::WidgetValidator::WidgetContainer;

our $VERSION = '0.0.3';

sub new {
    my ($class, %args) = @_;
    my $self = bless {
	parser    => HTML::WidgetValidator::HTMLParser->new,
	container => HTML::WidgetValidator::WidgetContainer->new(%args),
    }, $class;
    return $self;
}

sub add {
    my $self = shift;
    $self->{container}->add(@_);
}

sub validate {
    my ($self, $html) = @_;
    my $result;
    my $elements = $self->{parser}->parse($html);
    return $self->{container}->match($elements, $html);
}

sub widgets {
    my $self = shift;
    return $self->{container}->widgets;
}

1;
__END__