use strict;
our $VERSION = '0.01';
# =============================================================
# - new
# =============================================================
sub new {
my ( $class, $xml ) = @_;
my $self = __PACKAGE__->SUPER::new( $xml );
bless $self, $class;
# -- check for QualysGuard function error
if ( $self->exists('/SCANNEROPTIONS/ERROR') ) {
$self->{error_code} = $self->findvalue('/SCANNEROPTIONS/ERROR/@number');
$self->{error_text} = $self->getNodeText('/SCANNEROPTIONS/ERROR');
$self->{error_text} =~ s/^\s+(.*)\s+$/$1/m;
}
return $self;
}
1;
__END__
=head1 NAME
QualysGuard::Response::ScanOptions
=head1 VERSION
Version 0.01
=head1 SYNOPSIS
see L<QualysGuard::Request> for more information.
=head1 DESCRIPTION
This module is a subclass of QualysGuard::Response and XML::XPath.
see QualysGuard API documentation for more information.
=head1 AUTHOR
Patrick Devlin, C<< <pdevlin at cpan.org> >>
=head1 BUGS
Please report any bugs or feature requests to C<bug-qualysguard-response-assetdatareport at rt.cpan.org>, or through
the web interface at L<http://rt.cpan.org/NoAuth/ReportBug.html?Queue=QualysGuard::Request>. I will be notified, and then you'll
automatically be notified of progress on your bug as I make changes.
=head1 SUPPORT
You can find documentation for this module with the perldoc command.
perldoc QualysGuard::Request
You can also look for information at:
=over 4
=item * RT: CPAN's request tracker
=item * AnnoCPAN: Annotated CPAN documentation
=item * CPAN Ratings
=item * Search CPAN
=back
=head1 SEE ALSO
L<QualysGuard::Request>
=head1 COPYRIGHT & LICENSE
Copyright 2008 Patrick Devlin, all rights reserved.
This program is free software; you can redistribute it and/or modify it
under the same terms as Perl itself.
Qualys and the QualysGuard product are registered trademarks of Qualys, Inc.