File Coverage

blib/lib/WWW/FCM/HTTP/V1.pm

Criterion	Covered	Total	%
statement	29	29	100.0
branch	6	6	100.0
condition	12	15	80.0
subroutine	9	9	100.0
pod	2	2	100.0
total	58	61	95.0

package WWW::FCM::HTTP::V1;
use 5.008001;
use strict;
use warnings;

our $VERSION = "0.01";

use Class::Accessor::Lite (
    new => 0,
    rw  => [qw/sender api_url/],
);
use JSON qw(encode_json);
use Carp qw(croak);

use WWW::FCM::HTTP::V1::OAuth;

our $SCOPE_FIREBASE_MESSAGING = "https://www.googleapis.com/auth/firebase.messaging";

sub new {
    my $class = shift;
    my %args  = $_[0] && ref $_[0] eq 'HASH' ? %{ $_[0] } : @_;
    croak 'Usage: WWW::FCM::HTTP::V1->new({ api_url => $api_url, api_key_json => $api_key_json })'
    unless (exists $args{api_url} && defined $args{api_url} && exists $args{api_key_json} && defined $args{api_key_json});

    $args{sender} ||= WWW::FCM::HTTP::V1::OAuth->new(
        api_key_json => $args{api_key_json},
        scopes       => [$SCOPE_FIREBASE_MESSAGING],
    );

    bless { %args }, $class;
}

sub send {
    my ($self, $content) = @_;
    croak 'Usage: $fcm->send(\%content)' unless ref $content eq 'HASH';

    $self->sender->request(
        method  => "POST",
        uri     => $self->api_url,
        content => encode_json($content),
    );
}

1;
__END__