LS - Perl module for building clients and servers which resolve and perform metadata queries on LSIDs.

 use LS::ID;
 use LS::Locator;

 $lsid = LS::ID->new(
    'urn:lsid:biomoby.org:servicetype:Retrieval:2001-09-21T16-00-00Z'
     );

 $locator = LS::Locator->new();
 $authority = $locator->resolveAuthority($lsid);

 $resource = $authority->getResource($lsid);

 $data = $resource->getData();

 $response = $data->response();

 # $response is a filehandle, so you can use it as with any other

 print <$response>;

The LS module is used for building clients and servers which resolve LSIDs and perform metadata queries on LSIDs. More information on LSIDs can be found at http://www.omg.org/cgi-bin/doc?dtc/04-05-01

 Creates default accessor methods for an array ref of method names
 in the package specified by $package

LS::ID, LS::Locator, LS::Authority, LS::Resource, LS::Service, LS::SOAP::Service, LS::HTTP::Service, http://www.omg.org/cgi-bin/doc?dtc/04-05-01, http://oss.software.ibm.com/developerworks/projects/lsid

IBM

Copyright (c) 2002,2003 IBM Corporation All rights reserved. This program and the accompanying materials are made available under the terms of the Common Public License v1.0 which accompanies this distribution, and is available at http://www.opensource.org/licenses/cpl.php

LS::Base - This package is the base package that all other LS packages inherit from.

A list of variables used in this package.

 Package error string.

 Holds the Carp stack traces

 Appends additional information to the error string
 Parameters - $extraMessage, Required. The additional information to store.

 Parameters - $errorMessage, Required. The message to be stored in the class's
 rror string.

 Appends a Carp stack trace to the error string

 Retrieves a copy (in the form of an arrayref) of the 
 stack traces associated with this object.

 Returns - An arrayref that is a COPY of the arrayref containing
 all of the stack traces.

 Determins whether or not a stack trace is present

 Returns - True if there is a stack trace
 		   False / undef if no stack trace is available
=cut

sub hasStackTrace {

	my $self = shift;

	if($self && ref $self) {

		return (scalar(@{ $self->{'_stack_trace'} } > 0) );
	}
	else {

		return (scalar(@{ $_STACK_TRACE }) > 0);
	}
}

 Clears the stack trace

 Returns one of two error strings:

 1. if the class has been blessed in to a reference, the internal
 class error string is returned.
 2. if the class has not been blessed in to a reference, the package
 error string is returned.

 These values may be undef if no error has occured.

 Synonym for errorString

 Returns the complete error with all applicable 
 stack traces.

 Returns - A very detailed error message

LS::ID, LS::Locator, LS::Authority, LS::Resource, LS::Service, LS::SOAP::Service, LS::HTTP::Service, http://www.omg.org/cgi-bin/doc?dtc/04-05-01, http://oss.software.ibm.com/developerworks/projects/lsid

IBM

Copyright (c) 2002,2003 IBM Corporation All rights reserved. This program and the accompanying materials are made available under the terms of the Common Public License v1.0 which accompanies this distribution, and is available at http://www.opensource.org/licenses/cpl.php