File: Mod_Perl2Test.pm

package info (click to toggle)
libsoap-wsdl-perl 3.004-2
  • links: PTS, VCS
  • area: main
  • in suites: bookworm, forky, sid, trixie
  • size: 2,600 kB
  • sloc: perl: 8,433; xml: 1,769; java: 19; makefile: 15
file content (15 lines) | stat: -rw-r--r-- 351 bytes parent folder | download | duplicates (6) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
package Mod_Perl2Test;
use strict; use warnings;
use Class::Std::Fast;

sub sayHello {
    my ($self, $body, $header) = @_;
    my $name = $body->get_name();
    my $givenName = $body->get_givenName();

    die "FOO" if ($name eq '__DIE__');

    return MyElements::sayHelloResponse->new({
        sayHelloResult => "Hello $givenName $name"
    })}
1;