—package
QualysGuard::Response::IScannerList;
use
warnings;
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
(
'/ISCANNER_LIST/ERROR'
) ) {
$self
->{error_code} =
$self
->findvalue(
'/ISCANNER_LIST/ERROR/@number'
);
$self
->{error_text} =
$self
->getNodeText(
'/ISCANNER_LIST/ERROR'
);
$self
->{error_text} =~ s/^\s+(.*)\s+$/$1/m;
}
return
$self
;
}
1;
__END__
=head1 NAME
QualysGuard::Response::IScannerList
=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.