r60156 - in /trunk/libtest-poe-server-tcp-perl: ./ debian/ inc/ lib/Test/POE/Server/ t/
gregoa at users.alioth.debian.org
gregoa at users.alioth.debian.org
Thu Jul 8 16:42:25 UTC 2010
Author: gregoa
Date: Thu Jul 8 16:42:13 2010
New Revision: 60156
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=60156
Log:
New upstream release.
Added:
trunk/libtest-poe-server-tcp-perl/META.json
- copied unchanged from r60155, branches/upstream/libtest-poe-server-tcp-perl/current/META.json
trunk/libtest-poe-server-tcp-perl/dist.ini
- copied unchanged from r60155, branches/upstream/libtest-poe-server-tcp-perl/current/dist.ini
trunk/libtest-poe-server-tcp-perl/t/00-compile.t
- copied unchanged from r60155, branches/upstream/libtest-poe-server-tcp-perl/current/t/00-compile.t
trunk/libtest-poe-server-tcp-perl/t/release-pod-coverage.t
- copied unchanged from r60155, branches/upstream/libtest-poe-server-tcp-perl/current/t/release-pod-coverage.t
trunk/libtest-poe-server-tcp-perl/t/release-pod-syntax.t
- copied unchanged from r60155, branches/upstream/libtest-poe-server-tcp-perl/current/t/release-pod-syntax.t
Removed:
trunk/libtest-poe-server-tcp-perl/inc/
trunk/libtest-poe-server-tcp-perl/t/00_use.t
trunk/libtest-poe-server-tcp-perl/t/99_pod.t
trunk/libtest-poe-server-tcp-perl/t/99_pod_coverage.t
Modified:
trunk/libtest-poe-server-tcp-perl/Changes
trunk/libtest-poe-server-tcp-perl/MANIFEST
trunk/libtest-poe-server-tcp-perl/META.yml
trunk/libtest-poe-server-tcp-perl/Makefile.PL
trunk/libtest-poe-server-tcp-perl/README
trunk/libtest-poe-server-tcp-perl/debian/changelog
trunk/libtest-poe-server-tcp-perl/lib/Test/POE/Server/TCP.pm
Modified: trunk/libtest-poe-server-tcp-perl/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libtest-poe-server-tcp-perl/Changes?rev=60156&op=diff
==============================================================================
--- trunk/libtest-poe-server-tcp-perl/Changes (original)
+++ trunk/libtest-poe-server-tcp-perl/Changes Thu Jul 8 16:42:13 2010
@@ -1,52 +1,47 @@
-Test::POE::Server::TCP
-======================
+==============================
+2010-07-07 11:46:56 +0100 1.12
+==============================
-1.10 Sat Mar 20 08:38:14 GMT 2010
- - Fixed the listener being deleted on all failure operations
- - added 'start_listener' mechanism.
+ commit 38faf9bb17668dac118fa4d841e19962d32b1de9
+ Author: Chris 'BinGOs' Williams <chris at bingosnet.co.uk>
+ Date: Wed Jul 7 11:46:56 2010 +0100
+
+ The disconnected event will now include the same information as the
+ connected event.
-1.08 Mon Jul 13 15:33:34 BST 2009
- - Added send_to_all_clients, a broadcast mechanism
+ commit 1c86e7a38ef289d9264f5f53f2fdb6bc7f527a40
+ Author: Chris 'BinGOs' Williams <chris at bingosnet.co.uk>
+ Date: Wed Jul 7 11:41:00 2010 +0100
+
+ Converted dist to Dist::Zilla using Dist::Zooky
-1.06 Wed Jun 10 21:47:29 BST 2009
- - Added client_wheel method to get at the erm client wheel
+==============================
+2010-03-20 08:39:20 +0000 1.10
+==============================
-1.04 Thu Apr 30 15:09:08 BST 2009
- - Applied patch from Martijn van Beers that adds pause/resume
- listening methods.
+ commit a68e2982ef8b1d6bd0874c744a24e1c42bc35745
+ Author: Chris Williams <chris at bingosnet.co.uk>
+ Date: Sat Mar 20 08:39:20 2010 +0000
+
+ Fixed listener being deleted on all operations failures. Added
+ 'start_listener' mechanism
-1.02 Tue Apr 7 21:10:28 BST 2009
- - Make auto_set_repository() only run at author-time
+==============================
+2009-07-13 15:34:03 +0100 1.08
+==============================
-1.00 Mon Apr 6 22:56:27 BST 2009
- - Bump version for 'stable' release
- - add auto set repository to Makefile.PL
+ commit baef543c27fee34ec89fe0855da3157a554982d1
+ Author: Chris Williams <chris at bingosnet.co.uk>
+ Date: Mon Jul 13 15:34:03 2009 +0100
+
+ Prepared for CPAN Release
-0.18 Mon Feb 2 12:36:52 GMT 2009
- - Fixed 10_prefix.t test on Cygwin
+ commit 6c62b356c7f401885ee17365742b0212b246d5a0
+ Author: Chris Williams <chris at bingosnet.co.uk>
+ Date: Mon Jul 13 15:32:11 2009 +0100
+
+ Added send_to_all_clients, a broadcast mechanism
-0.16 Sat Jan 17 12:29:04 GMT 2009
- - Fixed 07_synopsis.t test on Cygwin
-
-0.14 Thu Jan 15 09:43:58 GMT 2009
- - Enabled 'prefix' to be specified.
-
-0.12 Tue Jul 29 11:18:53 BST 2008
- - Provided a really simple synopsis.
-
-0.10 Tue May 20 17:33:15 BST 2008
- - Added client_info() method.
-
-0.08 Fri May 16 10:24:37 BST 2008
- - Documented passing an ARRAYREF to send_to_client.
- - Added test for the above.
-
-0.06 Thu May 15 16:54:07 BST 2008
- - updated authorship and licensing information
-
-0.04 Thu May 15 09:43:37 BST 2008
- - Updated LICENSE file
- - added 'terminate' method and input event.
-
-0.02 Wed May 14 21:42:39 BST 2008
- - Initial CPAN release.
+===================================
+End of changes in the last 365 days
+===================================
Modified: trunk/libtest-poe-server-tcp-perl/MANIFEST
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libtest-poe-server-tcp-perl/MANIFEST?rev=60156&op=diff
==============================================================================
--- trunk/libtest-poe-server-tcp-perl/MANIFEST (original)
+++ trunk/libtest-poe-server-tcp-perl/MANIFEST Thu Jul 8 16:42:13 2010
@@ -1,23 +1,14 @@
Changes
+LICENSE
+MANIFEST
+META.json
+META.yml
+Makefile.PL
+README
+dist.ini
examples/synopsis.pl
-inc/Module/Install.pm
-inc/Module/Install/AutoLicense.pm
-inc/Module/Install/Base.pm
-inc/Module/Install/Can.pm
-inc/Module/Install/Fetch.pm
-inc/Module/Install/GithubMeta.pm
-inc/Module/Install/Makefile.pm
-inc/Module/Install/Metadata.pm
-inc/Module/Install/ReadmeFromPod.pm
-inc/Module/Install/Win32.pm
-inc/Module/Install/WriteAll.pm
lib/Test/POE/Server/TCP.pm
-LICENSE
-Makefile.PL
-MANIFEST This list of files
-META.yml
-README
-t/00_use.t
+t/00-compile.t
t/01_spawn.t
t/02_register.t
t/03_register.t
@@ -30,5 +21,5 @@
t/10_prefix.t
t/11_pause.t
t/12_all_clients.t
-t/99_pod.t
-t/99_pod_coverage.t
+t/release-pod-coverage.t
+t/release-pod-syntax.t
Modified: trunk/libtest-poe-server-tcp-perl/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libtest-poe-server-tcp-perl/META.yml?rev=60156&op=diff
==============================================================================
--- trunk/libtest-poe-server-tcp-perl/META.yml (original)
+++ trunk/libtest-poe-server-tcp-perl/META.yml Thu Jul 8 16:42:13 2010
@@ -8,31 +8,21 @@
Text::ParseWords: 0
configure_requires:
ExtUtils::MakeMaker: 6.42
-distribution_type: module
-generated_by: 'Module::Install version 0.95'
+dynamic_config: 0
+generated_by: 'Dist::Zilla version 4.101831, CPAN::Meta::Converter version 2.101670'
license: perl
meta-spec:
url: http://module-build.sourceforge.net/META-spec-v1.4.html
version: 1.4
name: Test-POE-Server-TCP
-no_index:
- directory:
- - examples
- - inc
- - t
-provides:
- Test::POE::Server::TCP:
- file: lib/Test/POE/Server/TCP.pm
- version: 1.10
requires:
POE: 1.004
POE::Filter: 0
POE::Filter::Line: 0
POE::Wheel::ReadWrite: 0
POE::Wheel::SocketFactory: 0
- perl: 5.6.0
+ perl: v5.6.0
resources:
homepage: http://github.com/bingos/test-poe-server-tcp/tree
- license: http://dev.perl.org/licenses/
repository: git://github.com/bingos/test-poe-server-tcp.git
-version: 1.10
+version: 1.12
Modified: trunk/libtest-poe-server-tcp-perl/Makefile.PL
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libtest-poe-server-tcp-perl/Makefile.PL?rev=60156&op=diff
==============================================================================
--- trunk/libtest-poe-server-tcp-perl/Makefile.PL (original)
+++ trunk/libtest-poe-server-tcp-perl/Makefile.PL Thu Jul 8 16:42:13 2010
@@ -1,21 +1,59 @@
-use 5.006;
+
use strict;
-use inc::Module::Install;
-name 'Test-POE-Server-TCP';
-author 'Chris Williams <chris at bingosnet.co.uk>';
-version_from 'lib/Test/POE/Server/TCP.pm';
-abstract_from 'lib/Test/POE/Server/TCP.pm';
-readme_from 'lib/Test/POE/Server/TCP.pm';
-license 'perl';
-auto_license holder => 'Chris Williams, Rocco Caputo, Ann Barcomb and Jos Boumans';
-perl_version '5.006';
-build_requires 'Test::More' => 0.47;
-build_requires 'Text::ParseWords' => 0;
-requires 'POE' => 1.004;
-requires 'POE::Wheel::SocketFactory' => 0;
-requires 'POE::Filter::Line' => 0;
-requires 'POE::Wheel::ReadWrite' => 0;
-requires 'POE::Filter' => 0;
-auto_provides;
-githubmeta;
-WriteAll();
+use warnings;
+
+BEGIN { require v5.6.0; }
+
+use ExtUtils::MakeMaker 6.31;
+
+
+
+my %WriteMakefileArgs = (
+ 'ABSTRACT' => 'A POE Component providing TCP server services for test cases',
+ 'AUTHOR' => 'Chris Williams <chris at bingosnet.co.uk>',
+ 'BUILD_REQUIRES' => {
+ 'ExtUtils::MakeMaker' => '6.42',
+ 'Test::More' => '0.47',
+ 'Text::ParseWords' => '0'
+ },
+ 'CONFIGURE_REQUIRES' => {
+ 'ExtUtils::MakeMaker' => '6.42'
+ },
+ 'DISTNAME' => 'Test-POE-Server-TCP',
+ 'EXE_FILES' => [],
+ 'LICENSE' => 'perl',
+ 'NAME' => 'Test::POE::Server::TCP',
+ 'PREREQ_PM' => {
+ 'POE' => '1.004',
+ 'POE::Filter' => '0',
+ 'POE::Filter::Line' => '0',
+ 'POE::Wheel::ReadWrite' => '0',
+ 'POE::Wheel::SocketFactory' => '0'
+ },
+ 'VERSION' => '1.12',
+ 'test' => {
+ 'TESTS' => 't/*.t'
+ }
+);
+
+
+unless ( eval { ExtUtils::MakeMaker->VERSION(6.56) } ) {
+ my $br = delete $WriteMakefileArgs{BUILD_REQUIRES};
+ my $pp = $WriteMakefileArgs{PREREQ_PM};
+ for my $mod ( keys %$br ) {
+ if ( exists $pp->{$mod} ) {
+ $pp->{$mod} = $br->{$mod} if $br->{$mod} > $pp->{$mod};
+ }
+ else {
+ $pp->{$mod} = $br->{$mod};
+ }
+ }
+}
+
+delete $WriteMakefileArgs{CONFIGURE_REQUIRES}
+ unless eval { ExtUtils::MakeMaker->VERSION(6.52) };
+
+WriteMakefile(%WriteMakefileArgs);
+
+
+
Modified: trunk/libtest-poe-server-tcp-perl/README
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libtest-poe-server-tcp-perl/README?rev=60156&op=diff
==============================================================================
--- trunk/libtest-poe-server-tcp-perl/README (original)
+++ trunk/libtest-poe-server-tcp-perl/README Thu Jul 8 16:42:13 2010
@@ -1,6 +1,9 @@
NAME
Test::POE::Server::TCP - A POE Component providing TCP server services
for test cases
+
+VERSION
+ version 1.12
SYNOPSIS
A very simple echo server with logging of requests by each client:
@@ -359,32 +362,35 @@
port. ARG3 is our IP address and ARG4 is our socket port.
"testd_disconnected"
- Generated whenever a client disconnects. ARG0 is the client ID.
+ Generated whenever a client disconnects. ARG0 was the client ID,
+ ARG1 was the client's IP address, ARG2 was the client's TCP port.
+ ARG3 was our IP address and ARG4 was our socket port.
"testd_client_input"
Generated whenever a client sends us some traffic. ARG0 is the
client ID, ARG1 is the data sent ( tokenised by whatever POE::Filter
- you specified.
+ you specified ).
"testd_client_flushed"
Generated whenever anything we send to the client is actually
flushed down the 'line'. ARG0 is the client ID.
-AUTHOR
- Chris "BinGOs" Williams <chris at bingosnet.co.uk>
-
- with code borrowed from POE::Component::Server::TCP by Rocco Caputo, Ann
- Barcomb and Jos Boumans.
-
-LICENSE
- Copyright © Chris Williams, Rocco Caputo, Ann Barcomb and Jos Boumans.
-
- This module may be used, modified, and distributed under the same terms
- as Perl itself. Please see the license that came with your Perl
- distribution for details.
+CREDITS
+ This module uses code borrowed from POE::Component::Server::TCP by Rocco
+ Caputo, Ann Barcomb and Jos Boumans.
SEE ALSO
POE
POE::Component::Server::TCP
+AUTHOR
+ Chris Williams <chris at bingosnet.co.uk>
+
+COPYRIGHT AND LICENSE
+ This software is copyright (c) 2010 by Chris Williams, Rocco Caputo, Ann
+ Barcomb and Jos Boumans.
+
+ This is free software; you can redistribute it and/or modify it under
+ the same terms as the Perl 5 programming language system itself.
+
Modified: trunk/libtest-poe-server-tcp-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libtest-poe-server-tcp-perl/debian/changelog?rev=60156&op=diff
==============================================================================
--- trunk/libtest-poe-server-tcp-perl/debian/changelog (original)
+++ trunk/libtest-poe-server-tcp-perl/debian/changelog Thu Jul 8 16:42:13 2010
@@ -1,3 +1,9 @@
+libtest-poe-server-tcp-perl (1.12-1) UNRELEASED; urgency=low
+
+ * New upstream release.
+
+ -- gregor herrmann <gregoa at debian.org> Thu, 08 Jul 2010 18:40:54 +0200
+
libtest-poe-server-tcp-perl (1.10-1) unstable; urgency=low
[ Jonathan Yu ]
Modified: trunk/libtest-poe-server-tcp-perl/lib/Test/POE/Server/TCP.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libtest-poe-server-tcp-perl/lib/Test/POE/Server/TCP.pm?rev=60156&op=diff
==============================================================================
--- trunk/libtest-poe-server-tcp-perl/lib/Test/POE/Server/TCP.pm (original)
+++ trunk/libtest-poe-server-tcp-perl/lib/Test/POE/Server/TCP.pm Thu Jul 8 16:42:13 2010
@@ -1,13 +1,15 @@
package Test::POE::Server::TCP;
+BEGIN {
+ $Test::POE::Server::TCP::VERSION = '1.12';
+}
+
+# ABSTRACT: A POE Component providing TCP server services for test cases
use strict;
use warnings;
use POE qw(Wheel::SocketFactory Wheel::ReadWrite Filter::Line);
use Socket;
use Carp qw(carp croak);
-use vars qw($VERSION);
-
-$VERSION = '1.10';
sub spawn {
my $package = shift;
@@ -278,8 +280,9 @@
sub _conn_error {
my ($self,$errstr,$id) = @_[OBJECT,ARG2,ARG3];
return unless $self->_conn_exists( $id );
- delete $self->{clients}->{ $id };
- $self->_send_event( $self->{_prefix} . 'disconnected', $id );
+ my $href = delete $self->{clients}->{ $id };
+ delete $href->{wheel};
+ $self->_send_event( $self->{_prefix} . 'disconnected', $id, map { $href->{$_} } qw(peeraddr peerport sockaddr sockport) );
return;
}
@@ -401,11 +404,6 @@
return;
}
-#sub send_event {
-# my $self = shift;
-# $poe_kernel->post( $self->{session_id}, '__send_event', @_ );
-#}
-
sub _send_event {
my $self = shift;
my ($event, @args) = @_;
@@ -455,11 +453,17 @@
q{Putting the test into POE};
+
__END__
+=pod
=head1 NAME
Test::POE::Server::TCP - A POE Component providing TCP server services for test cases
+
+=head1 VERSION
+
+version 1.12
=head1 SYNOPSIS
@@ -659,7 +663,7 @@
=head1 CONSTRUCTOR
-=over
+=over
=item C<spawn>
@@ -778,7 +782,6 @@
The second parameter may also be an arrayref of items to send to the client. If the filter you have used requires an arrayref as
input, nest that arrayref within another arrayref.
-
=item C<send_to_all_clients>
Send some output to all connected clients. The parameter is a string of text to send.
@@ -827,12 +830,14 @@
=item C<testd_disconnected>
-Generated whenever a client disconnects. ARG0 is the client ID.
+Generated whenever a client disconnects. ARG0 was the client ID, ARG1
+was the client's IP address, ARG2 was the client's TCP port. ARG3 was our IP address and
+ARG4 was our socket port.
=item C<testd_client_input>
-Generated whenever a client sends us some traffic. ARG0 is the client ID, ARG1 is the data sent ( tokenised by whatever POE::Filter you
-specified.
+Generated whenever a client sends us some traffic. ARG0 is the client ID, ARG1 is the data sent
+( tokenised by whatever POE::Filter you specified ).
=item C<testd_client_flushed>
@@ -840,22 +845,26 @@
=back
+=head1 CREDITS
+
+This module uses code borrowed from L<POE::Component::Server::TCP> by Rocco Caputo, Ann Barcomb and Jos Boumans.
+
+=head1 SEE ALSO
+
+L<POE>
+
+L<POE::Component::Server::TCP>
+
=head1 AUTHOR
-Chris C<BinGOs> Williams <chris at bingosnet.co.uk>
-
-with code borrowed from L<POE::Component::Server::TCP> by Rocco Caputo, Ann Barcomb and Jos Boumans.
-
-=head1 LICENSE
-
-Copyright E<copy> Chris Williams, Rocco Caputo, Ann Barcomb and Jos Boumans.
-
-This module may be used, modified, and distributed under the same terms as Perl itself. Please see the license that came with your Perl distribution for details.
-
-=head1 SEE ALSO
-
-L<POE>
-
-L<POE::Component::Server::TCP>
+Chris Williams <chris at bingosnet.co.uk>
+
+=head1 COPYRIGHT AND LICENSE
+
+This software is copyright (c) 2010 by Chris Williams, Rocco Caputo, Ann Barcomb and Jos Boumans.
+
+This is free software; you can redistribute it and/or modify it under
+the same terms as the Perl 5 programming language system itself.
=cut
+
More information about the Pkg-perl-cvs-commits
mailing list