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