AnyEvent-APNS
view release on metacpan - search on metacpan
view release on metacpan or search on metacpan
use utf8;
use Test::Base;
plan 'no_plan';
use Path::Class qw/file/;
use AnyEvent::APNS;
my $cer = "$ENV{HOME}/dev/apns/test.cer";
my $key = "$ENV{HOME}/dev/apns/test.key";
my $token = file("$ENV{HOME}/dev/apns/token.bin")->slurp;
{
my $cv = AnyEvent->condvar;
my $apns; $apns = AnyEvent::APNS->new(
certificate => $cer,
private_key => $key,
sandbox => 1,
on_connect => sub {
$apns->send($token => { aps => { alert => "ãã¹ãï¼" }});
$apns->handler->on_drain(sub { undef $_[0]; $cv->send });
},
)->connect;
$cv->recv;
ok(1, "app runs ok, check your phone");
}
{
my $cer_content = file($cer)->slurp;
my $key_content = file($key)->slurp;
my $cv = AnyEvent->condvar;
my $apns; $apns = AnyEvent::APNS->new(
certificate => \$cer_content,
private_key => \$key_content,
sandbox => 1,
on_connect => sub {
$apns->send($token => { aps => { alert => "ããä¸åãã¹ãï¼" }});
$apns->handler->on_drain(sub { undef $_[0]; $cv->send });
},
)->connect;
$cv->recv;
ok(1, "app runs ok, check your phone again");
}
view all matches for this distributionview release on metacpan - search on metacpan
( run in 0.408 second using v1.00-cache-2.02-grep-82fe00e-cpan-b63e86051f13 )