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

#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

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

sub _build_breadboard {
    my $self = shift;

jrockway

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

# this is a test

jrockway

#!/usr/bin/env perl

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

use Guard;

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

jrockway

#!/usr/bin/env perl

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

use URI::Escape;

sub xx {
    uri_unescape(

jrockway

import Control.Applicative
import Control.Concurrent
import Control.Monad
import Data.Complex
import Data.List (find)
import Graphics.EasyRaster.GTK
import System.Environment
import System.IO

-- | Type representing points in an image

jrockway

FastCgiServer /var/www/blog/app/angerwhale/script/angerwhale_fastcgi.pl -processes 1

NameVirtualHost *
<VirtualHost *>
	ServerAdmin jon-www@jrock.us
	ServerName blog.jrock.us
	
	DocumentRoot /var/www/blog/app/angerwhale/
	Alias /static /var/www/blog/app/angerwhale/root/static
	Alias / /var/www/blog/app/angerwhale/script/angerwhale_fastcgi.pl/

jrockway

test

jrockway

#!/usr/bin/env perl

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

use Term::ReadKey;
use AnyEvent::Subprocess;

$|=1;