Nicolas R. atoomic

Keybase proof

I hereby claim:

I am atoomic on github.
I am atoomic (https://keybase.io/atoomic) on keybase.
I have a public key ASCVq4GX0RUzPgH8lBFIeXySjdro_x0ePooO2OEfifh2rwo

To claim this, I am signing this object:

Each of these commands will run an ad hoc http static server in your current (or specified) directory, available at http://localhost:8000. Use this power wisely.

Discussion on reddit.

Python 2.x

$ python -m SimpleHTTPServer 8000

	#!perl

	use Test::More;

	my %storage;
	use constant SAMPLE_CONSTANT => defined eval { $storage{cache} = get_string('abcd') };

	sub get_string {
	my ( $str ) = @_;
	return ":$str:";

	#!perl

	use strict;
	use warnings;

	use feature 'say';

	use Net::Google::Drive::Simple;

	my $gd = Net::Google::Drive::Simple->new();

	#!env perl

	use v5.20;

	use feature qw(signatures say);
	no warnings qw(experimental::signatures);

	use Test::More;
	use HTTP::Tiny;

	#!/usr/bin/env perl

	use strict;
	use warnings;

	use v5.20;
	use feature qw(signatures);
	no warnings qw(experimental::signatures);

	require Dumbbench; # use() causes breakage w/ perlcc.

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

	#define SMARTY_SIZE_INIT 16

	typedef struct {
	char * str; // a null terminated C string
	char * end; // a pointer to the null byte, to be able to repeatedly append
	// without using strlen() every time.
	size_t size; // currently allocated size for *str, so we know when we

	body { background: #222; color: #e6e6e6; }

	a { color: #949494; }

	a:link, a:visited { color: #949494; }

	a:hover, a:active, a:focus { color: #c7c7c7; }

	hr { border-bottom: 1px solid #424242; border-top: 1px solid #222; }

	Test Summary Report
	-------------------
	test/050-object-type.tml (Wstat: 0 Tests: 9 Failed: 1)
	Failed test: 9
	Parse errors: No plan found in TAP output
	test/090-catch-error.tml (Wstat: 0 Tests: 0 Failed: 0)
	Parse errors: No plan found in TAP output
	test/110-stdlib-tests.tml (Wstat: 0 Tests: 13 Failed: 0)
	Parse errors: No plan found in TAP output
	Files=18, Tests=114, 12 wallclock secs ( 0.09 usr 0.04 sys + 9.43 cusr 1.81 csys = 11.37 CPU)

	package Z;
	use Devel::Peek ();
	use overload "+"=>sub {42};
	die "fail" unless 42 == bless({}) + 1;

	Devel::Peek::Dump \%Z::;
	use Inline C => <<END;
	void foo(SV* targ) {
	if (!SvOK(targ)) return;
	if (SvROK(targ)) targ = SvRV(targ);