Updated the jira script

[clearscm.git] / lib / JIRA.pm

diff --git a/lib/JIRA.pm b/lib/JIRA.pm
index b844ec5..c2966ba 100644 (file)
--- a/lib/JIRA.pm
+++ b/lib/JIRA.pm
@@ -37,7 +37,6 @@ use warnings;
 use feature 'say';
 use experimental qw(signatures);
 
-use Display;
 use Carp;
 
 use JIRA::REST;
@@ -97,6 +96,8 @@ JIRA Object
 
     $opts{rest} = JIRA::REST->new( $opts{URL}, $opts{username}, $opts{password} );
 
+    #$opts{rest} = JIRA::REST->new( { url => $opts{URL}, anonymous => 1 } );
+
     return bless \%opts, $class;
 }
 
@@ -200,6 +201,10 @@ Perl hash of the fields in the next JIRA issue
     return %{ $result->{issues}[0]{fields} };
 }    # getNextIssue
 
+sub status ($self) {
+    return $self->{rest}{rest}->responseCode();
+}
+
 sub getIssues ( $self, $condition, $start, $max, @fields ) {
 
 =pod