package WebService::Backlog::CreateIssue;
# $Id$
use strict;
use warnings;
use base qw(Class::Accessor::Fast);
my @PARAMS = qw/
projectId summary description
start_date due_date
estimated_hours actual_hours
issueTypeId priorityId componentId resolutionId versionId milestoneId
assignerId
/;
__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__