r30490 - in /trunk/libpoe-component-server-soap-perl: ./ debian/ examples/ lib/POE/Component/Server/ lib/POE/Component/Server/SOAP/ t/

rmayorga at users.alioth.debian.org rmayorga at users.alioth.debian.org
Fri Feb 6 03:14:31 UTC 2009 

Author: rmayorga
Date: Fri Feb  6 03:14:11 2009
New Revision: 30490

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=30490
Log:
TODO: it needs Test-Apocalypse to complete all tests
      ITPs welcome (rmayorga)
* New upstream release
* debian/control
  + change debhelper version B-D to >= 7
  + add myself to uploaders
* debian/copyright:
  + update copyright proposal format
  + separate debian/* copyright stanzas based on debian/changelog
  + update upstream copyright years
* debian/rules
  + update to dh 7 format
  + do not include anymore PERL_TEST_CRITIC and PERL_TEST_POD
    variables
  + re-add TEST_AUTHOR variable

Added:
    trunk/libpoe-component-server-soap-perl/LICENSE
      - copied unchanged from r30489, branches/upstream/libpoe-component-server-soap-perl/current/LICENSE
    trunk/libpoe-component-server-soap-perl/debian/libpoe-component-server-soap-perl.examples
    trunk/libpoe-component-server-soap-perl/t/1_load.t
      - copied unchanged from r30489, branches/upstream/libpoe-component-server-soap-perl/current/t/1_load.t
    trunk/libpoe-component-server-soap-perl/t/apocalypse.t
      - copied unchanged from r30489, branches/upstream/libpoe-component-server-soap-perl/current/t/apocalypse.t
Removed:
    trunk/libpoe-component-server-soap-perl/t/a_compile.t
    trunk/libpoe-component-server-soap-perl/t/a_critic.t
    trunk/libpoe-component-server-soap-perl/t/a_dependencies.t
    trunk/libpoe-component-server-soap-perl/t/a_distribution.t
    trunk/libpoe-component-server-soap-perl/t/a_dosnewline.t
    trunk/libpoe-component-server-soap-perl/t/a_fixme.t
    trunk/libpoe-component-server-soap-perl/t/a_hasversion.t
    trunk/libpoe-component-server-soap-perl/t/a_kwalitee.t
    trunk/libpoe-component-server-soap-perl/t/a_manifest.t
    trunk/libpoe-component-server-soap-perl/t/a_minimumversion.t
    trunk/libpoe-component-server-soap-perl/t/a_pod.t
    trunk/libpoe-component-server-soap-perl/t/a_pod_coverage.t
    trunk/libpoe-component-server-soap-perl/t/a_pod_spelling.t
    trunk/libpoe-component-server-soap-perl/t/a_prereq.t
    trunk/libpoe-component-server-soap-perl/t/a_prereq_build.t
    trunk/libpoe-component-server-soap-perl/t/a_strict.t
    trunk/libpoe-component-server-soap-perl/t/load.t
Modified:
    trunk/libpoe-component-server-soap-perl/Build.PL
    trunk/libpoe-component-server-soap-perl/Changes
    trunk/libpoe-component-server-soap-perl/MANIFEST
    trunk/libpoe-component-server-soap-perl/MANIFEST.SKIP
    trunk/libpoe-component-server-soap-perl/META.yml
    trunk/libpoe-component-server-soap-perl/Makefile.PL
    trunk/libpoe-component-server-soap-perl/README
    trunk/libpoe-component-server-soap-perl/debian/changelog
    trunk/libpoe-component-server-soap-perl/debian/compat
    trunk/libpoe-component-server-soap-perl/debian/control
    trunk/libpoe-component-server-soap-perl/debian/copyright
    trunk/libpoe-component-server-soap-perl/debian/rules
    trunk/libpoe-component-server-soap-perl/examples/test-client.perl
    trunk/libpoe-component-server-soap-perl/examples/test-server.perl
    trunk/libpoe-component-server-soap-perl/lib/POE/Component/Server/SOAP.pm
    trunk/libpoe-component-server-soap-perl/lib/POE/Component/Server/SOAP/Response.pm

Modified: trunk/libpoe-component-server-soap-perl/Build.PL
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libpoe-component-server-soap-perl/Build.PL?rev=30490&op=diff
==============================================================================
--- trunk/libpoe-component-server-soap-perl/Build.PL (original)
+++ trunk/libpoe-component-server-soap-perl/Build.PL Fri Feb  6 03:14:11 2009
@@ -1,3 +1,6 @@
+# Build.PL
+use strict; use warnings;
+
 use Module::Build;
 my $build = Module::Build->new(
 	# look up Module::Build::API for the info!
@@ -13,44 +16,24 @@
 
 	'test_files'		=> 't/*.t',
 
-	'add_to_cleanup'	=> [ 'META.yml', 'Makefile.PL', 'README' ],	# automatically generated
+	'add_to_cleanup'	=> [ 'META.yml', 'Makefile.PL', 'README', 'Makefile' ],	# automatically generated
 
 	'requires'		=> {
 		# Networking
 		'POE'					=> 0,
-		'POE::Component::Server::SimpleHTTP'	=> '1.10',
+		'POE::Component::Server::SimpleHTTP'	=> '1.54',	# bump version so we fix CLOSE issue
 		'SOAP::Lite'				=> '0.55',
+
+		# FIXME stupid deps Test::Dependencies needs to see
+		'POE::Session'				=> 0,
+		'SOAP::Constants'			=> 0,
 
 		# Perl stuff
 		'Carp'		=> 0,
 
-		# Test stuff
-		'Test::More'	=> 0,
+		# minimum perl version
+		'perl'		=> '5.006',
 	},
-
-	'recommends'		=> {
-		# boo!
-	},
-
-	# FIXME wishlist...
-#	'test_requires'		=> {
-#		# Test stuff
-#		'Test::Compile'		=> 0,
-#		'Test::Perl::Critic'	=> 0,
-#		'Test::Dependencies'	=> 0,
-#		'Test::Distribution'	=> 0,
-#		'Test::Fixme'		=> 0,
-#		'Test::HasVersion'	=> 0,
-#		'Test::Kwalitee'	=> 0,
-#		'Test::CheckManifest'	=> 0,
-#		'Test::MinimumVersion'	=> 0,
-#		'Test::Pod::Coverage'	=> 0,
-#		'Test::Spelling'	=> 0,
-#		'Test::Pod'		=> 0,
-#		'Test::Prereq'		=> 0,
-#		'Test::Strict'		=> 0,
-#		'Test::UseAllModules'	=> 0,
-#	},
 );
 
 # all done!

Modified: trunk/libpoe-component-server-soap-perl/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libpoe-component-server-soap-perl/Changes?rev=30490&op=diff
==============================================================================
--- trunk/libpoe-component-server-soap-perl/Changes (original)
+++ trunk/libpoe-component-server-soap-perl/Changes Fri Feb  6 03:14:11 2009
@@ -1,4 +1,10 @@
 Revision history for Perl extension POE::Component::Server::SOAP.
+
+* 1.14
+
+	Converted to Build.PL
+	Removed stupid Test::* module requirements, thanks BiNGOs!
+	revamped test suite to modernize it
 
 * 1.13
 

Modified: trunk/libpoe-component-server-soap-perl/MANIFEST
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libpoe-component-server-soap-perl/MANIFEST?rev=30490&op=diff
==============================================================================
--- trunk/libpoe-component-server-soap-perl/MANIFEST (original)
+++ trunk/libpoe-component-server-soap-perl/MANIFEST Fri Feb  6 03:14:11 2009
@@ -5,24 +5,12 @@
 README
 lib/POE/Component/Server/SOAP.pm
 lib/POE/Component/Server/SOAP/Response.pm
+META.yml
+Changes
+LICENSE
+
 examples/test-client.perl
 examples/test-server.perl
-META.yml                                 Module meta-data (added by MakeMaker)
-Changes
-t/load.t
-t/a_critic.t
-t/a_kwalitee.t
-t/a_pod.t
-t/a_pod_spelling.t
-t/a_pod_coverage.t
-t/a_strict.t
-t/a_hasversion.t
-t/a_minimumversion.t
-t/a_manifest.t
-t/a_distribution.t
-t/a_compile.t
-t/a_dependencies.t
-t/a_fixme.t
-t/a_prereq.t
-t/a_prereq_build.t
-t/a_dosnewline.t
+
+t/1_load.t
+t/apocalypse.t

Modified: trunk/libpoe-component-server-soap-perl/MANIFEST.SKIP
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libpoe-component-server-soap-perl/MANIFEST.SKIP?rev=30490&op=diff
==============================================================================
--- trunk/libpoe-component-server-soap-perl/MANIFEST.SKIP (original)
+++ trunk/libpoe-component-server-soap-perl/MANIFEST.SKIP Fri Feb  6 03:14:11 2009
@@ -5,6 +5,7 @@
 
 # Avoid version control files.
 \B\.svn\b
+\B\.git\b
 
 # Avoid Makemaker generated and utility files.
 \bMANIFEST\.SKIP

Modified: trunk/libpoe-component-server-soap-perl/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libpoe-component-server-soap-perl/META.yml?rev=30490&op=diff
==============================================================================
--- trunk/libpoe-component-server-soap-perl/META.yml (original)
+++ trunk/libpoe-component-server-soap-perl/META.yml Fri Feb  6 03:14:11 2009
@@ -1,6 +1,6 @@
 ---
 name: POE-Component-Server-SOAP
-version: 1.13
+version: 1.14
 author:
   - 'Apocalypse E<lt>apocal at cpan.orgE<gt>'
 abstract: An easy to use SOAP/1.1 daemon for POE-enabled programs
@@ -10,18 +10,20 @@
 requires:
   Carp: 0
   POE: 0
-  POE::Component::Server::SimpleHTTP: 1.10
+  POE::Component::Server::SimpleHTTP: 1.54
+  POE::Session: 0
+  SOAP::Constants: 0
   SOAP::Lite: 0.55
-  Test::More: 0
+  perl: 5.006
 dynamic_config: 0
 provides:
   POE::Component::Server::SOAP:
     file: lib/POE/Component/Server/SOAP.pm
-    version: 1.13
+    version: 1.14
   POE::Component::Server::SOAP::Response:
     file: lib/POE/Component/Server/SOAP/Response.pm
-    version: 82
-generated_by: Module::Build version 0.2808
+    version: 1.14
+generated_by: Module::Build version 0.280801
 meta-spec:
   url: http://module-build.sourceforge.net/META-spec-v1.2.html
   version: 1.2

Modified: trunk/libpoe-component-server-soap-perl/Makefile.PL
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libpoe-component-server-soap-perl/Makefile.PL?rev=30490&op=diff
==============================================================================
--- trunk/libpoe-component-server-soap-perl/Makefile.PL (original)
+++ trunk/libpoe-component-server-soap-perl/Makefile.PL Fri Feb  6 03:14:11 2009
@@ -1,4 +1,5 @@
-# Note: this file was auto-generated by Module::Build::Compat version 0.03
+# Note: this file was auto-generated by Module::Build::Compat version 0.2808_01
+require 5.006;
 use ExtUtils::MakeMaker;
 WriteMakefile
 (
@@ -8,9 +9,10 @@
           'EXE_FILES' => [],
           'VERSION_FROM' => 'lib/POE/Component/Server/SOAP.pm',
           'PREREQ_PM' => {
-                           'Test::More' => 0,
                            'SOAP::Lite' => '0.55',
-                           'POE::Component::Server::SimpleHTTP' => '1.10',
+                           'SOAP::Constants' => 0,
+                           'POE::Component::Server::SimpleHTTP' => '1.54',
+                           'POE::Session' => 0,
                            'POE' => 0,
                            'Carp' => 0
                          }

Modified: trunk/libpoe-component-server-soap-perl/README
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libpoe-component-server-soap-perl/README?rev=30490&op=diff
==============================================================================
--- trunk/libpoe-component-server-soap-perl/README (original)
+++ trunk/libpoe-component-server-soap-perl/README Fri Feb  6 03:14:11 2009
@@ -422,22 +422,52 @@
     Ah, to use SSL in SOAP::Lite, simply use https://blah.com instead of
     http://blah.com
 
+SUPPORT
+    You can find documentation for this module with the perldoc command.
+
+        perldoc POE::Component::Server::SOAP
+
+  Websites
+    *   AnnoCPAN: Annotated CPAN documentation
+
+        <http://annocpan.org/dist/POE-Component-Server-SOAP>
+
+    *   CPAN Ratings
+
+        <http://cpanratings.perl.org/d/POE-Component-Server-SOAP>
+
+    *   RT: CPAN's request tracker
+
+        <http://rt.cpan.org/NoAuth/Bugs.html?Dist=POE-Component-Server-SOAP>
+
+    *   Search CPAN
+
+        <http://search.cpan.org/dist/POE-Component-Server-SOAP>
+
+  Bugs
+    Please report any bugs or feature requests to
+    "bug-poe-component-server-soap at rt.cpan.org", or through the web
+    interface at
+    <http://rt.cpan.org/NoAuth/ReportBug.html?Queue=POE-Component-Server-SOA
+    P>. I will be notified, and then you'll automatically be notified of
+    progress on your bug as I make changes.
+
 SEE ALSO
-            The examples directory that came with this component.
-
-            L<POE>
-
-            L<HTTP::Response>
-
-            L<HTTP::Request>
-
-            L<POE::Component::Server::SOAP::Response>
-
-            L<POE::Component::Server::SimpleHTTP>
-
-            L<SOAP::Lite>
-
-            L<POE::Component::SSLify>
+    The examples directory that came with this component.
+
+    POE
+
+    HTTP::Response
+
+    HTTP::Request
+
+    POE::Component::Server::SOAP::Response
+
+    POE::Component::Server::SimpleHTTP
+
+    SOAP::Lite
+
+    POE::Component::SSLify
 
 AUTHOR
     Apocalypse <apocal at cpan.org>
@@ -452,7 +482,7 @@
             Rocco may be contacted by e-mail via rcaputo at cpan.org.
 
 COPYRIGHT AND LICENSE
-    Copyright 2008 by Apocalypse
+    Copyright 2009 by Apocalypse
 
     This library is free software; you can redistribute it and/or modify it
     under the same terms as Perl itself.

Modified: trunk/libpoe-component-server-soap-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libpoe-component-server-soap-perl/debian/changelog?rev=30490&op=diff
==============================================================================
--- trunk/libpoe-component-server-soap-perl/debian/changelog (original)
+++ trunk/libpoe-component-server-soap-perl/debian/changelog Fri Feb  6 03:14:11 2009
@@ -1,9 +1,28 @@
-libpoe-component-server-soap-perl (1.13-2) UNRELEASED; urgency=low
+libpoe-component-server-soap-perl (1.14-1) UNRELEASED; urgency=low
+  
+  TODO: it needs Test-Apocalypse to complete all tests
+        ITPs welcome (rmayorga)
 
+  [ gregor herrmann ]
   * debian/control: Changed: Switched Vcs-Browser field to ViewSVN
     (source stanza).
 
- -- gregor herrmann <gregoa at debian.org>  Sun, 16 Nov 2008 20:46:22 +0100
+  [ Rene Mayorga ]
+  * New upstream release
+  * debian/control
+    + change debhelper version B-D to >= 7
+    + add myself to uploaders
+  * debian/copyright:
+    + update copyright proposal format
+    + separate debian/* copyright stanzas based on debian/changelog
+    + update upstream copyright years
+  * debian/rules
+    + update to dh 7 format
+    + do not include anymore PERL_TEST_CRITIC and PERL_TEST_POD
+      variables
+    + re-add TEST_AUTHOR variable
+
+ -- Rene Mayorga <rmayorga at debian.org>  Thu, 05 Feb 2009 20:03:00 -0600
 
 libpoe-component-server-soap-perl (1.13-1) unstable; urgency=low
 

Modified: trunk/libpoe-component-server-soap-perl/debian/compat
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libpoe-component-server-soap-perl/debian/compat?rev=30490&op=diff
==============================================================================
--- trunk/libpoe-component-server-soap-perl/debian/compat (original)
+++ trunk/libpoe-component-server-soap-perl/debian/compat Fri Feb  6 03:14:11 2009
@@ -1,1 +1,1 @@
-5
+7

Modified: trunk/libpoe-component-server-soap-perl/debian/control
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libpoe-component-server-soap-perl/debian/control?rev=30490&op=diff
==============================================================================
--- trunk/libpoe-component-server-soap-perl/debian/control (original)
+++ trunk/libpoe-component-server-soap-perl/debian/control Fri Feb  6 03:14:11 2009
@@ -1,13 +1,14 @@
 Source: libpoe-component-server-soap-perl
 Section: perl
 Priority: optional
-Build-Depends: debhelper (>= 5.0.0)
+Build-Depends: debhelper (>= 7)
 Build-Depends-Indep: perl (>= 5.8.8-12), libpoe-perl, libsoap-lite-perl,
  libpoe-component-server-simplehttp-perl, libtest-pod-perl,
  libtest-pod-coverage-perl, libtest-perl-critic-perl, libfile-find-rule-perl,
  libtest-distribution-perl
 Maintainer: Debian Perl Group <pkg-perl-maintainers at lists.alioth.debian.org>
-Uploaders: Martín Ferrari <tincho at debian.org>, Damyan Ivanov <dmn at debian.org>
+Uploaders: Martín Ferrari <tincho at debian.org>, Damyan Ivanov <dmn at debian.org>,
+ Rene Mayorga <rmayorga at debian.org>
 Standards-Version: 3.8.0
 Homepage: http://search.cpan.org/dist/POE-Component-Server-SOAP/
 Vcs-Svn: svn://svn.debian.org/pkg-perl/trunk/libpoe-component-server-soap-perl/

Modified: trunk/libpoe-component-server-soap-perl/debian/copyright
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libpoe-component-server-soap-perl/debian/copyright?rev=30490&op=diff
==============================================================================
--- trunk/libpoe-component-server-soap-perl/debian/copyright (original)
+++ trunk/libpoe-component-server-soap-perl/debian/copyright Fri Feb  6 03:14:11 2009
@@ -1,27 +1,30 @@
-Format-Specification: http://wiki.debian.org/Proposals/CopyrightFormat
-Upstream-Author: Apocalypse <APOCAL at cpan.org>
-Packaged-By: Martín Ferrari <tincho at debian.org>
-Packaged-Date: Thu, 14 Feb 2008 10:39:15 -0200
-Original-Source-Location: http://search.cpan.org/dist/POE-Component-Server-SOAP/
-Original-Source-Command: uscan --force-download
-Original-Source-Depends: devscripts
+Format-Specification:
+    http://wiki.debian.org/Proposals/CopyrightFormat?action=recall&rev=196
+Upstream-Maintainer: Apocalypse <apocal at cpan.org>
+Upstream-Source: http://search.cpan.org/dist/POE-Component-Server-SOAP/
+Upstream-Name: POE-Component-Server-SOAP
 
 Files: *
-Copyright: © 2008 Apocalypse
+Copyright: © 2008-2009 Apocalypse
            © 2002 Rocco Caputo. All rights are reserved.
+License-Alias: Perl
 License: Artistic | GPL-1+
- This library is free software; you can redistribute it and/or modify it under
- the same terms as Perl itself.
 
 Files: debian/*
-Copyright: © 2008 Debian Perl Group
-                  <pkg-perl-maintainers at lists.alioth.debian.org>
+Copyright: © 2008, Martín Ferrari <tincho at debian.org>
+           © 2008, Damyan Ivanov <dmn at debian.org>
 License: Artistic | GPL-1+
- The Debian packaging is © 2008, Debian Perl Group and is licensed under the
- same terms as the software itself (see above).
 
-Perl is distributed under your choice of the GNU General Public License or
-the Artistic License.  On Debian GNU/Linux systems, the complete text of the
-GNU General Public License can be found in `/usr/share/common-licenses/GPL'
-and the Artistic Licence in `/usr/share/common-licenses/Artistic'.
+License: Artistic
+    This program is free software; you can redistribute it and/or modify
+    it under the terms of the Artistic License, which comes with Perl.
+    On Debian GNU/Linux systems, the complete text of the Artistic License
+    can be found in `/usr/share/common-licenses/Artistic'
 
+License: GPL-1+
+    This program is free software; you can redistribute it and/or modify
+    it under the terms of the GNU General Public License as published by
+    the Free Software Foundation; either version 1, or (at your option)
+    any later version.
+    On Debian GNU/Linux systems, the complete text of the GNU General
+    Public License can be found in `/usr/share/common-licenses/GPL'

Added: trunk/libpoe-component-server-soap-perl/debian/libpoe-component-server-soap-perl.examples
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libpoe-component-server-soap-perl/debian/libpoe-component-server-soap-perl.examples?rev=30490&op=file
==============================================================================
--- trunk/libpoe-component-server-soap-perl/debian/libpoe-component-server-soap-perl.examples (added)
+++ trunk/libpoe-component-server-soap-perl/debian/libpoe-component-server-soap-perl.examples Fri Feb  6 03:14:11 2009
@@ -1,0 +1,1 @@
+examples/*

Modified: trunk/libpoe-component-server-soap-perl/debian/rules
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libpoe-component-server-soap-perl/debian/rules?rev=30490&op=diff
==============================================================================
--- trunk/libpoe-component-server-soap-perl/debian/rules (original)
+++ trunk/libpoe-component-server-soap-perl/debian/rules Fri Feb  6 03:14:11 2009
@@ -1,59 +1,23 @@
 #!/usr/bin/make -f
-
-# Uncomment this to turn on verbose mode.
-#export DH_VERBOSE=1
-# If set to a true value then MakeMaker's prompt function will
-# always return the default without waiting for user input.
-export PERL_MM_USE_DEFAULT=1
-
-PACKAGE = $(shell dh_listpackages)
-PERL   ?= /usr/bin/perl
-TMP     = $(CURDIR)/debian/$(PACKAGE)
 
 build: build-stamp
 build-stamp:
-	dh_testdir
-	$(PERL) Makefile.PL INSTALLDIRS=vendor
-	$(MAKE)
-	TEST_AUTHOR=1 PERL_TEST_CRITIC=1 PERL_TEST_POD=1 $(MAKE) test
+	TEST_AUTHOR=1 dh build
 	touch $@
 
 clean:
-	dh_testdir
-	dh_testroot
-	dh_clean build-stamp install-stamp
-	[ ! -f Makefile ] || $(MAKE) realclean
+	dh $@
 
 install: install-stamp
 install-stamp: build-stamp
-	dh_testdir
-	dh_testroot
-	dh_clean -k
-	$(MAKE) install DESTDIR=$(TMP) PREFIX=/usr
-	[ ! -d $(TMP)/usr/lib/perl5 ] || \
-		rmdir --ignore-fail-on-non-empty --parents --verbose \
-		$(TMP)/usr/lib/perl5
+	dh install
 	touch $@
 
 binary-arch:
-# NONE
 
-binary-indep: build install
-	dh_testdir
-	dh_testroot
-	dh_installexamples examples/*
-	dh_installdocs
-	dh_installchangelogs Changes
-	dh_perl
-	dh_compress
-	dh_fixperms
-	dh_installdeb
-	dh_gencontrol
-	dh_md5sums
-	dh_builddeb
+binary-indep: install
+	dh $@
 
-source diff:
-	@echo >&2 'source and diff are obsolete - use dpkg-source -b'; false
+binary: binary-arch binary-indep
 
-binary: binary-indep binary-arch
-.PHONY: build clean binary-indep binary-arch binary
+.PHONY: binary binary-arch binary-indep install clean build

Modified: trunk/libpoe-component-server-soap-perl/examples/test-client.perl
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libpoe-component-server-soap-perl/examples/test-client.perl?rev=30490&op=diff
==============================================================================
--- trunk/libpoe-component-server-soap-perl/examples/test-client.perl (original)
+++ trunk/libpoe-component-server-soap-perl/examples/test-client.perl Fri Feb  6 03:14:11 2009
@@ -1,6 +1,5 @@
 #!/usr/bin/perl
-
-use warnings;
+use strict; use warnings;
 
 use SOAP::Lite;
 use Data::Dumper qw( Dumper );

Modified: trunk/libpoe-component-server-soap-perl/examples/test-server.perl
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libpoe-component-server-soap-perl/examples/test-server.perl?rev=30490&op=diff
==============================================================================
--- trunk/libpoe-component-server-soap-perl/examples/test-server.perl (original)
+++ trunk/libpoe-component-server-soap-perl/examples/test-server.perl Fri Feb  6 03:14:11 2009
@@ -1,4 +1,5 @@
 #!/usr/bin/perl
+use strict; use warnings;
 
 # Include the local directory to LIB
 use FindBin qw($Bin);

Modified: trunk/libpoe-component-server-soap-perl/lib/POE/Component/Server/SOAP.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libpoe-component-server-soap-perl/lib/POE/Component/Server/SOAP.pm?rev=30490&op=diff
==============================================================================
--- trunk/libpoe-component-server-soap-perl/lib/POE/Component/Server/SOAP.pm (original)
+++ trunk/libpoe-component-server-soap-perl/lib/POE/Component/Server/SOAP.pm Fri Feb  6 03:14:11 2009
@@ -2,30 +2,27 @@
 package POE::Component::Server::SOAP;
 use strict; use warnings;
 
-use Carp qw(croak);
-
 # Initialize our version $LastChangedRevision: 83 $
 use vars qw( $VERSION );
-$VERSION = '1.13';
+$VERSION = '1.14';
+
+use Carp qw(croak);
 
 # Import the proper POE stuff
 use POE;
+use POE::Session;
 use POE::Component::Server::SimpleHTTP;
 
 # We need SOAP stuff
 use SOAP::Lite;
+use SOAP::Constants;
 
 # Our own modules
 use POE::Component::Server::SOAP::Response;
 
 # Set some constants
 BEGIN {
-	# Debug fun!
-	if ( ! defined &DEBUG ) {
-		## no critic
-		eval "sub DEBUG () { 0 }";
-		## use critic
-	}
+	if ( ! defined &DEBUG ) { *DEBUG = sub () { 0 } }
 }
 
 # Create a new instance
@@ -237,7 +234,7 @@
 	) or die 'Unable to create the HTTP Server';
 
 	# Success!
-	return 1;
+	return;
 }
 
 # Shuts down the server
@@ -252,7 +249,7 @@
 	}
 
 	# Success!
-	return 1;
+	return;
 }
 
 # Stops listening for connections
@@ -261,7 +258,7 @@
 	$_[KERNEL]->call( $_[HEAP]->{'ALIAS'} . '-BACKEND', 'STOPLISTEN' );
 
 	# Success!
-	return 1;
+	return;
 }
 
 # Starts listening for connections
@@ -270,7 +267,7 @@
 	$_[KERNEL]->call( $_[HEAP]->{'ALIAS'} . '-BACKEND', 'STARTLISTEN' );
 
 	# Success!
-	return 1;
+	return;
 }
 
 # Watches for SimpleHTTP shutting down and shuts down ourself
@@ -289,7 +286,7 @@
 	}
 
 	# All done!
-	return 1;
+	return;
 }
 
 # Adds a method
@@ -389,22 +386,21 @@
 				if ( DEBUG ) {
 					warn 'Tried to delete a nonexistant Method in Service -> ' . $service . ' : ' . $method;
 				}
-				return;
 			}
 		} else {
 			# Complain!
 			if ( DEBUG ) {
 				warn 'Did not get a method to delete in Service -> ' . $service;
 			}
-			return;
 		}
 	} else {
 		# No arguments!
 		if ( DEBUG ) {
 			warn 'Received no arguments!';
 		}
-		return;
-	}
+	}
+
+	return;
 }
 
 # Deletes a service
@@ -426,15 +422,15 @@
 			if ( DEBUG ) {
 				warn 'Tried to delete a Service that does not exist! -> ' . $service;
 			}
-			return;
 		}
 	} else {
 		# No arguments!
 		if ( DEBUG ) {
 			warn 'Received no arguments!';
 		}
-		return;
-	}
+	}
+
+	return;
 }
 
 # Got a request, handle it!
@@ -537,7 +533,7 @@
 
 	# Actually parse the SOAP query!
 	my $som_object;
-	eval { $som_object = SOAP::Deserializer->deserialize( $request->content() ) };
+	eval { $som_object = SOAP::Deserializer->deserialize( $request->content() ) };	## no critic ( RequireExplicitInclusion )
 
 	# Check for errors
 	if ( $@ ) {
@@ -568,7 +564,7 @@
 	my @headers = ();
 	while ( 1 ) {
 		# Get the header
-		my $hdr = $som_object->headerof( SOAP::SOM::header . "/[$head_count]" );
+		my $hdr = $som_object->headerof( SOAP::SOM::header . "/[$head_count]" );	## no critic ( RequireExplicitInclusion )
 
 		# Check if it is defined
 		if ( ! defined $hdr ) {
@@ -642,7 +638,7 @@
 	}
 
 	# All done!
-	return 1;
+	return;
 }
 
 # Creates the fault and sends it off
@@ -663,6 +659,7 @@
 	my $content = undef;
 	if ( $_[STATE] eq 'RAWFAULT' ) {
 		# Tell SOAP::Serializer to not serialize it
+		## no critic ( RequireExplicitInclusion )
 		$content = SOAP::Serializer->envelope( 'freeform', SOAP::Data->type( 'xml', $response->content() ) );
 	} else {
 		# Fault Code must be defined
@@ -688,6 +685,7 @@
 		}
 
 		# Serialize the envelope
+		## no critic ( RequireExplicitInclusion )
 		$content = SOAP::Serializer->envelope( 'fault', $fault_code, $fault_string, $fault_detail, $fault_actor );
 	}
 
@@ -711,7 +709,7 @@
 	}
 
 	# All done!
-	return 1;
+	return;
 }
 
 # All done with a transaction!
@@ -721,6 +719,7 @@
 
 	# Make the envelope!
 	# The prefix is to change the darned "c-gensym3" to "s-gensym3" -> means it was server-generated ( whatever SOAP::Lite says... )
+	## no critic ( RequireExplicitInclusion )
 	my $content = SOAP::Serializer->prefix( 's' )->envelope(
 		'response',
 		SOAP::Data->name( $response->soapmethod() . 'Response' )->uri( $response->soapuri() ),
@@ -728,6 +727,7 @@
 		# Do we need to serialize the content or not?
 		( $_[STATE] eq 'RAWDONE' ? SOAP::Data->type( 'xml', $response->content() ) : $response->content() ),
 	);
+	## use critic
 
 	# Set up the response!
 	if ( ! defined $response->code ) {
@@ -749,7 +749,7 @@
 	}
 
 	# All done!
-	return 1;
+	return;
 }
 
 # Close the transaction
@@ -766,7 +766,7 @@
 	}
 
 	# All done!
-	return 1;
+	return;
 }
 
 1;
@@ -1207,23 +1207,57 @@
 
 Ah, to use SSL in SOAP::Lite, simply use https://blah.com instead of http://blah.com
 
+=head1 SUPPORT
+
+You can find documentation for this module with the perldoc command.
+
+    perldoc POE::Component::Server::SOAP
+
+=head2 Websites
+
+=over 4
+
+=item * AnnoCPAN: Annotated CPAN documentation
+
+L<http://annocpan.org/dist/POE-Component-Server-SOAP>
+
+=item * CPAN Ratings
+
+L<http://cpanratings.perl.org/d/POE-Component-Server-SOAP>
+
+=item * RT: CPAN's request tracker
+
+L<http://rt.cpan.org/NoAuth/Bugs.html?Dist=POE-Component-Server-SOAP>
+
+=item * Search CPAN
+
+L<http://search.cpan.org/dist/POE-Component-Server-SOAP>
+
+=back
+
+=head2 Bugs
+
+Please report any bugs or feature requests to C<bug-poe-component-server-soap at rt.cpan.org>, or through
+the web interface at L<http://rt.cpan.org/NoAuth/ReportBug.html?Queue=POE-Component-Server-SOAP>.  I will be
+notified, and then you'll automatically be notified of progress on your bug as I make changes.
+
 =head1 SEE ALSO
 
-	The examples directory that came with this component.
-
-	L<POE>
-
-	L<HTTP::Response>
-
-	L<HTTP::Request>
-
-	L<POE::Component::Server::SOAP::Response>
-
-	L<POE::Component::Server::SimpleHTTP>
-
-	L<SOAP::Lite>
-
-	L<POE::Component::SSLify>
+The examples directory that came with this component.
+
+L<POE>
+
+L<HTTP::Response>
+
+L<HTTP::Request>
+
+L<POE::Component::Server::SOAP::Response>
+
+L<POE::Component::Server::SimpleHTTP>
+
+L<SOAP::Lite>
+
+L<POE::Component::SSLify>
 
 =head1 AUTHOR
 
@@ -1240,7 +1274,7 @@
 
 =head1 COPYRIGHT AND LICENSE
 
-Copyright 2008 by Apocalypse
+Copyright 2009 by Apocalypse
 
 This library is free software; you can redistribute it and/or modify
 it under the same terms as Perl itself.

Modified: trunk/libpoe-component-server-soap-perl/lib/POE/Component/Server/SOAP/Response.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libpoe-component-server-soap-perl/lib/POE/Component/Server/SOAP/Response.pm?rev=30490&op=diff
==============================================================================
--- trunk/libpoe-component-server-soap-perl/lib/POE/Component/Server/SOAP/Response.pm (original)
+++ trunk/libpoe-component-server-soap-perl/lib/POE/Component/Server/SOAP/Response.pm Fri Feb  6 03:14:11 2009
@@ -4,7 +4,7 @@
 
 # Initialize our version
 use vars qw( $VERSION );
-$VERSION = (qw$LastChangedRevision: 82 $)[1];
+$VERSION = '1.14';
 
 # Set our stuff to SimpleHTTP::Response
 use base qw( POE::Component::Server::SimpleHTTP::Response );
@@ -92,7 +92,7 @@
 
 =head1 COPYRIGHT AND LICENSE
 
-Copyright 2008 by Apocalypse
+Copyright 2009 by Apocalypse
 
 This library is free software; you can redistribute it and/or modify
 it under the same terms as Perl itself.

More information about the Pkg-perl-cvs-commits mailing list