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 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 1.07.
5 1     1   917 use warnings;
  1         2  
  1         37  
6 1     1   6 use strict;
  1         2  
  1         46  
7              
8             package IOMux::Handler::Service;
9 1     1   5 use vars '$VERSION';
  1         1  
  1         53  
10             $VERSION = '0.12';
11              
12 1     1   5 use base 'IOMux::Handler';
  1         2  
  1         98  
13              
14 1     1   6 use Log::Report 'iomux';
  1         2  
  1         18  
15              
16              
17             sub mux_init($)
18 0     0 1   { my ($self, $mux) = @_;
19 0           $self->SUPER::mux_init($mux);
20 0           $self->fdset(1, 1, 0, 0); # 'read' new connections
21             }
22              
23             sub mux_remove()
24 0     0 1   { my $self = shift;
25 0           $self->SUPER::mux_remove;
26 0           $self->fdset(0, 1, 0, 0);
27             }
28              
29              
30 0     0 1   sub mux_connection($) {shift}
31              
32             1;