File Coverage

blib/lib/WebService/FuncNet/JobStatus.pm

Criterion	Covered	Total	%
statement	6	14	42.8
branch			n/a
condition			n/a
subroutine	2	5	40.0
pod	3	3	100.0
total	11	22	50.0

package WebService::FuncNet::JobStatus;

use strict;
use warnings;

our $VERSION = '0.2';

=head1 NAME

WebService::FuncNet::JobStatus - An object representing the status of a FuncNet session

=head1 0.1

This document describes JobStatus version 0.1

=head1 SYNOPSIS

    use WebService::FuncNet::JobStatus;

    my $status = JobStatus->new( $myStatus, $myXmlTrace );

    print $status->status();

    print $status->trace();

=head2 new

Constructs a new JobStatus object with a status code and XML trace supplied.

=cut

sub new {
    my $class = shift;
    my $self  = {
        STATUS => shift,
        TRACE  => shift
    };
    bless $self, $class;
    return $self;
}

=head2 status

Returns the actual status code of the job: I, I, I, I, I, I.

=cut

sub status {
    my $self = shift;
    return $self->{ STATUS };
}

=head2 trace

Returns the raw XML of the status response.

=cut

sub trace {
    my $self = shift;
    return $self->{ TRACE };
}

1;                              # Magic true value required at end of module
__END__