Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

Adding new_from_registry...

svn path=/bioperl-corba-client/trunk/; revision=57
  • Loading branch information...
commit 593b96df76852b29b4d0d395d118ea53dc4ef3ef 1 parent ef87935
elia authored
Showing with 13 additions and 0 deletions.
  1. +13 −0 Bio/CorbaClient/SeqDB.pm
View
13 Bio/CorbaClient/SeqDB.pm
@@ -64,6 +64,7 @@ use strict;
use Bio::CorbaClient::Seq;
use Bio::DB::SeqI;
use Bio::CorbaClient::Base;
+use CORBA::ORBit idl => [ 'idl/biocorba.idl' ];
# implements the Bio::DB::SeqI interface
@@ -72,6 +73,18 @@ use Bio::CorbaClient::Base;
# new() inherited from Bio::CorbaClient::Base
+sub new_from_registry {
+ my ($class,%config) = @_;
+
+ my $orb = CORBA::ORB_init("orbit-local-orb");
+ open(F,$config{'location'});
+ my $ior = <F>;
+ chomp $ior;
+ my $ref = $orb->string_to_object($ior);
+ my $self = $class->SUPER::new('corbaref' => $ref);
+ return $self;
+}
+
=head2 get_Seq_by_id
Title : get_Seq_by_id
Please sign in to comment.
Something went wrong with that request. Please try again.