File Coverage

blib/lib/MsgPack/Raw/Ext.pm
Criterion Covered Total %
statement 17 17 100.0
branch 1 2 50.0
condition 1 3 33.3
subroutine 6 6 100.0
pod 1 1 100.0
total 26 29 89.6


line stmt bran cond sub pod time code
1             package MsgPack::Raw::Ext;
2             $MsgPack::Raw::Ext::VERSION = '0.03';
3 17     17   117 use strict;
  17         36  
  17         499  
4 17     17   86 use warnings;
  17         32  
  17         1274  
5             use overload
6 3 50   3   1756 '==' => sub { $_[0]->{type} == $_[1]->{type} && $_[0]->{data} eq $_[1]->{data} },
7 17     17   109 fallback => 1 ;
  17         49  
  17         147  
8 17     17   1514 use MsgPack::Raw;
  17         37  
  17         1637  
9              
10              
11             sub new
12             {
13 16     16 1 1027 my ($this, $type, $data) = @_;
14              
15 16   33     56 my $class = ref ($this) || $this;
16 16         37 my $self =
17             {
18             type => $type,
19             data => $data,
20             };
21              
22 16         75 return bless $self, $class;
23             }
24              
25              
26             =head1 NAME
27              
28             MsgPack::Raw::Ext - msgpack Ext class
29              
30             =head1 VERSION
31              
32             version 0.03
33              
34             =head1 DESCRIPTION
35              
36             MessagePack Ext class
37              
38             =head1 SYNOPSIS
39              
40             use MsgPack::Raw;
41              
42             =head1 METHODS
43              
44             =head2 new( $type, $data)
45              
46             TODO
47              
48             =head1 AUTHOR
49              
50             Jacques Germishuys
51              
52             =head1 LICENSE AND COPYRIGHT
53              
54             Copyright 2019 Jacques Germishuys.
55              
56             This program is free software; you can redistribute it and/or modify it
57             under the terms of either: the GNU General Public License as published
58             by the Free Software Foundation; or the Artistic License.
59              
60             See http://dev.perl.org/licenses/ for more information.
61              
62             =cut
63              
64             1; # End of MsgPack::Raw::Ext