view release on metacpan or  search on metacpan

lib/Circle/Node.pm  view on Meta::CPAN

package Circle::Node;

use 5.006;
use strict;
use warnings;
use Exporter 'import';
use Carp;
use Try::Tiny;
use URL::Encode;
use Circle::Common qw(load_config build_url_template http_json_post http_json_get);

our $VERSION = '0.05';

our @EXPORT = qw(
  subscribe
  serverFeatures
  broadcastTransaction
);

t/01-node.t  view on Meta::CPAN

#!perl
use 5.006;
use strict;
use warnings;
use Test::More;
use Carp;
use JSON;
use Try::Tiny;
use Circle::Node;

my $response = subscribe();
is( $response->{status}, 200 );
my $data = $response->{data};
ok($data);

$response = serverFeatures();
is( $response->{status}, 200 );
$data = $response->{data};