File Coverage

blib/lib/Net/Sendy/API.pm

Criterion	Covered	Total	%
statement	15	59	25.4
branch	0	14	0.0
condition	0	15	0.0
subroutine	5	12	41.6
pod	4	6	66.6
total	24	106	22.6

package Net::Sendy::API;

use strict;
use warnings;
use Carp ('croak');
use LWP::UserAgent;
use URI;

our $VERSION = '0.03';

sub new {
    my $class = shift;

    my %self = (
        api_key => '',
        url     => '',
        @_
    );

    return unless ( $self{api_key} && $self{url} );
    return bless \%self, $class;
}

sub subscribe {
    my $self = shift;
    my %args = @_;

    unless ( $args{list} && $args{email} ) {
        croak
"subscribe(): usage error. 'list' and 'email' attributes are required";
    }

    my $url = URI->new_abs( 'subscribe', $self->{url} )->as_string;
    $args{boolean} = "true";
    return $self->post( $url, \%args );
}

sub unsubscribe {
    my $self = shift;
    my %args = @_;

    unless ( $args{list} && $args{email} ) {
        croak
"unsubscribe(): usage error. 'list' and 'email' attributes are required";
    }

    my $url = URI->new_abs( 'unsubscribe', $self->{url} )->as_string;
    $args{boolean} = "true";
    return $self->post( $url, \%args );
}

sub subscription_status {
    my $self = shift;
    my %args = @_;

    unless ( $args{list} && $args{email} ) {
        croak
"subscription_status(): usage error. 'list_id' and 'email' attributes are required";
    }

    $args{api_key} = $self->{api_key};
    $args{list_id} = $args{list};
    delete $args{list};

    my $url =
      URI->new_abs( 'api/subscribers/subscription-status.php', $self->{url} );
    return $self->post( $url, \%args );
}

sub active_subscriber_count {
    my $self = shift;
    my %args = @_;

    unless ( $args{list} ) {
        croak
"active_subscriber_count(): usage error. 'list' attribute is required";
    }

    $args{api_key} = $self->{api_key};
    $args{list_id} = $args{list};
    delete $args{list};

    my $url = URI->new_abs( 'api/subscribers/active-subscriber-count.php',
        $self->{url} );
    return $self->post( $url, \%args );
}

sub _ua {
    my $self = shift;
    return $self->{_UA} if $self->{_UA};
    return $self->{_UA} = LWP::UserAgent->new;
}

sub post {
    my $self = shift;
    my ( $url, $params ) = @_;

    unless ( ref($params) && ( ref($params) eq 'HASH' ) ) {
        croak 'post(): usage error. $params must be a hashref';
    }

    return $self->_ua->post(@_);
}

1;
__END__