File Coverage

blib/lib/WebService/PagerDuty.pm

Criterion	Covered	Total	%
statement	31	36	86.1
branch	0	2	0.0
condition			n/a
subroutine	12	15	80.0
pod	3	4	75.0
total	46	57	80.7

#!/usr/bin/env perl -w

## workaround for PkgVersion
## no critic
package WebService::PagerDuty;
{
  $WebService::PagerDuty::VERSION = '1.20131219.1627';
}
## use critic
use strict;
use warnings;

use base qw/ WebService::PagerDuty::Base /;
use URI;
use WebService::PagerDuty::Event;
use WebService::PagerDuty::Incidents;
use WebService::PagerDuty::Schedules;

__PACKAGE__->mk_ro_accessors(
    qw/
      user
      password
      api_key
      subdomain
      use_ssl
      event_url
      incidents_url
      schedules_url
      /
);

sub new {
    my $self = shift;
    $self->SUPER::new(
        _defaults => {
            use_ssl   => sub { 1 },
            event_url => sub {
                my $self = shift;
                URI->new( ( $self->use_ssl ? 'https' : 'http' ) . '://events.pagerduty.com/generic/2010-04-15/create_event.json' );
            },
            incidents_url => sub {
                my $self = shift;
                URI->new( 'https://' . $self->subdomain . '.pagerduty.com/api/v1/incidents' );
            },
            schedules_url => sub {
                my $self = shift;
                URI->new( 'https://' . $self->subdomain . '.pagerduty.com/api/v1/schedules' );
            },
        },
        @_
    );
}

sub event {
    my $self = shift;
    return WebService::PagerDuty::Event->new(
        url => $self->event_url,
        @_
    );
}

sub incidents {
    my $self = shift;
    return WebService::PagerDuty::Incidents->new(
        url      => $self->incidents_url,
        user     => $self->user,
        password => $self->password,
        api_key  => $self->api_key,
        @_
    );
}

sub schedules {
    my $self = shift;
    return WebService::PagerDuty::Schedules->new(
        url      => $self->schedules_url,
        user     => $self->user,
        password => $self->password,
        api_key  => $self->api_key,
        @_
    );
}

1;

__END__