andrewyatz

public enum P {
        
    PERSON('email@somwhere.com', true),
    OTHER('email@somwhere.com', true),
    EH('email@somwhere.com', true),
    
    private final String email
    private final Boolean satan

    private P(String email, Boolean satan) {

andrewyatz

use strict;
use warnings;

use Bio::EnsEMBL::Gene;
use Bio::EnsEMBL::Registry;
use Bio::EnsEMBL::Utils::SqlHelper;
use Benchmark qw(cmpthese);

Bio::EnsEMBL::Registry->load_registry_from_db(
  -HOST => 'mysql.ebi.ac.uk',

andrewyatz

use strict;
use warnings;

use Data::Dumper; # Not required
use Storable qw(nfreeze thaw);
use IO::Compress::Gzip qw(gzip $GzipError); # qw() imports only for functional
use IO::Uncompress::Gunzip qw(gunzip $GunzipError); # qw() imports only for functional

#Just doing some quick obj hacks
my $v = bless({ b => bless({ a => 1, c => [qw(x y z)]}, 'My::A') }, 'My::B');

andrewyatz

#!/bin/env perl

use strict;
use warnings;

use Getopt::Long;
use Pod::Usage;
use Bio::EnsEMBL::Registry;
use Bio::EnsEMBL::Utils::Scalar qw(wrap_array);
use IO::String;

andrewyatz

=head1 LICENSE

 Copyright (c) 1999-2011 The European Bioinformatics Institute and
 Genome Research Limited.  All rights reserved.

 This software is distributed under a modified Apache license.
 For license details, please see

   http://www.ensembl.org/info/about/code_licence.html

andrewyatz

-- Setup the following schema
CREATE TABLE `seq` (
  `id` int(11) unsigned NOT NULL AUTO_INCREMENT,
  `name` varchar(11) NOT NULL,
  `value` int(11) NOT NULL,
  PRIMARY KEY (`id`),
  UNIQUE KEY `name_idx` (`name`)
) ENGINE=InnoDB;

andrewyatz

use strict;
use warnings;

use IPC::Open3;
use IO::Select;

my $debug = 1;
my $cmd = 'do something on the system';

my ($in_fh, $out_fh, $err_fh);

andrewyatz

use strict;
use warnings;

use Bio::EnsEMBL::Registry;

Bio::EnsEMBL::Registry->load_registry_from_db(
	-host=>'mysql.ebi.ac.uk',
	-user=>'anonymous',
	-port=>4157,
	-db_version => 61

andrewyatz

use strict;
use warnings;

use Bio::EnsEMBL::Registry;
use SOAP::Lite;
# Use the import below if you want to see more information from webservices
# otherwise use the one above
# use SOAP::Lite +trace => 'debug';

my $species = 'aedes aegypti';

andrewyatz

use strict;
use warnings;
use Bio::EnsEMBL::Registry;
use Bio::EnsEMBL::DBSQL::DBConnection;
use Bio::EnsEMBL::Utils::SqlHelper;

#Load all DBs from Ensembl Genomes
Bio::EnsEMBL::Registry->load_registry_from_db(
  -HOST => 'mysql.ebi.ac.uk',
  -PORT => 4157,