Permalink
Browse files

Removing ClientFetcher, moving to new_from_registry system

svn path=/bioperl-corba-client/trunk/; revision=56
  • Loading branch information...
1 parent 5b44336 commit ef879356d865b51b38888b8f993bb8ad4a7dc1c3 elia committed Feb 27, 2002
Showing with 4 additions and 681 deletions.
  1. +1 −1 Bio/CorbaClient/Base.pm
  2. +3 −3 Bio/CorbaClient/Client.pm
  3. +0 −80 Bio/CorbaClient/ClientFetcher.pm
  4. +0 −597 biocorba.idl
View
@@ -21,7 +21,7 @@ Bio::CorbaClient::Base - Base class for all Corba Client wrappers
This is the base class for all Biocorba client wrappers. This class
provides the simple memory management model which is crucial to make
-sure we don't leave objects forever on the server side. The memory
+sure we do not leave objects forever on the server side. The memory
management happens via ref/unref calls - generally we will never touch
ref as (from our perspective) we only ever get on object. unref is
important (duh!).
@@ -71,7 +71,7 @@ package Bio::CorbaClient::Client;
use vars qw(@ISA);
use strict;
-use CORBA::ORBit idl => [ '../../idl/biocorba.idl' ];
+use CORBA::ORBit idl => [ '/home/elia/src/bioperl-corba-client/idl/biocorba.idl' ];
use Bio::Root::Root;
@@ -85,10 +85,10 @@ sub new {
@args);
$self->{'_ior'} = $ior || $self->throw("must provide an ior file to open");
- $self->{'_idl'} = $idl || '../../idl/biocorba.idl';
+ $self->{'_idl'} = $idl || '/home/elia/src/bioperl-corba-client/idl/biocorba.idl';
$self->{'_orbname'} = $orbname || 'orbit-local-orb';
- my $orb = CORBA::ORB_init($orbname);
+ my $orb = CORBA::ORB_init($self->{'_orbname'});
open( IOR, $self->{'_ior'}) || $self->throw("cannot open ior file " .
$self->{'_ior'});
@@ -1,80 +0,0 @@
-# $Id$
-#
-# BioPerl module for Bio::CorbaClient::ClientFetcher
-#
-# Elia Stupka <elia@fugu-sg.org
-#
-# Copyright Elia Stupka
-#
-# You may distribute this module under the same terms as perl itself
-
-# POD documentation - main docs before the code
-
-=head1 NAME
-
-Bio::CorbaClient::ClientFetcher - Registry fetcher for BioCorba Client complying with the new->(%config) interface...
-
-=head1 SYNOPSIS
-
- use Bio::CorbaClient::ClientFetcher;
- # in this example we build a SeqDB
- # have a SeqDB object already called $seqdbref
- my $client = new Bio::CorbaClient::ClientFetcher(%config);
-
-=head1 DESCRIPTION
-
-This object gets a BioCorba Client objects based on a Registry hash
-
-=head1 FEEDBACK
-
-=head2 Mailing Lists
-
-User feedback is an integral part of the evolution of this and other
-Bioperl modules. Send your comments and suggestions preferably to one
-of the Bioperl mailing lists. Your participation is much appreciated.
-
- bioperl-l@bioperl.org - General Bioperl discussion
- biocorba-l@biocorba.org - General Biocorba discussion
- http://www.bioperl.org/MailList.html - About the bioperl mailing list
- http://www.biocorba.org/MailList.shtml - About the biocorba mailing list
-
-=head2 Reporting Bugs
-
-Report bugs to the Bioperl bug tracking system to help us keep track
- the bugs and their resolution.
- Bug reports can be submitted via email or the web:
-
- bioperl-bugs@bio.perl.org
- http://bio.perl.org/bioperl-bugs/
-
-=head1 AUTHOR - Elia Stupka
-
-Email elia@fugu-sg.org
-
-=head1 APPENDIX
-
-The rest of the documentation details each of the object
-methods. Internal methods are usually preceded with a _
-
-=cut
-
-# object code begins
-
-package Bio::CorbaClient::ClientFetcher;
-
-use vars qw(@ISA);
-use strict;
-use Bio::CorbaClient::Client;
-use Bio::Root::Root;
-
-@ISA = qw ( Bio::Root::Root);
-
-sub new {
- my ( $class, %config ) = @_;
- my $self = $class->SUPER::new(%config);
-
- my $client = new Bio::CorbaClient::Client( -ior => $config{'location'});
- return $client;
-}
-
-
Oops, something went wrong.

0 comments on commit ef87935

Please sign in to comment.