QualysGuard::Response::GenericReturn - QualysGuard::Response::GenericReturn documentation

Index

NAME
VERSION
SYNOPSIS
DESCRIPTION
AUTHOR
BUGS
SUPPORT
SEE ALSO
COPYRIGHT & LICENSE

Code Index:

package QualysGuard::Response::GenericReturn
- new
- is_success
- is_warning
- status_line
__END__
EOF

NAME

QualysGuard::Response::GenericReturn

VERSION

Version 0.01

SYNOPSIS

see QualysGuard::Request for more information.

DESCRIPTION

This module is a subclass of QualysGuard::Response and XML::XPath.

see QualysGuard API documentation for more information.

AUTHOR

Patrick Devlin, <pdevlin at cpan.org>

BUGS

Please report any bugs or feature requests to bug-qualysguard-response-assetdatareport at rt.cpan.org, or through the web interface at 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.

SUPPORT

You can find documentation for this module with the perldoc command.

    perldoc QualysGuard::Request

You can also look for information at:

* RT: CPAN's request tracker: http://rt.cpan.org/NoAuth/Bugs.html?Dist=QualysGuard::Request
* AnnoCPAN: Annotated CPAN documentation: http://annocpan.org/dist/QualysGuard::Request
* CPAN Ratings: http://cpanratings.perl.org/d/QualysGuard::Request
* Search CPAN: http://search.cpan.org/dist/QualysGuard::Request

COPYRIGHT & LICENSE

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.

package QualysGuard::Response::GenericReturn; use warnings; use strict; use base qw( QualysGuard::Response ); our $VERSION = '0.01'; # ============================================================= # - new # ============================================================= sub new { my ( $class, $xml ) = @_; my $self = __PACKAGE__->SUPER::new( $xml ); bless $self, $class; # -- extract the response status $self->{status} = $self->findvalue('/GENERIC_RETURN/RETURN/@status')->value(); $self->{status_text} = $self->getNodeText('/GENERIC_RETURN/RETURN')->value(); $self->{status_text} =~ s/^\s+(.*)\s+$/$1/m; if ( $self->exists('/GENERIC_RETURN/RETURN/@number') ) { $self->{status_code} = $self->findvalue('/GENERIC_RETURN/RETURN/@number')->value(); } if ( $self->{status} eq "FAILED" ) { $self->{error_text} = $self->{status_text}; $self->{error_code} = $self->{status_code}; } return $self; } # ============================================================= # - is_success # ============================================================= sub is_success { my $self = shift; return ( $self->{status} eq "SUCCESS" ) ? 1 : 0; } # ============================================================= # - is_warning # ============================================================= sub is_warning { my $self = shift; return ( $self->{status} eq "WARNING" ) ? 1 : 0; } # ============================================================= # - status_line # ============================================================= sub status_line { my $self = shift; return $self->{status_text}; } 1; __END__