#!/usr/bin/perl

use strict;
use warnings;

use lib qw/./;
use Pubnub;

my $objPub = Pubnub->new({
        subkey => '<apikey_for_bitFlyer_realtime_api>',
});

$objPub->subscribe({
        channel  => 'lightning_ticker_FX_BTC_JPY',
        callback =>
        sub {
                my $objMsg = shift;
                printf "%s\t%7d\t%13.8f\t%13.8f\t%7d\n",
                        $objMsg->{timestamp},
                        $objMsg->{best_ask}, $objMsg->{best_ask_size},
                        $objMsg->{best_bid_size}, $objMsg->{best_bid},
                        ;
        }
});

1;