Ovid

   SELECT thread.*
     FROM email        thread
     JOIN email        selected    ON selected.email_thread_id = thread.email_thread_id
     JOIN character    recipient   ON recipient.character_id   = thread.recipient_id
     JOIN station_area sa          ON sa.station_area_id       = recipient.station_area_id
     JOIN station      st          ON st.station_id            = sa.station_id
     JOIN star         origin      ON origin.star_id           = thread.sender_star_id
     JOIN star         destination ON destination.star_id      = st.star_id
LEFT JOIN route
       ON ( route.from_id = origin.star_id AND route.to_id = destination.star_id )

Ovid

tmux cheatsheet

As configured in my dotfiles.

start new:

tmux

start new with session name:

Ovid

#!/usr/bin/env perl

use autodie ':all';
use Test::Most;
use FindBin;
use Veure::Config 'config';
use File::Spec::Functions 'catfile';
use Capture::Tiny 'capture';

bail_on_fail;

Ovid

#!/usr/bin/env perl

use Modern::Perl;
use File::Temp 'tempfile';
use IO::All;

my $libcustom = '.libcustom';

# run the code with perl -c and show STDERR if it fails. Otherwise, rerun it
# with perl -c -Mwarnings::unused

Ovid

use strict;                                                                                                                                                  
use warnings;
use utf8::all;

use Test::More;
use Unicode::Collate;

my $a1 = "\N{U+212B}";              # Å
my $a2 = "\N{U+00C5}";              # Å
my $a3 = "\N{U+0041}\N{U+030A}";    # Å

Ovid

use strict;                                                                                                                                                                          
use warnings;
use Devel::Peek;
Dump $_ for .96, 0.96;

# this is fine
eval "use Data::Dumper 0.01 'Dumper'";
my $error = $@ || "none";
print "\nError is: $error\n";

Ovid

execve("/usr/bin/git", ["git", "push", "-v", "origin", "users/ovid"], [/* 66 vars */]) = 0                                                                                                                                                                                    
brk(0)                                  = 0x13f3000
access("/etc/ld.so.nohwcap", F_OK)      = -1 ENOENT (No such file or directory)
mmap(NULL, 8192, PROT_READ|PROT_WRITE, MAP_PRIVATE|MAP_ANONYMOUS, -1, 0) = 0x7f3804f8f000
access("/etc/ld.so.preload", R_OK)      = -1 ENOENT (No such file or directory)
open("/etc/ld.so.cache", O_RDONLY)      = 3
fstat(3, {st_mode=S_IFREG|0644, st_size=80249, ...}) = 0
mmap(NULL, 80249, PROT_READ, MAP_PRIVATE, 3, 0) = 0x7f3804f7b000
close(3)                                = 0
access("/etc/ld.so.nohwcap", F_OK)      = -1 ENOENT (No such file or directory)

Ovid

# lie to the debugger about what the lines of code are                                                                                                                               
no strict 'refs';
my $line_num = 0;
foreach ( @{"::_<$filename"} ) { 

    # uncomment these to blow your f'in mind
    #if ( not defined ) {
    #    use Devel::Peek;
    #    warn "line number is $line_num";
    #    Dump($_);

Ovid

# Fetch Federal Register daily XML documents
# I decided not to include this in my book.
# 
# This script is for daily updates and will be slow. Go to
# http://www.gpo.gov/fdsys/bulkdata/FR to download a year
# worth of documents at a time in .zip format. This script
# can then keep you up to date.

use strict;                                                                                                                                                                          
use warnings;

Ovid

# Why do people think this stuff is clever?
no warnings;my$M=__PACKAGE__.::;*{$M.Object::new}=sub{bless{@_[1..$#_]},$_[0]};
*{$M.import}=sub{import warnings;$^H|=1538;my($P,%e,%o)=caller.::;shift;
eval"no Mo::$_",&{$M.$_.::e}($P,\%e,\%o,\@_)for@_;return if$e{M};
%e=(extends,sub{eval"no $_[0]()";@{$P.ISA}=$_[0]},has,sub{my$n=shift;
my$m=sub{$#_?$_[0]{$n}=$_[1]:$_[0]{$n}};$m=$o{$_}->($m,$n,@_)for sort keys%o;
*{$P.$n}=$m},%e,);*{$P.$_}=$e{$_}for keys%e;@{$P.ISA}=$M.Object};
*{$M.'builder::e'}=sub{my($P,$e,$o)=@_;$o->{builder}=sub{my($m,$n,%a)=@_;
my$b=$a{builder}or return$m;sub{$#_?$m->(@_):!exists$_[0]{$n}?$_[0]{$n}=
$_[0]->$b:$m->(@_)}}};*{$M.'default::e'}=sub{my($P,$e,$o)=@_;$o->{default}