File Coverage

blib/lib/QualysGuard/Response/TicketList.pm

Criterion	Covered	Total	%
statement	9	9	100.0
branch			n/a
condition			n/a
subroutine	3	3	100.0
pod			n/a
total	12	12	100.0

package QualysGuard::Response::TicketList;

use warnings;
use strict;

use base qw( QualysGuard::Response );

our $VERSION = '0.02';


# =============================================================
# - new
# =============================================================
sub new {
    my ( $class, $xml ) = @_;

    my $self = __PACKAGE__->SUPER::new( $xml );

    bless $self, $class;

    # -- check for QualysGuard function error

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

    return $self;
}


# =============================================================
# - is_truncated
# =============================================================
sub is_truncated {
    my $self = shift;
    return ( $self->exists('/REMEDIATION_TICKETS/TRUNCATION') ) ? 1 : 0;
}



# =============================================================
# - get_last_ticket_number
# =============================================================
sub get_last_ticket_number {
    my $self = shift;
    if ( $self->is_truncated() ) {
        if ( $self->exists('/REMEDIATION_TICKETS/TRUNCATION/@last') ) {
            return $self->findvalue('/REMEDIATION_TICKETS/TRUNCATION/@last');
        }
    }

    return undef;
}



1;

__END__