File Coverage

lib/IOMux/Handler/Service.pm
Criterion Covered Total %
statement 15 22 68.1
branch n/a
condition n/a
subroutine 5 8 62.5
pod 3 3 100.0
total 23 33 69.7


line stmt bran cond sub pod time code
1             # Copyrights 2011-2015 by [Mark Overmeer].
2             # For other contributors see ChangeLog.
3             # See the manual pages for details on the licensing terms.
4             # Pod stripped from pm file by OODoc 2.02.
5 1     1   783 use warnings;
  1         2  
  1         28  
6 1     1   4 use strict;
  1         2  
  1         30  
7              
8             package IOMux::Handler::Service;
9 1     1   5 use vars '$VERSION';
  1         1  
  1         43  
10             $VERSION = '1.00';
11              
12 1     1   5 use base 'IOMux::Handler';
  1         2  
  1         65  
13              
14 1     1   5 use Log::Report 'iomux';
  1         2  
  1         5  
15              
16              
17             sub muxInit($)
18 0     0 1   { my ($self, $mux) = @_;
19 0           $self->SUPER::muxInit($mux);
20 0           $self->fdset(1, 1, 0, 0); # 'read' new connections
21             }
22              
23             sub muxRemove()
24 0     0 1   { my $self = shift;
25 0           $self->SUPER::muxRemove;
26 0           $self->fdset(0, 1, 0, 0);
27             }
28              
29             #----------
30              
31 0     0 1   sub muxConnection($) {shift}
32              
33             1;