HTML::XSSLint::Result - XSS audit result

HTML-XSSLint documentation Contained in the HTML-XSSLint distribution.

Index

Code Index:

NAME

Top

HTML::XSSLint::Result - XSS audit result

SYNOPSIS

Top

DO NOT USE THIS MODULE DIRECTLY

DESCRIPTION

Top

HTML::XSSLint::Result is a base class for HTML::XSSLint results objects.

AUTHOR

Top

Tatsuhiko Miyagawa <miyagawa@bulknews.net>

This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself.

SEE ALSO

Top

HTML::XSSLint

HTML-XSSLint documentation Contained in the HTML-XSSLint distribution. 
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 { $_ => '<s>test</s>' } $self->names);
    return $uri;
}

1;
__END__