File Coverage

blib/lib/POE/Component/Server/Discard.pm
Criterion Covered Total %
statement 10 12 83.3
branch n/a
condition n/a
subroutine 4 4 100.0
pod n/a
total 14 16 87.5


line stmt bran cond sub pod time code
1             # $Id: Discard.pm,v 1.3 2005/01/27 10:55:49 chris Exp $
2             #
3             # POE::Component::Server::Echo, by Chris 'BinGOs' Williams
4             #
5             # This module may be used, modified, and distributed under the same
6             # terms as Perl itself. Please see the license that came with your Perl
7             # distribution for details.
8             #
9              
10             package POE::Component::Server::Discard;
11              
12 3     3   92614 use strict;
  3         9  
  3         112  
13 3     3   16 use warnings;
  3         5  
  3         90  
14 3     3   16 use Carp;
  3         8  
  3         297  
15 3     3   1682 use POE;
  0            
  0            
16             use base qw(POE::Component::Server::Echo);
17             use vars qw($VERSION);
18              
19             use constant DATAGRAM_MAXLEN => 1024;
20             use constant DEFAULT_PORT => 9;
21              
22             $VERSION = '1.14';
23              
24             sub _client_input {
25             return;
26             }
27              
28             sub _get_datagram {
29             my ( $kernel, $socket ) = @_[ KERNEL, ARG0 ];
30              
31             my $remote_address = recv( $socket, my $message = "", DATAGRAM_MAXLEN, 0 );
32             return unless defined $remote_address;
33             undef;
34             }
35              
36             1;
37             __END__