lite.html

来自「perl教程」· HTML 代码 · 共 380 行 · 第 1/2 页

<dd>
<p>Lets you specify handler for on_fault event. Default behavior is die
on transport error and does nothing on others. You can change this
behavior globally or locally, for particular object.</p>
</dd>
</li>
<dt><strong><a name="item_on_debug"><code>on_debug()</code></a></strong>

<dd>
<p>Lets you specify handler for on_debug event. Default behavior is do
nothing. Use +trace/+debug option for UDDI::Lite instead.</p>
</dd>
</li>
</dl>
<p>
</p>
<h2><a name="uddi__data">UDDI::Data</a></h2>
<p>You can use this class if you want to specify value and name for UDDI
elements.
For example, <code>UDDI::Data-&gt;name('businessInfo')-&gt;value(123)</code> will
be serialized to <code>&lt;businessInfo&gt;123&lt;/businessInfo&gt;</code>, as
well as <code>UDDI::Data-</code>name(businessInfo =&gt; 123)&gt;.</p>
<p>If you want to provide names for your parameters you can either specify</p>
<pre>
  find_business(name =&gt; 'old')</pre>
<p>or do it with UDDI::Data:</p>
<pre>
  find_business(UDDI::Data-&gt;name(name =&gt; 'old'))</pre>
<p>Later has some advantages: it'll work on any level, so you can do:</p>
<pre>
  find_business(UDDI::Data-&gt;name(name =&gt; UDDI::Data-&gt;name(subname =&gt; 'old')))</pre>
<p>and also you can create arrays with this syntax:</p>
<pre>
  find_business(UDDI::Data-&gt;name(name =&gt;
    [UDDI::Data-&gt;name(subname1 =&gt; 'name1'),
     UDDI::Data-&gt;name(subname2 =&gt; 'name2')]))</pre>
<p>will be serialized into:</p>
<pre>
  &lt;find_business xmlns=&quot;urn:uddi-org:api&quot; generic=&quot;1.0&quot;&gt;
    &lt;name&gt;
      &lt;subname1&gt;name1&lt;/subname1&gt;
      &lt;subname2&gt;name2&lt;/subname2&gt;
    &lt;/name&gt;
  &lt;/find_business&gt;</pre>
<p>For standard elements more convinient syntax is available:</p>
<pre>
  find_business(
    findQualifiers(findQualifier('sortByNameAsc',
                                 'caseSensitiveMatch')),
    name('M')
  )</pre>
<p>and</p>
<pre>
  find_business(
    findQualifiers([findQualifier('sortByNameAsc'),
                    findQualifier('caseSensitiveMatch')]),
    name('M')
  )</pre>
<p>both will generate:</p>
<pre>
  &lt;SOAP-ENV:Envelope
    xmlns:SOAP-ENV=&quot;<a href="http://schemas.xmlsoap.org/soap/envelope/">http://schemas.xmlsoap.org/soap/envelope/</a>&quot;&gt;
    &lt;SOAP-ENV:Body&gt;
      &lt;find_business xmlns=&quot;urn:uddi-org:api&quot; generic=&quot;1.0&quot;&gt;
        &lt;findQualifiers&gt;
          &lt;findQualifier&gt;sortByNameAsc&lt;/findQualifier&gt;
          &lt;findQualifier&gt;caseSensitiveMatch&lt;/findQualifier&gt;
        &lt;/findQualifiers&gt;
        &lt;name&gt;M&lt;/name&gt;
      &lt;/find_business&gt;
    &lt;/SOAP-ENV:Body&gt;
  &lt;/SOAP-ENV:Envelope&gt;</pre>
<p>You can use ANY valid combinations (according to &quot;UDDI Programmer's
API Specification&quot;). If you try to generate something unusual, like
<code>name(name('myname'))</code>, you'll get:</p>
<pre>
  Don't know what to do with 'name' and 'name' elements ....</pre>
<p>If you REALLY need to do it, use <code>UDDI::Data</code> syntax described above.</p>
<p>As special case you can pass hash as the first parameter of method
call and values of this hash will be added as attributes to top element:</p>
<pre>
  <span class="variable">find_business</span><span class="operator">(</span><span class="operator">{</span><span class="string">maxRows</span> <span class="operator">=&gt;</span> <span class="number">10</span><span class="operator">}</span><span class="operator">,</span> <span class="variable">UDDI::Data</span><span class="operator">-&gt;</span><span class="variable">name</span><span class="operator">(</span><span class="string">name</span> <span class="operator">=&gt;</span> <span class="variable">old</span><span class="operator">))</span>
</pre>
<p>gives you</p>
<pre>
  &lt;find_business xmlns=&quot;urn:uddi-org:api&quot; generic=&quot;1.0&quot; maxRows=&quot;10&quot;&gt;
    ....
  &lt;/find_business&gt;</pre>
