import SOAP-WSDL 2.00_25 from CPAN

git-cpan-module: SOAP-WSDL git-cpan-version: 2.00_25 git-cpan-authorid: MKUTTER git-cpan-file: authors/id/M/MK/MKUTTER/SOAP-WSDL-2.00_25.tar.gz
2009-12-12 19:48:11 -08:00
parent 84b53d9261
commit a9033164e6
177 changed files with 3449 additions and 2063 deletions
@@ -0,0 +1,29 @@
+use lib 'lib';
+use lib '../lib';
+use MyInterfaces::BarCode::BarCodeSoap;
+my $interface = MyInterfaces::BarCode::BarCodeSoap->new();
+my $barcode = $interface->GenerateBarCode(  {
+           BarCodeParam =>     { # MyTypes::BarCodeData
+             Height =>  42, # int
+             Width =>  120, # int
+             Angle =>  90, # int
+             Ratio =>  1, # int
+             Module =>  1, # int
+             Left =>  10, # int
+             Top =>  10, # int
+             CheckSum =>  0, # boolean
+             FontName =>  'Arial', # string
+             BarColor =>  'black', # string
+             BGColor =>  'white', # string
+             FontSize =>  6.25, # float
+             barcodeOption => 'Both', # BarcodeOption
+             barcodeType => 'CodeMSI', # BarcodeType
+             checkSumMethod => 'None', # CheckSumMethod
+             showTextPosition => 'TopLeft', # ShowTextPosition
+             BarCodeImageFormat => 'PNG', # ImageFormats
+           },
+           BarCodeText =>  'JustSomeText', # string
+         },
+        );
+die $barcode if not ($barcode);
+print $barcode;