1 #!/usr/local/cpanel/3rdparty/bin/perl
3 # cpanel - t/medium/Cpanel-LogReader.t Copyright 2022 cPanel, L.L.C.
5 # copyright@cpanel.net http://cpanel.net
6 # This code is subject to the cPanel license. Unauthorized copying is prohibited
12 use experimental qw(signatures);
16 use lib "$FindBin::Bin/../lib";
21 my $home = $ENV{HOME};
22 my $conf = "$ENV{HOME}/.jira";
24 my %opts = GetConfig::GetConfig($conf);
26 my $jira = JIRA->new(%opts);
28 my $caseID = 'ART-1928';
30 my $case = $jira->getIssue($caseID);
32 say "$caseID: $case->{fields}{summary}";