<p>You can also pass back parameters exactly as you get it from method call
(like you probably want to do with authInfo).</p>
<p>You can get access to attributes and elements through the same interface:</p>
<pre>
  <span class="keyword">my</span> <span class="variable">$list</span> <span class="operator">=</span> <span class="variable">find_business</span><span class="operator">(</span><span class="string">name</span> <span class="operator">=&gt;</span> <span class="variable">old</span><span class="operator">);</span>
  <span class="keyword">my</span> <span class="variable">$bis</span> <span class="operator">=</span> <span class="variable">$list</span><span class="operator">-&gt;</span><span class="variable">businessInfos</span><span class="operator">;</span>
  <span class="keyword">for</span> <span class="operator">(</span><span class="variable">$bis</span><span class="operator">-&gt;</span><span class="variable">businessInfo</span><span class="operator">)</span> <span class="operator">{</span>
    <span class="keyword">my</span> <span class="variable">$s</span> <span class="operator">=</span> <span class="variable">$_</span><span class="operator">-&gt;</span><span class="variable">serviceInfos</span><span class="operator">-&gt;</span><span class="variable">serviceInfo</span><span class="operator">;</span>
    <span class="keyword">print</span> <span class="variable">$s</span><span class="operator">-&gt;</span><span class="variable">name</span><span class="operator">,</span>        <span class="comment"># element</span>
          <span class="variable">$s</span><span class="operator">-&gt;</span><span class="variable">businessKey</span><span class="operator">,</span> <span class="comment"># attribute</span>
          <span class="string">"\n"</span><span class="operator">;</span>
  <span class="operator">}</span>
</pre>
<p>To match advantages provided by <code>with</code> operator available in other
languages (like VB) we provide similar functionality that adds you
flexibility:</p>
<pre>
    with findQualifiers =&gt;
      findQualifier =&gt; 'sortByNameAsc',
      findQualifier =&gt; 'caseSensitiveMatch'</pre>
<p>is the same as:</p>
<pre>
    with(findQualifiers =&gt;
      findQualifier('sortByNameAsc'),
      findQualifier('caseSensitiveMatch'),
    )</pre>
<p>and:</p>
<pre>
    findQualifiers-&gt;with(
      findQualifier('sortByNameAsc'),
      findQualifier('caseSensitiveMatch'),
    )</pre>
<p>will all generate the same code as mentioned above:</p>
<pre>
    findQualifiers(findQualifier('sortByNameAsc',
                                 'caseSensitiveMatch')),</pre>
<p>Advantage of <code>with</code> syntax is the you can specify both attributes and
elements through the same interface. First argument is element where all
other elements and attributes will be attached. Provided examples and
tests cover different syntaxes.</p>
<p>
</p>
<h2><a name="autodispatching">AUTODISPATCHING</a></h2>
<p>UDDI::Lite provides autodispatching feature that lets you create
code that looks similar for local and remote access.</p>
<p>For example:</p>
<pre>
  <span class="keyword">use</span> <span class="variable">UDDI::Lite</span> <span class="operator">+</span><span class="string">autodispatch</span> <span class="operator">=&gt;</span>
    <span class="string">proxy</span> <span class="operator">=&gt;</span> <span class="string">'http://uddi.microsoft.com/inquire'</span><span class="operator">;</span>
</pre>
<p>tells autodispatch all UDDI calls to
'http://uddi.microsoft.com/inquire'. All subsequent calls can look
like:</p>
<pre>
  <span class="variable">find_business</span><span class="operator">(</span><span class="string">name</span> <span class="operator">=&gt;</span> <span class="string">'old'</span><span class="operator">);</span>
  <span class="variable">find_business</span><span class="operator">(</span><span class="variable">UDDI::Data</span><span class="operator">-&gt;</span><span class="variable">name</span><span class="operator">(</span><span class="string">name</span> <span class="operator">=&gt;</span> <span class="string">'old'</span><span class="operator">));</span>
  <span class="variable">find_business</span><span class="operator">(</span><span class="variable">name</span><span class="operator">(</span><span class="string">'old'</span><span class="operator">));</span>
</pre>
<p>
</p>
<hr />
<h1><a name="bugs_and_limitations">BUGS AND LIMITATIONS</a></h1>
<ul>
<li>
<p>Interface is still subject to change.</p>
</li>
<li>
<p>Though HTTPS/SSL is supported you should specify it yourself (with
<a href="#item_proxy"><code>proxy</code></a> or <code>endpoint</code>) for publishing API calls.</p>
</li>
</ul>
<p>
</p>
<hr />
<h1><a name="availability">AVAILABILITY</a></h1>
<p>For now UDDI::Lite is distributed as part of SOAP::Lite package.
You can download it from ( <a href="http://soaplite.com/">http://soaplite.com/</a> )
or from CPAN ( <a href="http://search.cpan.org/search?dist=SOAP-Lite">http://search.cpan.org/search?dist=SOAP-Lite</a> ).</p>
<p>
</p>
<hr />
<h1><a name="see_also">SEE ALSO</a></h1>
<p><a href="../../lib/SOAP/Lite.html">the SOAP::Lite manpage</a> ( <a href="http://search.cpan.org/search?dist=SOAP-Lite">http://search.cpan.org/search?dist=SOAP-Lite</a> )
<em>UDDI</em> ( <a href="http://search.cpan.org/search?dist=UDDI">http://search.cpan.org/search?dist=UDDI</a> )</p>
<p>
</p>
<hr />
<h1><a name="copyright">COPYRIGHT</a></h1>
<p>Copyright (C) 2000-2001 Paul Kulchenko. All rights reserved.</p>
<p>This library is free software; you can redistribute it and/or modify
it under the same terms as Perl itself.</p>
<p>
</p>
<hr />
<h1><a name="author">AUTHOR</a></h1>
<p>Paul Kulchenko (<a href="mailto:[e-mail]">[e-mail]</a>)</p>

</body>

</html>