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 5     5   35 use strict;
  5         10  
  5         145  
4 5     5   23 use warnings;
  5         10  
  5         741  
5              
6             our $VERSION = '0.018'; # VERSION
7             our $AUTHORITY = 'cpan:TEAM'; # AUTHORITY
8              
9 2     2 0 39 sub new { bless { @_[1..$#_] }, $_[0] }
10              
11 2     2 0 202 sub port { shift->{port} }
12 2     2 0 2581 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