- or download this
package policy;
...
return $result;
}
- or download this
#!/usr/bin/perl -w
# test-policy.pl
...
-> uri('urn:policy')
-> checkPolicyPrice($policyCode,$date)
-> result;
- or download this
#!/usr/bin/perl - w
# policy.cgi -policy SOAP handler
...
-> dispatch_to('policy::(?:checkPolicyPrice)')
-> handle
;
- or download this
$ perl test-policy.pl
what is your policyCode?ABC
what is your date?31/10/2007
500 Internal Server Error at test-policy.pl line 10