Jonathan Rockway jrockway

## gist:50929
Test

## server.pl
#!/usr/bin/env perl

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

use POE;
use HTTP::Engine;

my $body = "0"x1_000_000;

## evil.html
<html>
  <head>
<title>Test page</title>
</head>
<body>
  <h1>Test page</h1>
  Hello, world.
  <script language="javascript">
    document.write("Before: " + top);
    top = null;

## VeryHackedCarp.pm
# Carp::Heavy uses some variables in common with Carp.
package Carp;

=head1 NAME

Carp::Heavy - heavy machinery, no user serviceable parts inside

=cut

# On one line so MakeMaker will see it.

## event.pl
#!/usr/bin/env perl

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

use AnyEvent;
use AnyEvent::Handle;

open my $fd, '|-', 'perl -ne "sleep 1; print"' or die $!;

## redirect-to-filehandle.pl
#!/usr/bin/env perl

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

open my $fh, '>', 'test.txt' or die $!;

my $reopen = sub() {
    open $_[0], $_[1]. '&='. fileno($_[2]) or die "failed to reopen: $!";

## gist:134105
perl -MEncode=encode -e 'my $str = "\x{eeffff}"; my $enc = encode("utf-16be", $str); print join q{,}, length $str, do { use bytes; length $enc }'

## bad.pl
my $hash = { keys => 'go here',
             and  => 'here',
           };

## good.pl
my $hash = {
    keys   => 'go here',
    and    => 'here',
    blocks => sub {
        'nest like this';
    },
};


## output
[~] 0 (jon@bar)
$ perl slave.pl
Got 'f'
Got 'o'
Got 'o'
Got ''
Got ''
Got ''
Got 'b'
Got 'z'
	#!/usr/bin/env perl

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

	use POE;
	use HTTP::Engine;

	my $body = "0"x1_000_000;
	<html>
	<head>
	<title>Test page</title>
	</head>
	<body>
	<h1>Test page</h1>
	Hello, world.
	<script language="javascript">
	document.write("Before: " + top);
	top = null;
	# Carp::Heavy uses some variables in common with Carp.
	package Carp;

	=head1 NAME

	Carp::Heavy - heavy machinery, no user serviceable parts inside

	=cut

	# On one line so MakeMaker will see it.
	my $hash = {
	keys => 'go here',
	and => 'here',
	blocks => sub {
	'nest like this';
	},
	};
	[~] 0 (jon@bar)
	$ perl slave.pl
	Got 'f'
	Got 'o'
	Got 'o'
	Got ''
	Got ''
	Got ''
	Got 'b'
	Got 'z'