QualysGuard::Response::TicketEdit - QualysGuard::Response::TicketEdit documentation

QualysGuard-Request documentation Contained in the QualysGuard-Request distribution.

Index

Code Index:

NAME

Top

QualysGuard::Response::TicketEdit

VERSION

Top

Version 0.01

SYNOPSIS

Top

see QualysGuard::Request for more information.

DESCRIPTION

Top

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

see QualysGuard API documentation for more information.

AUTHOR

Top

Patrick Devlin, <pdevlin at cpan.org>

BUGS

Top

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

Top

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

SEE ALSO

Top

QualysGuard::Request

COPYRIGHT & LICENSE

Top

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.

QualysGuard-Request documentation Contained in the QualysGuard-Request distribution. 
package QualysGuard::Response::TicketEdit;

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;

    # -- check for QualysGuard function error

    if ( $self->exists('/TICKET_EDIT_OUTPUT/ERROR') ) { 
        $self->{error_code} = $self->findvalue('/TICKET_EDIT_OUTPUT/ERROR/@number');
        $self->{error_text} = $self->getNodeText('/TICKET_EDIT_OUTPUT/ERROR');
        $self->{error_text} =~ s/^\s+(.*)\s+$/$1/m;
    }   

    return $self;
}


1;

__END__