File Coverage

blib/lib/HTML/WidgetValidator/Result.pm

Criterion	Covered	Total	%
statement	9	21	42.8
branch	0	4	0.0
condition			n/a
subroutine	3	7	42.8
pod	1	4	25.0
total	13	36	36.1

package HTML::WidgetValidator::Result;
use base qw(Class::Accessor::Fast);
use warnings;
use strict;

__PACKAGE__->mk_accessors(qw(widget elements));

sub new {
    my ($class, %args) = @_;
    my $self = $class->SUPER::new(\%args);
}

sub code {
    my $self = shift;
    return join '', map {$_->{text}} @{$self->elements};
}

sub name {
    my $self = shift;
    return unless $self->widget;
    return $self->widget->name;
}

sub url {
    my $self = shift;
    return unless $self->widget;
    return $self->widget->url;
}

1;
__END__