Gist


  
      gist: 156998
      
    
      Tue Jul 28 00:14:22 -0700 2009
      
    
1
2
3

      
                                                Rate          mtf       tenjin    mtf_reuse tenjin_reuse
mtf           426/s           --         -69%         -70%         -83%
tenjin       1351/s         218%           --          -5%         -45%
              
    
      gist: 152080
      
    
      Wed Jul 22 09:07:43 -0700 2009
      
    
1
2
3

      
                                  use EV;
use AnyEvent;
 
              
      gist: 145890
      
    
      Sun Jul 12 18:37:57 -0700 2009
      
    
1
2
3

      
                                  use Test::Base;
 
use AnyEvent::JSONRPC::Lite;
              
    
      gist: 143554
      
    
      Thu Jul 09 03:16:22 -0700 2009
      
    
1
2
3

      
                                  use strict;
use warnings;
use Test::More tests => 1;
              
    
      gist: 138045
      
    
      Tue Jun 30 00:15:18 -0700 2009
      
    
1
2
3

      
                                  From bf13f9edbe14e68f7b8037ee8c0156a9e1afdbb5 Mon Sep 17 00:00:00 2001
From: Daisuke Murase <typester@cpan.org>
Date: Tue, 30 Jun 2009 16:14:13 +0900
              
    
      gist: 132475
      
    
      Fri Jun 19 00:22:11 -0700 2009
      
    
1
2
3

      
                                 <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN"
    "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml" xml:lang="en" lang="en">
              
    
      gist: 125879
      
    
      Mon Jun 08 08:23:47 -0700 2009
      
    
1
2
3

      
                                  From 55f57d7c4cf95547e6a0e3093155aa721dffae42 Mon Sep 17 00:00:00 2001
From: Daisuke Murase <typester@cpan.org>
Date: Tue, 9 Jun 2009 00:22:39 +0900
              
    
      gist: 120905
      
    
      Sun May 31 07:40:12 -0700 2009
      
    
1
2
3

      
                                      $HTTP["url"] !~ "^/(?:(?:css|js|img|images?|statis|tmp)/|[^/]+\.[^/]+$)" {
        $HTTP["url"] !~ "^/(en|ja)/" {
            $HTTP["language"] =~ "(en|ja)" {
              
    
      gist: 118416
      
    
      Tue May 26 18:42:41 -0700 2009
      
    
1
2
3

      
                                  #!/usr/bin/env perl
 
use strict;
              
    
      gist: 117353
      
    
      Sun May 24 19:56:41 -0700 2009
      
    
1
2
3

      
                                  sub hoge1 :Path('hoge') :Args(2) {}
 
sub hoge2 :Path('hoge') :Args(1) {}
              
    
      gist: 113991
      
    
      Tue May 19 01:59:57 -0700 2009
      
    
1
2
3

      
                                  package MyApp::Controller::Root;
use strict;
use warnings;
              
    
      gist: 94232
      
    
      Sun Apr 12 19:52:25 -0700 2009
      
    
1
2
3

      
                                  package App;
use Ark;
 
              
      gist: 89640
      
    
      Thu Apr 02 22:22:27 -0700 2009
      
    
1
2
3

      
                                  package FCGI::ProcManager::Debug;
use strict;
use warnings;
              
    
      gist: 88575
      
    
      Tue Mar 31 23:41:57 -0700 2009
      
    
1
2
3

      
                                 <?xml version="1.0" encoding="UTF-8"?>
<!DOCTYPE plist PUBLIC "-//Apple//DTD PLIST 1.0//EN" "http://www.apple.com/DTDs/PropertyList-1.0.dtd">
<plist version="1.0">
              
    
      gist: 85855
      
    
      Wed Mar 25 20:25:19 -0700 2009
      
    
1
2
3

      
                                  (require 'url)
(require 'url-util)
(require 'json)
              
    
      gist: 77962
      
    
      Thu Mar 12 01:27:45 -0700 2009
      
    
1
2
3

      
                                  (require 'url)
(require 'url-util)
 
              
      gist: 77609
      
    
      Wed Mar 11 11:03:07 -0700 2009
      
    
1
2
3

      
                                  open my $fh, '| /usr/local/bin/perl'
  or die "error: $!";
print $fh $_ for <DATA>;
              
    
      gist: 77600
      
    
      Wed Mar 11 10:50:55 -0700 2009
      
    
1

      
                                  print "Hello World\n";
              
    
      gist: 77312
      
    
      Tue Mar 10 21:31:56 -0700 2009
      
    
1
2
3

      
                                  (require 'url)
(require 'url-util)
(require 'json)
              
    
      gist: 65594
      
    
      Mon Feb 16 21:44:57 -0800 2009
      
    
1
2
3

      
                                  package MyApp;
use Ark 'Core';