jjl

use Modern::Perl;
use utf8;
use Carp;
use Want;
use CLASS;
use SUPER;
use autodie;
use autobox;
use autobox::Core;
use signatures;

jjl

use strict;
sub foo {
    interceptive_block {
        bar();
    } intercept(baz => $baz) {
        //$baz = 'baz'
    }   
}

sub bar {

jjl

#!/usr/bin/perl

use strict;
use warnings;

use SQL::Translator;
use File::Basename qw( basename dirname );
use Cwd qw( realpath );
use File::Temp qw( tempfile tempdir );

jjl

from django.core.files.storage import DefaultStorage
return DefaultStorage().url('/path/to/img.gif')

jjl

(defun bf-pretty-print-xml-region (begin end)
  "Pretty format XML markup in region. You need to have nxml-mode
http://www.emacswiki.org/cgi-bin/wiki/NxmlMode installed to do
this.  The function inserts linebreaks to separate tags that have
nothing but whitespace between them.  It then indents the markup
by using nxml's indentation rules."
  (interactive "r")
  (save-excursion
      (nxml-mode)
      (goto-char begin)

jjl

print repr(structure) # they share the same syntax.

jjl

def printshape(x):
    children = lambda a: { printshape(b) for b in a }
    fmt = lambda a,b: a.format("|".join(b))
    together = lambda a,b: fmt(a, children(b))
    if isinstance(x, list):
        return together("list[{}]", x)
    elif isinstance(x, set):
        return together("set[{}]", x)
    elif isinstance(x, tuple):
        return together("tuple[{}]", x)

jjl

ssh -L1080:127.0.0.1:1080 userc@machineb

jjl

use Text::CSV::Encoded;
use Encode qw(encode decode);
use autodie;
use feature ':5.16';
use strict;
use warnings;

sub go {
  my $lineno = 1; # Sadly, using Text::CSV to read the lines (necessary for
                  # correctly handling embedded newlines) breaks $.

jjl

-- Multiply a Row Vector by a Column Vector
multPerpendicularVecs = zipWith (*)
-- Multiply 2 Row Vectors (ugh, that's not supposed to happen), or 2x Col Vecs
multParallelVecs a b = fmap (* (sum a)) b