File Coverage

blib/lib/AnyEvent/JSONRPC/Lite.pm
Criterion Covered Total %
statement 19 19 100.0
branch n/a
condition n/a
subroutine 7 7 100.0
pod 2 2 100.0
total 28 28 100.0


line stmt bran cond sub pod time code
1             package AnyEvent::JSONRPC::Lite;
2 6     6   7521 use strict;
  6         13  
  6         215  
3 6     6   31 use warnings;
  6         13  
  6         192  
4 6     6   34 use base 'Exporter';
  6         10  
  6         192  
5              
6             our $VERSION = '0.15';
7              
8             our @EXPORT = qw/jsonrpc_client jsonrpc_server/;
9              
10 6     6   3600 use AnyEvent::JSONRPC::Lite::Client;
  6         633  
  6         226  
11 6     6   4437 use AnyEvent::JSONRPC::Lite::Server;
  6         458  
  6         836  
12              
13             sub jsonrpc_client($$) {
14 4     4 1 1005484 my ($host, $port) = @_;
15              
16 4         1119 AnyEvent::JSONRPC::Lite::Client->new(
17             host => $host,
18             port => $port,
19             );
20             }
21              
22             sub jsonrpc_server($$) {
23 5     5 1 66 my ($address, $port) = @_;
24              
25 5         127 AnyEvent::JSONRPC::Lite::Server->new(
26             address => $address,
27             port => $port,
28             );
29             }
30              
31             1;
32              
33             __END__