Yet Another CPAN Grep

RT-Extension-PagerDuty ( B/BP/BPS/RT-Extension-PagerDuty-0.01.tar.gz, BPS, 2022; MetaCPAN )

RT-Extension-PagerDuty/lib/RT/Action/UpdatePagerDuty.pm ( view source; MetaCPAN )

",
                details => $content
            }
        }
    );

    my $post_content = JSON::to_json( \%post_content );

    RT->Logger->debug("PagerDuty POST: $post_content");

# https://devel

pt',
        'application/vnd.pagerduty+json;version=2',
        'Authorization',
        "Token token=$token",
        'Content-Type',
        'application/json',
        'From',
        $user,

mes "prettier" so maybe map _ => - and uppercase first letter of each word?
    my $return = JSON::from_json( $resp->decoded_content );
    my ( $status, $msg ) = $self->TicketObj->AddCustomFieldValue