File Coverage

blib/lib/WebService/Backlog/UpdateIssue.pm

Criterion	Covered	Total	%
statement	9	14	64.2
branch	0	2	0.0
condition			n/a
subroutine	3	4	75.0
pod	0	1	0.0
total	12	21	57.1

package WebService::Backlog::UpdateIssue;

# $Id$

use strict;
use warnings;

use base qw(Class::Accessor::Fast);

my @PARAMS = qw/
  key summary description
  start_date due_date
  estimated_hours actual_hours
  issueTypeId priorityId componentId resolutionId versionId milestoneId
  assignerId comment
  /;

__PACKAGE__->mk_accessors(@PARAMS);

sub hash {
    my $self = shift;
    my $hash = {};
    for my $p (@PARAMS) {
        $hash->{$p} = $self->$p if ( defined $self->$p );
    }
    return $hash;
}

1;
__END__