File Coverage

blib/lib/MsgPack/Raw/Unpacker.pm
Criterion Covered Total %
statement 9 9 100.0
branch n/a
condition n/a
subroutine 3 3 100.0
pod n/a
total 12 12 100.0


line stmt bran cond sub pod time code
1             package MsgPack::Raw::Unpacker;
2             $MsgPack::Raw::Unpacker::VERSION = '0.03';
3 17     17   106 use strict;
  17         36  
  17         462  
4 17     17   84 use warnings;
  17         32  
  17         363  
5 17     17   81 use MsgPack::Raw;
  17         29  
  17         605  
6              
7             =head1 NAME
8              
9             MsgPack::Raw::Unpacker - msgpack Unpacker class
10              
11             =head1 VERSION
12              
13             version 0.03
14              
15             =head1 DESCRIPTION
16              
17             MessagePack Unpacker
18              
19             =head1 SYNOPSIS
20              
21             use MsgPack::Raw;
22              
23             my $unpacker = MsgPack::Raw::Unpacker->new;
24             $unpacker->feed ($packed);
25              
26             my $unpacked = $unpacker->next();
27              
28             =head1 METHODS
29              
30             =head2 new( )
31              
32             Create a new unpacker.
33              
34             =head2 feed( $data )
35              
36             Feed C<$data> into the unpacker.
37              
38             =head2 next( )
39              
40             Retrieve the next available, unpacked data. If there are no parsed
41             messages left, this method will return C.
42              
43             =head1 AUTHOR
44              
45             Jacques Germishuys
46              
47             =head1 LICENSE AND COPYRIGHT
48              
49             Copyright 2019 Jacques Germishuys.
50              
51             This program is free software; you can redistribute it and/or modify it
52             under the terms of either: the GNU General Public License as published
53             by the Free Software Foundation; or the Artistic License.
54              
55             See http://dev.perl.org/licenses/ for more information.
56              
57             =cut
58              
59             1; # End of MsgPack::Raw::Unpacker