/ 
SOAP-Lite-0.42
River stage three • 111 direct dependents • 146 total dependents
/ UDDI::Lite

NAME

UDDI::Lite - Library for UDDI clients in Perl

SYNOPSIS

use UDDI::Lite;
print UDDI::Lite
  -> proxy('http://test.uddi.microsoft.com/inquire')
  -> find_business(name => 'old')
  -> result
  -> businessInfos->businessInfo->serviceInfos->serviceInfo->Name;

The same code with autodispatch: 

use UDDI::Lite +autodispatch => 
  proxy => 'http://test.uddi.microsoft.com/inquire'
;

print find_business(name => 'old')
  -> businessInfos->businessInfo->serviceInfos->serviceInfo->Name;

DESCRIPTION

UDDI::Lite for Perl is a collection of Perl modules which provides a simple and lightweight interface to the Universal Description, Discovery and Integration (UDDI) server.

To learn more about UDDI, visit http://www.uddi.org/.

The main features of the library are:

  • Supports both inquiry and publishing API

  • Builded on top of SOAP::Lite module, hence inherited syntax and features

  • Supports HTTPS protocol

  • Supports SMTP protocol

  • Supports Basic/Digest server authentication

OVERVIEW OF CLASSES AND PACKAGES

This table should give you a quick overview of the classes provided by the library.

UDDI::Lite.pm
-- UDDI::Lite         -- Main class provides all logic
-- UDDI::Data         -- Provides extensions for serialization architecture
-- UDDI::Serializer   -- Serializes data structures to UDDI/SOAP package
-- UDDI::Deserializer -- Deserializes result into objects
-- UDDI::SOM          -- Provides access to deserialized object tree

UDDI::Lite

All methods that UDDI::Lite gives you access to can be used for both setting and retrieving values. If you provide no parameters, you'll get current value, and if you'll provide parameter(s), new value will be assigned and method will return object (if not stated something else). This is suitable for stacking these calls like:

$uddi = UDDI::Lite
  -> on_debug(sub{print@_})
  -> proxy('http://test.uddi.microsoft.com/inquire')
;

Order is insignificant and you may call new() method first. If you don't do it, UDDI::Lite will do it for you. However, new() method gives you additional syntax:

$uddi = new UDDI::Lite
  on_debug => sub {print@_},
  proxy => 'http://test.uddi.microsoft.com/inquire'
;

new() accepts hash with method names and values, and will call appropriate method with passed value.

Since new() is optional it won't be mentioned anymore.

Other available methods inherited from SOAP::Lite and most usable are:

proxy()

Shortcut for transport->proxy(). Lets you specify endpoint and load required module at the same time. Required for dispatching UDDI/SOAP calls. Name of the module will be defined depending on protocol specified for endpoint. SOAP::Lite will do the rest work.

namespace()

Shortcut for serializer->namespace(). Lets you specify default namespace for generated envelope. 'SOAP-ENV' by default.

on_fault()

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 (see "DEFAULT HANDLERS") or locally, for particular object.

on_debug()

Lets you specify handler for on_debug event. Default behavior is do nothing. Use +trace/+debug option for UDDI::Lite instead.

UDDI::Data

You can use this class if you want to specify value and name for UDDI elements. For example, UDDI::Data->name('businessInfo')->value(123) will be serialized to <businessInfo>123</businessInfo>, as well as UDDI::Data-name(businessInfo => 123)>.

If you want to provide names for your parameters you can either specify

find_business(name => 'old')

or do it with UDDI::Data:

find_business(UDDI::Data->name(name => 'old'))

Later has some advantages: it'll work on any level, so you can do:

find_business(UDDI::Data->name(name => UDDI::Data->name(subname => 'old')))

and also you can create arrays with this syntax:

find_business(UDDI::Data->name(name => 
  [UDDI::Data->name(subname1 => 'name1'), 
   UDDI::Data->name(subname2 => 'name2')]))

will be serialized into:

<find_business xmlns="urn:uddi-org:api" generic="1.0">
  <name>
    <subname1>name1</subname1>
    <subname2>name2</subname2>
  </name>
</find_business>

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:

find_business({maxRows => 10}, UDDI::Data->name(name => old))

gives you

<find_business xmlns="urn:uddi-org:api" generic="1.0" maxRows="10">
  ....
</find_business>

You can also pass back parameters exactly as you get it from method call (like you probably want to do with authInfo).

You can get access to attributes and elements through the same interface:

my $list = find_business(name => old);
my $bis = $list->businessInfos;
for ($bis->businessInfo) {
  my $s = $_->serviceInfos->serviceInfo;
  print $s->Name,        # element
        $s->BusinessKey, # attribute
        "\n";
}

Unfortunately name() method is used internally, so for UDDI-specific name() element provided Name() alias and for all other methods provided aliases with first letter capitalized (for consistency).

print $s->businessKey; # gives the same result as
print $s->BusinessKey; # in last example

AUTODISPATCHING

UDDI::Lite provides autodispatching feature that lets you create code that looks similar for local and remote access.

For example:

use UDDI::Lite +autodispatch => 
  proxy => 'http://test.uddi.microsoft.com/inquire';

tells autodispatch all UDDI calls to 'http://test.uddi.microsoft.com/inquire'. All consequent calls can look like:

find_business(name => 'old');
find_business(UDDI::Data->name(name => 'old'));

BUGS AND LIMITATIONS

  • Interface is still subject to change.

  • Publishing API is not tested and though HTTPS/SLL is supported you should specify it yourself for publishing API calls.

AVAILABILITY

For now UDDI::Lite is distributed as part of SOAP::Lite package that you can download from ( http://geocities.com/paulclinger/soap.html ) or from CPAN ( http://search.cpan.org/search?dist=SOAP-Lite ).

SEE ALSO

SOAP::Lite

COPYRIGHT

Copyright (C) 2000 Paul Kulchenko. All rights reserved.

This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself.

AUTHOR

Paul Kulchenko (paulclinger@yahoo.com)