The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
DRUOSO / Catalyst-Controller-SOAP-1.24 / t / type-in-message.t 
use Test::More tests => 2;

BEGIN { use_ok('Catalyst::Controller::SOAP') };
use Catalyst::Action::SOAP::DocumentLiteral;
use lib qw(t/lib);
use Catalyst::Test 'TestApp2';
use Encode;
use HTTP::Request::Common;

my $response = soap_xml_post('/hello',<<SOAPENV);
   <Envelope xmlns="http://schemas.xmlsoap.org/soap/envelope/">
      <Body>
        <GreetingSpecifier xmlns="http://example.com/hello">
          <who>World</who>
          <greeting>Hello</greeting>
          <count>1</count>
        </GreetingSpecifier>
      </Body>
    </Envelope>
SOAPENV

like($response->content, qr/Hello World/, 'Hello World!');

sub soap_xml_post {
    my $path = shift;
    my $content = shift;

    return request POST $path, 
        Content => $content,
        Content_Type => 'application/soap+xml', 
        SOAPAction => 'http://example.com/actions/Greet';
}