1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
|
# $Id: Response.pm 82 2008-08-08 01:30:59Z larwan $
package POE::Component::Server::SOAP::Response;
use strict; use warnings;
# Initialize our version
use vars qw( $VERSION );
$VERSION = '1.14';
# Set our stuff to SimpleHTTP::Response
use base qw( POE::Component::Server::SimpleHTTP::Response );
# Accessor for SOAP Service name
sub soapservice {
return shift->{'SOAPSERVICE'};
}
# Accessor for SOAP Method name
sub soapmethod {
return shift->{'SOAPMETHOD'};
}
# Accessor for SOAP Headers
sub soapheaders {
return shift->{'SOAPHEADERS'};
}
# Accessor for SOAP Body
sub soapbody {
return shift->{'SOAPBODY'};
}
# Accessor for SOAP URI
sub soapuri {
return shift->{'SOAPURI'};
}
# Accessor for the original HTTP::Request object
sub soaprequest {
return shift->{'SOAPREQUEST'};
}
# End of module
1;
__END__
=head1 NAME
POE::Component::Server::SOAP::Response - Emulates a SimpleHTTP::Response object, used to store SOAP data
=head1 SYNOPSIS
use POE::Component::Server::SOAP;
# Get the response object from SOAP
my $response = $_[ARG0];
print $response->soapmethod;
=head1 DESCRIPTION
This module is used as a drop-in replacement, because we need to store some SOAP data for the response.
=head2 METHODS
# Get the response object from SOAP
my $response = $_[ARG0];
$response->soaprequest() # Returns the original HTTP::Request object from SimpleHTTP
$response->soapservice() # Returns the service that triggered this SOAP instance
$response->soapmethod() # Returns the method that triggered this SOAP instance
$response->soapuri() # Returns the original URI of the request without the method
$response->soapheaders() # Returns an arrayref of SOAP::Header objects ( undef if none )
$response->soapbody() # Returns the body as a hashref ( undef if no arguments )
=head2 EXPORT
Nothing.
=head1 SEE ALSO
L<POE::Component::Server::SimpleHTTP>
L<POE::Component::Server::SimpleHTTP::Connection>
L<POE::Component::Server::SOAP>
L<SOAP::Lite>
=head1 AUTHOR
Apocalypse E<lt>apocal@cpan.orgE<gt>
=head1 COPYRIGHT AND LICENSE
Copyright 2009 by Apocalypse
This library is free software; you can redistribute it and/or modify
it under the same terms as Perl itself.
=cut
|
