NAME
Net::APNs::Extended - Client library for APNs that support the extended format.
SYNOPSIS
use Net::APNs::Extended;
my $apns = Net::APNs::Extended->new(
is_sandbox => 1,
cert_file => 'apns.pem',
);
# send notification to APNs
$apns->send($device_token, {
aps => {
alert => "Hello, APNs!",
badge => 1,
sound => "default",
},
foo => [qw/bar baz/],
});
# if you want to handle the error
if (my $error = $apns->retrieve_error) {
die Dumper $error;
}
DESCRIPTION
Net::APNs::Extended is client library for APNs. The client is support the extended format.
METHODS
new(%args)
Create a new instance of Net::APNs::Extended
.
Supported arguments are:
- is_sandbox : Bool
-
Default: 1
- cert_file : Str
- cert : Str
-
Required.
Sets certificate. You can not specify both
cert
andcert_file
. - key_file : Str
- key : Str
-
Sets private key. You can not specify both
key
andkey_file
. - password : Str
-
Sets private key password.
- read_timeout : Num
-
Sets read timeout.
- write_timeout : Num
-
Sets write timeout.
$apns->send($device_token, $payload [, $extra ])
Send notification for APNs.
$apns->send($device_token, {
aps => {
alert => "Hello, APNs!",
badge => 1,
sound => "default",
},
foo => [qw/bar baz/],
});
$apns->send_multi([ [ $device_token, $payload [, $extra ] ], [ ... ] ... ])
Send notification for each data. The data chunk is same as send()
arguments.
$apns->retrieve_error()
Gets error data from APNs. If there is no error will not return anything.
if (my $error = $apns->retrieve_error) {
die Dumper $error;
}
AUTHOR
xaicron <xaicron {@} cpan.org>
COPYRIGHT
Copyright 2012 - xaicron
LICENSE
This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself.