Skip to content

Instantly share code, notes, and snippets.

@mateu
mateu / gist:c08f6084c8d1516166b6
Created January 22, 2015 18:14
generate a warning for an incorrect Content-Length header
#!/usr/bin/env perl
use strict 'vars';
use warnings;
use Plack;
use Plack::Test::Agent;
use Socket;
my $server = 'Standalone';
@mateu
mateu / gist:2902025
Created June 9, 2012 18:08
testicle
festival
use strict;
use warnings;
use 5.010;
my $var;
$var //= 2;
say $var;
my @array_multiplied = qw(3 5 7) x 3;