Skip to content

Instantly share code, notes, and snippets.

View rbuels's full-sized avatar

Robert Buels rbuels

View GitHub Profile
see http://pdx.pm.org/kwiki/
Wed. August 12th, 6:53pm at FreeGeek -- 1731 SE 10th Ave.
How to Lie Like a Geek
speaker: Michael Schwern
Geeks have a special relationship with The Truth. Nothing is more
important than correcting a falsehood, no matter how small, and nothing
is more odious than not telling The Truth. Unfortunately, in speaking
use Module::Build;
my @compiler_flags;
if ($] < 5.006 and Module::Build->y_n("Does your system define the getcwd() C library function?", 'y')) {
@compiler_flags = ('-DHAS_GETCWD');
}
my $class = Module::Build->subclass(code => <<'EOF');
# See http://rt.cpan.org/NoAuth/Bug.html?id=4681 for why we add
# A declarative version of PDD07 for perl.
# Must apply...
-l=100 # Source line width is limited to 100 characters.
-i=4 # must be indented four columns (no tabs)
-ola # Labels (including case labels) must be outdented two columns
-ci=4 # Long lines, when split, must use at least one extra level of indentation on the continued line.
-ce # Cuddled elses are forbidden: i.e. avoid } else { .
###### instead of
my $statement = "SELECT name FROM public.wiki WHERE name='$name'";
#print "$statement\n";
next if my $arr_ref = $dbh->selectrow_arrayref($statement);
####### can do
next if $dbh->selectrow_arrayref(<<EOQ,undef,$name);
---
name: Bio-Chado-Schema
version: 0.021
author:
- 'Robert Buels, <rmb32@cornell.edu>'
abstract: standard DBIx::Class layer for the Chado schema
license: perl
resources:
license: http://dev.perl.org/licenses/
repository: http://github.com/rbuels/dbic_chado
---
name: Bio-Chado-Schema
version: 0.021
author:
- 'Robert Buels, <rmb32@cornell.edu>'
abstract: standard DBIx::Class layer for the Chado schema
license: perl
resources:
license: http://dev.perl.org/licenses/
repository: http://github.com/rbuels/dbic_chado
The following report has been written by the PAUSE namespace indexer.
Please contact modules@perl.org if there are any open questions.
Id
User: RBUELS (Robert Buels)
Distribution file: Bio-Chado-Schema-0.021.tar.gz
Number of files: 203
*.pm files: 163
README: Bio-Chado-Schema-0.021/README
META.yml: Bio-Chado-Schema-0.021/META.yml
The following report has been written by the PAUSE namespace indexer.
Please contact modules@perl.org if there are any open questions.
Id
User: RBUELS (Robert Buels)
Distribution file: Bio-Chado-Schema-0.022.tar.gz
Number of files: 203
*.pm files: 163
README: Bio-Chado-Schema-0.022/README
META.yml: Bio-Chado-Schema-0.022/META.yml
sub drop_ext_apk_test_schema {
my ( $schema, $no_warn ) = @_;
$schema->storage->dbh_do(sub {
my (undef,$dbh) = @_;
local $dbh->{Warn} = 1;
local $dbh->{RaiseError} = 0;
local $SIG{__WARN__} = \&diag;
Ace Hood Loco Wit the Cake Lyrics:
Spent thirty in tha mall
Goin loco with the cake
Five cars sittin tall
Goin loco with the cake
Ten on some Cali Bud
Goin loco with the cake
Den I hit the strip club
Goin loco with the cake