File Coverage

blib/lib/Ryu/Async/Server.pm
Criterion Covered Total %
statement 9 10 90.0
branch n/a
condition n/a
subroutine 5 6 83.3
pod 0 4 0.0
total 14 20 70.0


line stmt bran cond sub pod time code
1             package Ryu::Async::Server;
2              
3 6     6   39 use strict;
  6         13  
  6         182  
4 6     6   28 use warnings;
  6         12  
  6         922  
5              
6             our $VERSION = '0.020'; # VERSION
7             our $AUTHORITY = 'cpan:TEAM'; # AUTHORITY
8              
9 2     2 0 58 sub new { bless { @_[1..$#_] }, $_[0] }
10              
11 2     2 0 208 sub port { shift->{port} }
12 2     2 0 3322 sub incoming { shift->{incoming} }
13 0     0 0   sub outgoing { shift->{outgoing} }
14              
15             1;
16              
17             =head1 AUTHOR
18              
19             Tom Molesworth
20              
21             =head1 LICENSE
22              
23             Copyright Tom Molesworth 2011-2021. Licensed under the same terms as Perl itself.
24