BEGIN { use_ok(
'WWW::PagerDuty'
) };
# Example key used from PagerDuty's public Documentation
$service_key
=
'e93facc04764012d7bfb002500d5d1a6'
,
$incident_key
=
'srv01/HTTP'
;
# Incident key can be passed on Object Creation, or during a call to 'trigger' or 'resolve'
$pager_duty
= new WWW::PagerDuty({
service_key
=>
$service_key
,
incident_key
=>
$incident_key
});
is(
ref
$pager_duty
,
"WWW::PagerDuty"
,
""
);
# Description key must be passed, and must be a scalar
# $result = $pager_duty->trigger({ description => '' });
# $result = $pager_duty->resolve({ description => '' });
# Details can be passed as a HASH reference, with arbritray keys/data
# $result = $pager_duty->trigger({ description => '' , details => { occurrence => '2015-01-15' } });
# $result = $pager_duty->resolve({ description => '' , details => { arbritrary_key => 'arbritrary_data' } });
# Incident key passed to calls of Trigger/Resolve takes precedence over those passed during object creation
# $result = $pager_duty->trigger({ incident_key => $incident_key, description => '' });
# $result = $pager_duty->resolve({ incident_key => $incident_key, description => '' });