yappo

use strict;
use warnings;
use Test::More;

my $x = 'x'x(1024*1024*10);
while (1) {
    ok($x, $x);
}

yappo

use strict;
use warnings;
use DBI;
use YAML;

my $dbh = DBI->connect('DBI:SQLite:');
#my $dbh = DBI->connect('DBI:mysql:test');
$dbh->do('CREATE TABLE hyoshiok ( dan BIGINT, kogai BIGINT )');

sub insert {

yappo

(defun perl-insert-package ()
  (interactive)
  (require 'perl-completion)
  (cond
   ((null buffer-file-truename) (error "no buffer-file-truename"))
   (t
    (let* ((s (replace-regexp-in-string
               (rx-to-string `(and bol ,(plcmp--get-lib-path) (? "/")))
               ""
               (expand-file-name buffer-file-truename)))

yappo

use strict;
use warnings;
use Benchmark ':all';

use LWP::Simple;
use Cache::Memcached::Fast;

my $mc = Cache::Memcached::Fast->new({ servers => [ 'localhost:12321' ] });

cmpthese(10000, {

yappo

use strict;
use warnings;
use Benchmark ':all';

use LWP::Simple;
use Cache::Memcached::Fast;

use WWW::Curl::Easy;
use WWW::Curl::Share;

yappo

# PlackupTest.pm
package PlackupTest;
use strict;
use warnings;
use Plack::Up;
use Plack::Response;

sub hanlder {
    my $req = shift;
    my $body = qq{                                                                                                                                                               

yappo

# PlackupTest.pm
package PlackupTest;
use strict;
use warnings;
use Plack::Response;

sub hanlder {
    my $req = shift;
    my $body = qq{                                                                                                                                                               
<h1>Welcome To Ksk World.</h1>                                                                                                                                                   

yappo

package Cat;
use strict;
use warnings;
use Data::Dumper;

sub new { bless {}, shift }
sub handler {
    sub {
        [ 200, [ 'Content-Type' => 'text/plain' ], [ Dumper(\@_) ] ];
    }

yappo

mattn: さいたまさいたまー?

yappo

mattn: さいたまさいたまー?

いえ、ちがいます

すいません、どうやら人違いでした。