jrockway

#!/usr/bin/env perl

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

use IO::Pty;
use Term::ReadKey;
use EV;
use AnyEvent;

jrockway

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

use Carp qw/confess/;
use Variable::Magic qw/wizard cast/;
use PadWalker qw/var_name/;

my $wiz = wizard(
    data => sub {

jrockway

#!/usr/bin/env perl

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

use AnyEvent;
use AnyEvent::Handle;
use EV;

jrockway

#!/usr/bin/env perl

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

use Encode qw(decode_utf8 encode_utf8 decode);

my $in = <>;
chomp $in;

jrockway

{-# LANGUAGE PackageImports #-}

import Control.Arrow
import Control.Applicative hiding (many, optional)
import Control.Monad
import Data.Char
import Data.List
import Text.ParserCombinators.PArrow.Char
import Text.ParserCombinators.PArrow.Combinator
import Text.ParserCombinators.PArrow.Prim

jrockway

#!/usr/bin/env perl

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

use EV;
use Coro;
use Coro::EV;
use Coro::Handle;

jrockway

#!/usr/bin/env perl

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

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

$|=1;

jrockway

test

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

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