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.2';
4 2     2   15 use strict;
  2         6  
  2         57  
5 2     2   13 use warnings;
  2         4  
  2         47  
6              
7 2     2   11 use Moose;
  2         3  
  2         10  
8 2     2   13473 use MooseX::MungeHas 'is_ro';
  2         6  
  2         40  
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 9 my $self = shift;
22 3         81 return [ 1, $self->id, $self->error, $self->result ];
23             }
24              
25 1     1 0 4 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.2
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