Ovid

#!/usr/bin/env perl

use 5.12.0;
use autodie;
use Carp;
use utf8::all;
use File::Spec::Functions qw(catfile catdir);
use File::Find::Rule;
use Getopt::Long;
use Capture::Tiny qw(capture);

Ovid

#Possible match (lib/DBIx/Class/ResultSet.pm near line 936) (lib/DBIx/Class/Relationship/Base.pm near line 512)
#Begining at:
}                                                                 | }
sub search_related {                                              | sub search_related {
    return shift(@_)->related_resultset(shift @_)->search(@_);    |     return shift(@_)->related_resultset(shift @_)->search(@_);
}                                                                 | }
sub search_related_rs {                                           | sub search_related_rs {
    return shift(@_)->related_resultset(shift @_)->search_rs(@_); |     return shift(@_)->related_resultset(shift @_)->search_rs(@_);
}                                                                 | }

Ovid

#!/usr/bin/env perl                                                                                                                                     

use Modern::Perl;
use App::Prove::State;

my ( $prove1, $prove2 ) = @ARGV;
unless ( -f $prove1 and -f $prove2 ) {
    die "Pass .prove files, please";
}

Ovid

enum RedBlack <R B>;
 
multi balance(B,[R,[R,$a,$x,$b],$y,$c],$z,$d) { 
     [R,[B,$a,$x,$b],$y,[B,$c,$z,$d]] 
}
multi balance(B,[R,$a,$x,[R,$b,$y,$c]],$z,$d) { 
     [R,[B,$a,$x,$b],$y,[B,$c,$z,$d]]
}
multi balance(B,$a,$x,[R,[R,$b,$y,$c],$z,$d]) {
     [R,[B,$a,$x,$b],$y,[B,$c,$z,$d]] 

Ovid

enum RedBlack <R B>;
 
sub MAIN {
    my $tree = Any;

    for (1..10).pick(*) -> $node {
        $tree = insert($node, $tree);
        printf "%2d: %s\n", $node, $tree.perl;
    }
}

Ovid

 8: [RedBlack::B, Any, 8, Any]
 6: [RedBlack::B, [RedBlack::R, Any, 6, Any], 8, Any]
 4: [RedBlack::B, [RedBlack::B, Any, 4, Any], 6, [RedBlack::B, Any, 8, Any]]
 7: [RedBlack::B, [RedBlack::B, Any, 4, Any], 6, [RedBlack::B, [RedBlack::R, Any, 7, Any], 8, Any]]
 9: [RedBlack::B, [RedBlack::B, Any, 4, Any], 6, [RedBlack::B, [RedBlack::R, Any, 7, Any], 8, [RedBlack::R, Any, 9, Any]]]
 3: [RedBlack::B, [RedBlack::B, [RedBlack::R, Any, 3, Any], 4, Any], 6, [RedBlack::B, [RedBlack::R, Any, 7, Any], 8, [RedBlack::R, Any, 9, Any]]]
 2: [RedBlack::B, [RedBlack::R, [RedBlack::B, Any, 2, Any], 3, [RedBlack::B, Any, 4, Any]], 6, [RedBlack::B, [RedBlack::R, Any, 7, Any], 8, [RedBlack::R, Any, 9, Any]]]
 1: [RedBlack::B, [RedBlack::R, [RedBlack::B, [RedBlack::R, Any, 1, Any], 2, Any], 3, [RedBlack::B, Any, 4, Any]], 6, [RedBlack::B, [RedBlack::R, Any, 7, Any], 8, [RedBlack::R, Any, 9, Any]]]
 5: [RedBlack::B, [RedBlack::R, [RedBlack::B, [RedBlack::R, Any, 1, Any], 2, Any], 3, [RedBlack::B, Any, 4, [RedBlack::R, Any, 5, An

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

" Drop this into .vim/plugin.vawa.vim
" if you already have vawa.vim, rename appropriately
" automatically highlights variables under cursor, allowing you to easily see the data flow.

" Vawa Plugin for VIM > 7.3 version 1.00
" Maintainer: Sandeep.c.r<[email protected]>
" Hacked for Perl by Curtis "Ovid" Poe <[email protected]>

function! s:vawa()
    call clearmatches()

Ovid

#!/usr/bin/env perl

use 5.10.0;
use strict;
use warnings;

use Getopt::Long;
use Data::Dumper;
$Data::Dumper::Indent = 0;
$Data::Dumper::Terse  = 1;

Ovid

tmux cheatsheet

As configured in my dotfiles.

start new:

tmux

start new with session name: