PerlとGCMでAndroidへPush通知

tl;dr

JSONペイロードにタイトル・メッセージボディを詰めて、Android端末へPush通知したいときのメモ。

Snippets

• メッセージボディのみの場合

    my $gcm = WWW::Google::Cloud::Messaging->new(
        'api_key' => $args->{api_key}
    );
    my $res = $gcm->send(
        {   registration_ids => $args->{reg_id},
            collapse_key     => $collapse_key,
            data             => {
                message =>
                    'hogehoge',
                score     => 12345,
                is_update => JSON::true,
            },
        }
    );

• タイトルとメッセージボディの場合

    my $gcm = WWW::Google::Cloud::Messaging->new(
        'api_key' => $args->{api_key}
    );
    my $res = $gcm->send(
        {   registration_ids => $args->{reg_id},
            collapse_key     => $collapse_key,
            notification => { "title" => "hoge", "body" => "fuga" },
        }
    );

※注
api_keyは文字列
registration_idsは配列のリファレンス

Library

WWW::Google::Cloud::Messaging
http://search.cpan.org/~xaicron/WWW-Google-Cloud-Messaging-0.06/lib/WWW/Google/Cloud/Messaging.pm#build_request(\%payload)