jrockway

Section "ServerLayout"
    Identifier     "Layout0"
    Screen      0  "Screen0" 0 0
    Screen      1  "Screen1" RightOf "Screen0"
    InputDevice    "Keyboard0" "CoreKeyboard"
    InputDevice    "Mouse0" "CorePointer"
    Option         "Xinerama" "0"
EndSection

Section "Files"

jrockway

#!/usr/bin/perl -n
BEGIN { print "digraph modules {\n" } 
if(/^([^[:space:]]+).*\s([^[:space:]]+)$/) {
    print "# $1 -> $2\n"; 
    for (split /,/,$2) { 
        print "    $1 -> $_;\n";
    }
} 
END { print "}" }

jrockway

#include "display.h"
#include "third_party/i2cmaster.h"

static const uint8_t number_table[] = {
    0x3F, 0x06, 0x5B, 0x4F, 0x66, 0x6D, 0x7D, 0x07, 0x7F, 0x6F, 0x77, 0x7C,
    0x39, 0x5E, 0x79, 0x71 };

void init_display(int address) {
  i2c_start_wait(address + I2C_WRITE);
  i2c_write(0x21);

jrockway

#!/usr/bin/env perl

use strict;
use warnings;
use feature ':5.10';
use autodie qw/open/;

my $file = shift;
open my $fh, '<', $file;

jrockway

#!/usr/bin/env perl

use strict;
use warnings;
use feature ':5.10';
use Config;

my $event_size =
    ($Config{longsize} * 2) +   # input_event.time (struct timeval)
    ($Config{i16size} * 2) +    # input_event.type, input_event.code

jrockway

has 'request_builder' => (
    is       => 'ro',
    isa      => 'CodeRef',
    traits   => ['Code'],
    handles  => { request => 'execute' },
    default  => sub {
        my ($self) = @_;
        weaken $self;
        return sub {
            my ($method, $uri, $headers, $cb) = @_;

jrockway

function EventListener() {}

EventListener.prototype.listen_to = function (that) {
    for (var key in this) {
        var event;
        if(event = /^handle_(.+)$/.exec(key)){
            var method = [this, this[event[0]]];
            that.on( event[1], function() {
                method[1].apply(method[0], arguments);
            });

jrockway

#include <errno.h>
#include <netinet/in.h>
#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <sys/socket.h>
#include <sys/time.h>
#include <sys/types.h>
#include <time.h>

jrockway

use strict;
use 5.010;

{ package Class;
  sub new { my $self = bless $_[1], $_[0]; warn $self; $self }
  sub DESTROY { warn $_[0] }
}

# works
{

jrockway

#!/usr/bin/env perl

use strict;
use warnings;
use feature ':5.10';

use AnyEvent::HTTP;
my $cv = AE::cv;

http_get 'http://www.google.com/', $cv;