File Coverage

blib/lib/Ryu/Async/Packet.pm
Criterion Covered Total %
statement 8 9 88.8
branch n/a
condition n/a
subroutine 4 5 80.0
pod 0 3 0.0
total 12 17 70.5


line stmt bran cond sub pod time code
1             package Ryu::Async::Packet;
2              
3 6     6   42 use strict;
  6         14  
  6         176  
4 6     6   33 use warnings;
  6         11  
  6         912  
5              
6             our $VERSION = '0.019'; # VERSION
7             our $AUTHORITY = 'cpan:TEAM'; # AUTHORITY
8              
9 1     1 0 11 sub new { bless { @_[1..$#_] }, $_[0] }
10              
11 1     1 0 635 sub payload { $_[0]->{payload} }
12 0     0 0   sub from { $_[0]->{from} }
13              
14             1;
15              
16             =head1 AUTHOR
17              
18             Tom Molesworth
19              
20             =head1 LICENSE
21              
22             Copyright Tom Molesworth 2011-2021. Licensed under the same terms as Perl itself.
23