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" and "cert_file".
key_file : Str
key : Str: Sets private key. You can not specify both "key" and "key_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, {
      apns => {
          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

LICENSE

This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself.