File Coverage

lib/Beekeeper/JSONRPC/Response.pm
Criterion Covered Total %
statement 8 11 72.7
branch n/a
condition n/a
subroutine 4 6 66.6
pod 3 4 75.0
total 15 21 71.4


line stmt bran cond sub pod time code
1             package Beekeeper::JSONRPC::Response;
2              
3 11     11   89 use strict;
  11         24  
  11         324  
4 11     11   63 use warnings;
  11         22  
  11         1680  
5              
6             our $VERSION = '0.08';
7              
8              
9             sub new {
10 0     0 0 0 my $class = shift;
11              
12 0         0 bless {
13             jsonrpc => '2.0',
14             result => undef,
15             id => undef,
16             @_
17             }, $class;
18             }
19              
20 40     40 1 740 sub result { $_[0]->{result} }
21 0     0 1 0 sub id { $_[0]->{id} }
22              
23 13     13 1 2932 sub success { 1 }
24              
25             1;
26              
27             __END__