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__ |