Skip to content

Instantly share code, notes, and snippets.

View mash's full-sized avatar

Masakazu Ohtsuka mash

200 followers · 82 following
View GitHub Profile
@mash
mash / gist:14527
Created October 3, 2008 08:01
int a;
for ( a=0; a<4; a++ ) {
}
@mash
mash / gist:20327
Created October 28, 2008 08:49
package net {
import flash.events.*;
import flash.net.*;
import caurina.transitions.Tweener;
import com.adobe.serialization.json.*;
public class API extends EventDispatcher{
private var debug :Boolean = false;
public function API(){
@mash
mash / gist:37416
Created December 18, 2008 06:36
<?xml version="1.0" encoding="UTF-8"?>
<rss version="2.0"
xmlns:dcterms="http://purl.org/rss/1.0/modules/dcterms/"
xmlns:blogChannel="http://backend.userland.com/blogChannelModule"
xmlns:content="http://purl.org/rss/1.0/modules/content/"
>
<channel>
<title>mash recent codes</title>
@mash
mash / gist:68027
Created February 21, 2009 12:31
better load modules before forked
package Catalyst::Plugin::DumpRequired;
use strict;
use warnings;
use NEXT;
our %initial_modules;
sub setup_actions {
my $c = shift;
$c->NEXT::setup_actions(@_);
@mash
mash / convert.pl
Created February 22, 2009 09:28
#!/usr/bin/env perl
use strict;
use warnings;
use Data::Dumper;
use Encode;
use utf8;
use File::Slurp;
#my $file = 'template2.csv';
my $file = '0222.1.csv';
@mash
mash / Validator.pm
Created February 25, 2009 12:25
package Catalyst::Action::Validator;
use strict;
use warnings;
use base 'Catalyst::Action';
use MRO::Compat;
#use Data::Dumper;
sub execute {
@mash
mash / jquery.inputprompt.html
Created April 23, 2009 01:59 — forked from yoko/jquery.inputprompt.html
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8"/>
<title>jquery.inputprompt.js</title>
<link rel="stylesheet" type="text/css" href="http://view.jquery.com/trunk/qunit/testsuite.css"/>
<style type="text/css">
#container {
position: absolute;
top: 0;
@mash
mash / Data::UUID
Created June 5, 2009 10:53
#!/usr/bin/env perl
use strict;
use warnings;
use Data::UUID;
use Digest::SHA1 qw/sha1_hex/;
use Benchmark qw/cmpthese/;
my $uuid_generator = new Data::UUID;
cmpthese( 10000, {
@mash
mash / Number-Interval
Created June 6, 2009 15:24
#!/usr/bin/env perl
use strict;
use warnings;
use List::Compare;
use Number::Interval;
use Benchmark qw/cmpthese/;
my ($min1,$max1) = (3,100);
my ($min2,$max2) = (20,130);
@mash
mash / ark-detach-end
Created June 27, 2009 15:17
use Test::Base;
{
package TestApp;
use Ark;
package TestApp::Controller::Root;
use Ark 'Controller';
has '+namespace' => default => '';