r70721 - in /branches/upstream/libjira-client-perl/current: Changes META.yml README lib/JIRA/Client.pm
jawnsy-guest at users.alioth.debian.org
jawnsy-guest at users.alioth.debian.org
Sun Mar 6 17:24:46 UTC 2011
Author: jawnsy-guest
Date: Sun Mar 6 17:24:36 2011
New Revision: 70721
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=70721
Log:
[svn-upgrade] new version libjira-client-perl (0.27)
Modified:
branches/upstream/libjira-client-perl/current/Changes
branches/upstream/libjira-client-perl/current/META.yml
branches/upstream/libjira-client-perl/current/README
branches/upstream/libjira-client-perl/current/lib/JIRA/Client.pm
Modified: branches/upstream/libjira-client-perl/current/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libjira-client-perl/current/Changes?rev=70721&op=diff
==============================================================================
--- branches/upstream/libjira-client-perl/current/Changes (original)
+++ branches/upstream/libjira-client-perl/current/Changes Sun Mar 6 17:24:36 2011
@@ -1,4 +1,9 @@
Revision history for JIRA-Client
+
+0.27 2011-03-05
+
+ Properly casts RemoteProjectRole objects in several
+ methods. This was suggested by Philippe MARTIN.
0.26 2010-12-21
Modified: branches/upstream/libjira-client-perl/current/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libjira-client-perl/current/META.yml?rev=70721&op=diff
==============================================================================
--- branches/upstream/libjira-client-perl/current/META.yml (original)
+++ branches/upstream/libjira-client-perl/current/META.yml Sun Mar 6 17:24:36 2011
@@ -1,6 +1,6 @@
--- #YAML:1.0
name: JIRA-Client
-version: 0.26
+version: 0.27
abstract: An extended interface to JIRA's SOAP API.
author:
- Gustavo Chaves <gnustavo at cpan.org>
Modified: branches/upstream/libjira-client-perl/current/README
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libjira-client-perl/current/README?rev=70721&op=diff
==============================================================================
--- branches/upstream/libjira-client-perl/current/README (original)
+++ branches/upstream/libjira-client-perl/current/README Sun Mar 6 17:24:36 2011
@@ -1,6 +1,6 @@
Name: JIRA-Client
What: A OO interface to JIRA's SOAP API.
-Version: 0.26
+Version: 0.27
Author: Gustavo Chaves <gnustavo at cpan.org>
JIRA is a proprietary bug tracking system from Atlassian
Modified: branches/upstream/libjira-client-perl/current/lib/JIRA/Client.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libjira-client-perl/current/lib/JIRA/Client.pm?rev=70721&op=diff
==============================================================================
--- branches/upstream/libjira-client-perl/current/lib/JIRA/Client.pm (original)
+++ branches/upstream/libjira-client-perl/current/lib/JIRA/Client.pm Sun Mar 6 17:24:36 2011
@@ -11,11 +11,11 @@
=head1 VERSION
-Version 0.26
-
-=cut
-
-our $VERSION = '0.26';
+Version 0.27
+
+=cut
+
+our $VERSION = '0.27';
=head1 SYNOPSIS
@@ -1094,21 +1094,27 @@
# zero-based, after the authentication token.
my %typeof = (
+ addActorsToProjectRole => {1 => \&_cast_remote_project_role},
addAttachmentsToIssue => \&_cast_attachments,
addBase64EncodedAttachmentsToIssue => \&_cast_base64encodedattachments,
addComment => {0 => \&_cast_issue_key, 1 => \&_cast_remote_comment},
+ addDefaultActorsToProjectRole => {1 => \&_cast_remote_project_role},
addWorklogAndAutoAdjustRemainingEstimate => {0 => \&_cast_issue_key},
addWorklogAndRetainRemainingEstimate => {0 => \&_cast_issue_key},
addWorklogWithNewRemainingEstimate => {0 => \&_cast_issue_key},
archiveVersion => {2 => 'boolean'},
createIssueWithSecurityLevel => {1 => 'long'},
+ createProjectRole => {0 => \&_cast_remote_project_role},
deleteIssue => {0 => \&_cast_issue_key},
deleteProjectAvatar => {0 => 'long'},
- deleteProjectRole => {1 => 'boolean'},
+ deleteProjectRole => {0 => \&_cast_remote_project_role, 1 => 'boolean'},
+ getAssociatedNotificationSchemes => {0 => \&_cast_remote_project_role},
+ getAssociatedPermissionSchemes => {0 => \&_cast_remote_project_role},
getAttachmentsFromIssue => {0 => \&_cast_issue_key},
getAvailableActions => {0 => \&_cast_issue_key},
getComment => {0 => 'long'},
getComments => {0 => \&_cast_issue_key},
+ getDefaultRoleActors => {0 => \&_cast_remote_project_role},
getFieldsForAction => {0 => \&_cast_issue_key},
getFieldsForEdit => {0 => \&_cast_issue_key},
getIssue => {0 => \&_cast_issue_key},
@@ -1121,6 +1127,7 @@
getProjectAvatars => {1 => 'boolean'},
getProjectById => {0 => 'long'},
getProjectRole => {0 => 'long'},
+ getProjectRoleActors => {0 => \&_cast_remote_project_role},
getProjectWithSchemesById => {0 => 'long'},
getResolutionDateById => {0 => 'long'},
getResolutionDateByKey => {0 => \&_cast_issue_key},
@@ -1128,8 +1135,11 @@
getWorklogs => {0 => \&_cast_issue_key},
hasPermissionToCreateWorklog => {0 => \&_cast_issue_key},
progressWorkflowAction => {0 => \&_cast_issue_key, 2 => \&_cast_remote_field_values},
+ removeActorsFromProjectRole => {1 => \&_cast_remote_project_role},
+ removeDefaultActorsFromProjectRole => {1 => \&_cast_remote_project_role},
setProjectAvatar => {1 => 'long'},
updateIssue => {0 => \&_cast_issue_key, 1 => \&_cast_remote_field_values},
+ updateProjectRole => {0 => \&_cast_remote_project_role},
);
sub _cast_issue_key {
@@ -1155,6 +1165,14 @@
my ($self, $arg) = @_;
if (ref $arg && ref $arg eq 'HASH') {
return [map {RemoteFieldValue->new($_, $arg->{$_})} keys %$arg];
+ }
+ return $arg;
+}
+
+sub _cast_remote_project_role {
+ my ($self, $arg) = @_;
+ if (ref $arg && ref $arg eq 'RemoteProjectRole' && exists $arg->{id} && ! ref $arg->{id}) {
+ $arg->{id} = SOAP::Data->type(long => $arg->{id});
}
return $arg;
}
More information about the Pkg-perl-cvs-commits
mailing list