/usr/share/perl5/POE/Component/Server/SOAP/Response.pm is in libpoe-component-server-soap-perl 1.14-1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
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
|