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
|
package EastHantsWSDL;
# -- generated by SOAP::Lite (v0.60) for Perl -- soaplite.com -- Copyright (C) 2000-2001 Paul Kulchenko --
# -- generated from http://www.easthants.gov.uk/forms.nsf/InputFeedback?WSDL [Thu Oct 16 12:31:57 2008]
my %methods = (
INPUTFEEDBACK => {
endpoint => 'http://www.easthants.gov.uk:80/forms.nsf/InputFeedback?OpenWebService',
soapaction => 'INPUTFEEDBACK',
uri => 'urn:DefaultNamespace',
parameters => [
SOAP::Data->new(name => 'STRSERVICENAME', type => 'xsd:string', attr => {}),
SOAP::Data->new(name => 'STRREMOTECREATEDBY', type => 'xsd:string', attr => {}),
SOAP::Data->new(name => 'STRSALUTATION', type => 'xsd:string', attr => {}),
SOAP::Data->new(name => 'STRFIRSTNAME', type => 'xsd:string', attr => {}),
SOAP::Data->new(name => 'STRNAME', type => 'xsd:string', attr => {}),
SOAP::Data->new(name => 'STREMAIL', type => 'xsd:string', attr => {}),
SOAP::Data->new(name => 'STRTELEPHONE', type => 'xsd:string', attr => {}),
SOAP::Data->new(name => 'STRHOUSENONAME', type => 'xsd:string', attr => {}),
SOAP::Data->new(name => 'STRSTREET', type => 'xsd:string', attr => {}),
SOAP::Data->new(name => 'STRTOWN', type => 'xsd:string', attr => {}),
SOAP::Data->new(name => 'STRCOUNTY', type => 'xsd:string', attr => {}),
SOAP::Data->new(name => 'STRCOUNTRY', type => 'xsd:string', attr => {}),
SOAP::Data->new(name => 'STRPOSTCODE', type => 'xsd:string', attr => {}),
SOAP::Data->new(name => 'STRCOMMENTS', type => 'xsd:string', attr => {}),
SOAP::Data->new(name => 'STRFURTHERINFO', type => 'xsd:string', attr => {}),
SOAP::Data->new(name => 'STRIMAGEURL', type => 'xsd:string', attr => {}),
],
},
);
use SOAP::Lite; # +trace => [qw(debug)];
use Exporter;
use Carp ();
use vars qw(@ISA $AUTOLOAD @EXPORT_OK %EXPORT_TAGS);
@ISA = qw(Exporter SOAP::Lite);
@EXPORT_OK = (keys %methods);
%EXPORT_TAGS = ('all' => [@EXPORT_OK]);
no strict 'refs';
for my $method (@EXPORT_OK) {
my %method = %{$methods{$method}};
*$method = sub {
my $self = UNIVERSAL::isa($_[0] => __PACKAGE__)
? ref $_[0] ? shift # OBJECT
# CLASS, either get self or create new and assign to self
: (shift->self || __PACKAGE__->self(__PACKAGE__->new))
# function call, either get self or create new and assign to self
: (__PACKAGE__->self || __PACKAGE__->self(__PACKAGE__->new));
$self->proxy($method{endpoint} || Carp::croak "No server address (proxy) specified") unless $self->proxy;
my @templates = @{$method{parameters}};
my $som = $self
-> endpoint($method{endpoint})
-> uri($method{uri})
-> on_action(sub{qq!"$method{soapaction}"!})
-> call($method => map {@templates ? shift(@templates)->value($_) : $_} @_);
UNIVERSAL::isa($som => 'SOAP::SOM') ? wantarray ? $som->paramsall : $som->result
: $som;
}
}
sub AUTOLOAD {
my $method = substr($AUTOLOAD, rindex($AUTOLOAD, '::') + 2);
return if $method eq 'DESTROY';
die "Unrecognized method '$method'. List of available method(s): @EXPORT_OK\n";
}
1;
|
