File Coverage

blib/lib/MsgPack/RPC/Message/Response.pm
Criterion Covered Total %
statement 16 16 100.0
branch n/a
condition n/a
subroutine 7 7 100.0
pod 0 3 0.0
total 23 26 88.4


line stmt bran cond sub pod time code
1             package MsgPack::RPC::Message::Response;
2             our $AUTHORITY = 'cpan:YANICK';
3             $MsgPack::RPC::Message::Response::VERSION = '2.0.3';
4 2     2   13 use strict;
  2         4  
  2         55  
5 2     2   10 use warnings;
  2         4  
  2         41  
6              
7 2     2   11 use Moose;
  2         3  
  2         11  
8 2     2   12281 use MooseX::MungeHas 'is_ro';
  2         5  
  2         55  
9              
10             extends 'MsgPack::RPC::Message';
11              
12             has id => ( required => 1 );
13              
14             has result => ();
15              
16             has error => ();
17              
18 1     1 0 29 sub is_error { !!$_[0]->error }
19              
20             sub pack {
21 3     3 0 10 my $self = shift;
22 3         83 return [ 1, $self->id, $self->error, $self->result ];
23             }
24              
25 1     1 0 6 sub is_response { 1}
26              
27             1;
28              
29             __END__
30              
31             =pod
32              
33             =encoding UTF-8
34              
35             =head1 NAME
36              
37             MsgPack::RPC::Message::Response
38              
39             =head1 VERSION
40              
41             version 2.0.3
42              
43             =head1 AUTHOR
44              
45             Yanick Champoux <yanick@cpan.org>
46              
47             =head1 COPYRIGHT AND LICENSE
48              
49             This software is copyright (c) 2019, 2017, 2016, 2015 by Yanick Champoux.
50              
51             This is free software; you can redistribute it and/or modify it under
52             the same terms as the Perl 5 programming language system itself.
53              
54             =cut