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   43 use strict;
  6         14  
  6         184  
4 6     6   31 use warnings;
  6         13  
  6         823  
5              
6             our $VERSION = '0.020'; # VERSION
7             our $AUTHORITY = 'cpan:TEAM'; # AUTHORITY
8              
9 1     1 0 12 sub new { bless { @_[1..$#_] }, $_[0] }
10              
11 1     1 0 763 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