Skip to content

Instantly share code, notes, and snippets.

View typester's full-sized avatar
😇

Daisuke Murase typester

😇
580 followers · 141 following
View GitHub Profile
@typester
typester / gist:143554
Created July 9, 2009 10:16
use strict;
use warnings;
use Test::More tests => 1;
use Text::MicroTemplate qw(:all);
is render_mt(<<'...')->as_string, "abc\n1\n2\n3\ndef\n";
abc
? if (1) {
? for my $n (1..3) {
?= $n
@typester
typester / gist:138045
Created June 30, 2009 07:15
From bf13f9edbe14e68f7b8037ee8c0156a9e1afdbb5 Mon Sep 17 00:00:00 2001
From: Daisuke Murase <typester@cpan.org>
Date: Tue, 30 Jun 2009 16:14:13 +0900
Subject: [PATCH] fixed duplicate around attribute
---
lib/Ark/Plugin/Session/State/URI.pm | 15 +++++++--------
lib/Ark/Plugin/Session/State/URI/ExtendContext.pm | 15 +++++++++++++++
2 files changed, 22 insertions(+), 8 deletions(-)
create mode 100644 lib/Ark/Plugin/Session/State/URI/ExtendContext.pm
@typester
typester / base.mt
Created June 19, 2009 07:22
<!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">
<head>
<link rel="stylesheet" href="style.css" />
<title><? block title => sub { ?>My amazing site<? } ?></title>
</head>
<body>
<div id="sidebar">
@typester
typester / gist:125879
Created June 8, 2009 15:23
From 55f57d7c4cf95547e6a0e3093155aa721dffae42 Mon Sep 17 00:00:00 2001
From: Daisuke Murase <typester@cpan.org>
Date: Tue, 9 Jun 2009 00:22:39 +0900
Subject: [PATCH] convert sample script to test
---
t/01_module.t | 175 +++++++++++++++++++++++++++++++++++++++++++++++++++++++++
1 files changed, 175 insertions(+), 0 deletions(-)
create mode 100644 t/01_module.t
@typester
typester / gist:120905
Created May 31, 2009 14:40
$HTTP["url"] !~ "^/(?:(?:css|js|img|images?|statis|tmp)/|[^/]+\.[^/]+$)" {
$HTTP["url"] !~ "^/(en|ja)/" {
$HTTP["language"] =~ "(en|ja)" {
url.redirect = ( "^/(.*)" => "/%1/$1" )
}
$HTTP["language"] !~ "(en|ja)" {
url.redirect = ( "^/(.*)" => "/en/$1" )
}
}
}
@typester
typester / gist:118416
Created May 27, 2009 01:42
#!/usr/bin/env perl
use strict;
use warnings;
use YAML::XS;
use Storable qw/freeze thaw/;
my $re = qr/test/;
my $re2 = thaw freeze $re;
@typester
typester / gist:117353
Created May 25, 2009 02:56
sub hoge1 :Path('hoge') :Args(2) {}
sub hoge2 :Path('hoge') :Args(1) {}
sub hoge3 :Path('hoge') :Args(0) {}
@typester
typester / gist:113991
Created May 19, 2009 08:59
package MyApp::Controller::Root;
use strict;
use warnings;
use parent 'Catalyst::Controller';
__PACKAGE__->config->{namespace} = '';
use Net::Twitter::OAuth;
my $client = Net::Twitter::OAuth->new(
@typester
typester / App.pm
Created April 13, 2009 02:52
package App;
use Ark;
1;
@typester
typester / Debug.pm
Created April 3, 2009 05:22
package FCGI::ProcManager::Debug;
use strict;
use warnings;
use base qw/FCGI::ProcManager/;
sub pm_manage {
my $res = shift->SUPER::pm_manage(@_);
# manager does not return pm_manage, so below code should run in server only
$0 = 'perl-fcgi (waiting)';