jrockway

#!/usr/bin/env perl

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

use URI::Escape;

sub xx {
    uri_unescape(

jrockway

#!/usr/bin/env perl

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

use Guard;

sub unwind_protect(&@){
    my $code = shift;

jrockway

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

# this is a test

jrockway

has 'breadboard' => (
    is      => 'ro',
    isa     => 'Bread::Board::Container',
    handles => ['fetch'],
    builder => '_build_breadboard',
);

sub _build_breadboard {
    my $self = shift;

jrockway

#include <EXTERN.h>
#include <perl.h>
#include <stdlib.h>
#include <stdio.h>

PerlInterpreter *my_perl;

inline SV *run_in(PerlInterpreter *perl, char *code){
  SV *result;
  my_perl = perl;

jrockway

use strict;
use warnings;
use Test::More;

BEGIN { use_ok 'Eval::Clean' };
use JSON;

my $perl = Eval::Clean::new_perl();
ok $perl, 'got a new perl';

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;

jrockway

use strict;
use 5.010;

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

# works
{

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

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);
            });