PagerDuty::Agent version 0.02

[![Build status](https://img.shields.io/travis/querry43/perl-pagerduty-agent.svg)](https://travis-ci.org/querry43/perl-pagerduty-agent)
[![License](https://img.shields.io/github/license/querry43/perl-pagerduty-agent.svg)](LICENSE)
[![CPAN](https://img.shields.io/cpan/v/PagerDuty-Agent.svg)](https://metacpan.org/pod/PagerDuty::Agent)

SYNOPSIS

 use PagerDuty::Agent;

 my $agent = PagerDuty::Agent->new( routing_key => '3fcc9112463424b599f996f9e780dfc6' );

 # trigger an event, then resolve it
 my $dedup_key = $agent->trigger_event( 'something is terribly wrong!' );

 if ( $dedup_key ) {
   print "Event created, dedup_key = $dedup_key\n";

   print "Event successfully resolved\n"
     if $agent->resolve_event( $dedup_key );
 } else {
   warn "Failed to submit event: $@\n";
 }

 # additional context can be passed in
 $agent->trigger_event(
   summary   => 'something is terribly wrong!',
   severity  => 'critical',
   dedup_key => 'abc123',
 );

INSTALLATION

To install this module type the following:

  perl Makefile.PL
  make
  make test
  make install

DEPENDENCIES

Perl 5.10 or later.

COPYRIGHT AND LICENSE

Copyright (C) 2019 by Matt Harrington

The full text of this license can be found in the LICENSE file included with this module.