File Coverage

blib/lib/HTML/XSSLint/Result.pm

Criterion	Covered	Total	%
statement	25	25	100.0
branch	1	2	50.0
condition			n/a
subroutine	8	8	100.0
pod	0	5	0.0
total	34	40	85.0

package HTML::XSSLint::Result;

use strict;
use vars qw($VERSION);
$VERSION = 0.01;

use URI;

sub new {
    my($class, %p) = @_;
    bless {%p}, $class;
}

sub action {
    my $self = shift;
    return $self->{form}->action;
}

sub names {
    my $self = shift;
    return @{$self->{names}};
}

sub vulnerable {
    my $self = shift;
    return scalar @{$self->{names}} > 0;
}

sub example {
    my $self = shift;
    return undef unless $self->vulnerable;
    my $uri = URI->new($self->action);
    $uri->query_form(map { $_ => 'test' } $self->names);
    return $uri;
}

1;
__END__