XrefMapper
db
Toolbar
Package variables
No package variables defined.
Included modules
Synopsis
No synopsis!
Description
No description!
Methods
Methods description
Arg [1] : (optional) string $arg
The new value of the dir used
Example : $dir = $db->dir()
Description: Getter/Setter for the directory used in the creation of fasta file
Returntype : string
Exceptions : none
Caller : new |
Arg [1] : (optional) string $arg
the fasta file name for the ensembl dna
Example : $file_name = $self->ensembl_dna_file();
Description: Getter / Setter for the protien ensembl fasta file
Returntype : string
Exceptions : none |
Arg [1] : (optional) string $arg
the fasta file name for the ensembl proteins
Example : $file_name = $self->ensembl_protein_file();
Description: Getter / Setter for the protien ensembl fasta file
Returntype : string
Exceptions : none |
Methods code
sub dbc
{ my $self = shift;
if(@_){
my $arg = shift;
if(defined($arg)){
if(!$arg->isa('Bio::EnsEMBL::DBSQL::DBConnection')){
throw("$arg is no a DBConnection\n");
}
}
$self->{_dbc} = $arg;
}
return $self->{_dbc};} | sub dir
{ my ($self, $arg) = @_;
(defined $arg) &&
($self->{_dir} = process_dir($arg) );
return $self->{_dir};} | sub dna_file
{ my ($self, $arg) = @_;
(defined $arg) &&
($self->{_ens_dna_file} = $arg );
return $self->{_ens_dna_file};} | sub new
{ my($class, @args) = @_;
my $self ={};
bless $self,$class;
$self->dbc(new Bio::EnsEMBL::DBSQL::DBConnection(@args));
return $self;} | sub process_dir
{ my ($dir) = @_;
if($dir =~ "^\/" ) {
if(! -d $dir){
die "directory does not exist $dir\n";
}
}
elsif($dir eq "."){
$dir = cwd();
}
elsif($dir =~ "^\.\/"){
my $tmp = $dir;
$dir = cwd() . "/" . substr( $tmp, 2 );
if(! -d $dir){
die "directory does not exist $dir\n";
}
}
else{
die "directory does not exist $dir\n";
}
return $dir;
}
1;} | sub protein_file
{ my ($self, $arg) = @_;
(defined $arg) &&
($self->{_ens_prot_file} = $arg );
return $self->{_ens_prot_file};} | sub species
{ my ($self, $arg) = @_;
(defined $arg) &&
($self->{_species} = $arg );
return $self->{_species};} | General documentation
No general documentation available.