The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.

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, {
      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.

SEE ALSO