Skip to content
This repository

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
branch: master

Fetching latest commit…

Octocat-spinner-32-eaf2f5

Cannot retrieve the latest commit at this time

..
Octocat-spinner-32 LICENSE
Octocat-spinner-32 Pubnub.pm
Octocat-spinner-32 README
Octocat-spinner-32 demo.pl
README
## ---------------------------------------------------
##
## YOU MUST HAVE A PUBNUB ACCOUNT TO USE THE API.
## http://www.pubnub.com/account
##
## ----------------------------------------------------

## --------------------------------------------
## PubNub 3.0 Real-time Cloud Push API - PERL 5
## --------------------------------------------
##
## www.pubnub.com - PubNub Real-time Push Service in the Cloud. 
## http://github.com/pubnub/pubnub-api/tree/master/perl5/
##
## PubNub is a Massively Scalable Real-time Service for Web and Mobile Games.
## This is a cloud-based service for broadcasting Real-time messages
## to web and mobile clients simultaneously.

## ---------------
## Perl Push API
## ---------------
my $pubnub = Pubnub->new({
    pubkey => 'demo',
    subkey => 'demo',
    ssl    => 0
});

# -------
# PUBLISH
# -------
# Send Message
my $info = $pubnub->publish({ 
    channel => 'hello_world', 
    message => 'He said, "helowrld"' 
});
print($info);

# ---------
# SUBSCRIBE
# ---------
# Listen for Messages *BLOCKING*
$pubnub->subscribe({
    channel  => 'hello_world', 
    callback => 
        sub { 
            my $msg = shift; 
            print "subscribe(): $msg\n"; 
            return 0; # stop after one message...
        }
});

# -------
# HISTORY
# -------
# Load Previously Published Messages
my $history = $pubnub->history({
    channel => 'hello_world'
});
print($history);
Something went wrong with that request. Please try again.