view release on metacpan or  search on metacpan

lib/App/Git/IssueManager/SyncJira.pm  view on Meta::CPAN

      cmd_aliases       => [qw(p)], # Alternative option name
  );

  option 'url' => (
                    is => 'rw',
                    isa=>"Str",
                    required=>1,
                    documentation=>"JIRA URL"
                  );

  option 'nosslverify' => (
                    is => 'rw',
                    isa => 'Bool',
                    required => 0,
                    default => 0,
                    documentation => q[If URL scheme is HTTPS do not enforce valid certificate]
                  );

  option 'user' => (
                    is => 'rw',
                    isa=>"Str",

lib/App/Git/IssueManager/SyncJira.pm  view on Meta::CPAN

  {
    if ($s =~ /^([\S\s]+):(\S+)$/ )
    {
      $statimap->{$1}=$2;
    }
  }

  my $jira = JIRA::Client::Automated->new($self->url, $self->user, $self->pass);

  # set SSL verification requirements
  $jira->ua()->ssl_opts("verify_hostname" => $self->nosslverify() ? 0 : 1);

  my $jql = "project = " . $self->project;
  my $search_results = $jira->search_issues($jql,0, 1000000000);

  for my $issue (@{$search_results->{issues}})
  {
    my $type        = $typemap->{$issue->{fields}->{issuetype}->{name}} || $issue->{fields}->{issuetype}->{name};
    my $priority    = $issue->{fields}->{priority}->{name};
    my $severity    = "low";
    my $status      =  $statimap->{$issue->{fields}->{status}->{name}} || $issue->{fields}->{status}->{name};