package Example;
use warnings;
use strict;
use CAM::SOAPApp;
our @ISA = qw(SOAP::Server::Parameters);
sub getEmployeeData {
my $pkg = shift;
my $app = CAM::SOAPApp->new(soapdata => \@_);
my %data = $app->getSOAPData();
if (!$data{ssn} || $data{ssn} ne '111-11-1111') {
$app->error('BadSSN', 'Never heard of that employee');
}
return $app->response(name => 'John Smith',
birthdate => '1969-01-01',
phone => '212-555-1212');
}
sub fail {
# Used to test client's handling of faults
die 'Test fault handling';
}
sub abort {
# Used to test client's handling of abrupt server departure
exit(0);
}
1;