ensembl-variation DBH
Package variablesGeneral documentationMethods
Toolbar
WebCvsRaw content
Package variables
No package variables defined.
Included modules
DBI
Synopsis
No synopsis!
Description
No description!
Methods
AUTOLOAD
No description
Code
DESTROY
No description
Code
connect
No description
Code
dbh
No description
Code
dbname
No description
Code
host
No description
Code
pass
No description
Code
port
No description
Code
user
No description
Code
Methods description
None available.
Methods code
AUTOLOADdescriptionprevnextTop
sub AUTOLOAD {
  my $self = shift;
  $AUTOLOAD =~ /(\w+)$/;
  my $method = $1;
  $self->dbh()->$method(@_);
}
DESTROYdescriptionprevnextTop
sub DESTROY {
}


1;
}
connectdescriptionprevnextTop
sub connect {
  my $class = shift;
  my $dsn  = shift;
  my $user = shift;
  my $pass = shift;
  my $opts = shift;

  my $self = bless {}, $class;

  $self->dbh(DBI->connect($dsn, $user, $pass,$opts));

  $dsn =~ s/^\w+:\w+://;

  my @ar = split(';', $dsn);

  foreach my $str (@ar) {
    my ($type, $value) = split(/\s*=\s*/, $str);
    $self->$type($value);
  }

  $self->user($user);
  $self->pass($pass);

  return $self;
}
dbhdescriptionprevnextTop
sub dbh {
  my $self = shift;
  return $self->{'dbh'} = shift if(@_);
  return $self->{'dbh'};
}
dbnamedescriptionprevnextTop
sub dbname {
  my $self = shift;
  return $self->{'dbname'} = shift if(@_);
  return $self->{'dbname'};
}
hostdescriptionprevnextTop
sub host {
  my $self = shift;
  return $self->{'hostname'} = shift if(@_);
  return $self->{'hostname'};
}
passdescriptionprevnextTop
sub pass {
  my $self = shift;
  return $self->{'password'} = shift if(@_);
  return $self->{'password'};
}
portdescriptionprevnextTop
sub port {
  my $self = shift;
  return $self->{'port'} = shift if(@_);
  return $self->{'port'};
}
userdescriptionprevnextTop
sub user {
  my $self = shift;
  return $self->{'user'} = shift if(@_);
  return $self->{'user'};
}
General documentation
No general documentation available.