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