use strict;
use warnings;
use PadWalker qw/peek_my/;

--- eyefi.txt	2009-08-14 12:32:01.000000000 +0900
+++ iphoto.txt	2009-08-14 12:32:02.000000000 +0900
@@ -70,6 +70,33 @@

From aa6e56cc12ae0f4bc61f6c8bdcca9ab717d52ae4 Mon Sep 17 00:00:00 2001
From: Tokuhiro Matsuno <tokuhirom@gmail.com>
Date: Wed, 5 Aug 2009 17:08:09 +0900

use strict;
use warnings;
use Encode ();

1..15
# Using valgrind 3.5.0 located at /usr/local/bin/valgrind
ok 1 - InvalidFree

test

use strict;
use warnings;
use AnyEvent;

# $ tweet Hi mom!
#
# Put this in ~/.bashrc or wherever.

#!/usr/bin/perl
use strict;
use AnyEvent;

#!/usr/bin/perl -w
 
use strict;

use strict;
use warnings;
use Coro ();

----
Num of Records      : 10000
Non-Blocking IO     : 0

use Modern::Perl;
use DBI;
use DBD::Pg qw(:async);

use Modern::Perl;
 
{

use strict;
use warnings;
use autodie;

Index: dbdimp.c
===================================================================
--- dbdimp.c	(revision 5881)

use strict;
 
 

#include "bindpp.h"
 
XS(xs_store) {

use strict;
use warnings;
 

#include <sys/sysinfo.h>
#include "bindpp.h"