kga

use strict;
use warnings;
use utf8;

package Foo {
    use overload (
        bool  => sub { warn 'this is bool' },
        q{""} => sub { warn 'this is stringify' },
    );

kga

#!/usr/bin/env perl
use strict;
use warnings;

use Data::Validator;
use Data::Dumper qw(Dumper);

my %rule = (
    foo => { isa => 'Str' },
    bar => { isa => 'Int' },

kga

// ==UserScript==
// @name           chara-ani.com direct link
// @namespace      http://github.com/kga/userscripts
// @include        http://www.chara-ani.com/*
// ==/UserScript==

var host     = location.host,
    pathname = location.pathname,
    href     = location.href;
if ( pathname.lastIndexOf('/') >= 0 ){ pathname = pathname.substring(0, pathname.lastIndexOf('/') + 1) }

kga

require 'formula'

class Skktools <Formula
  url 'http://openlab.ring.gr.jp/skk/tools/skktools-1.3.1.tar.gz'
  homepage 'http://openlab.ring.gr.jp/skk/wiki/wiki.cgi'
  md5 '2168b8e6d7753088c0c1b75267eaf4ff'
  version '1.3.1'

  depends_on 'pkg-config'
  depends_on 'glib'

kga

require 'formula'

class Vim <Formula
  url 'ftp://ftp.vim.org/pub/vim/unix/vim-7.3.tar.bz2'
  homepage 'http://www.vim.org/'
  md5 '5b9510a17074e2b37d8bb38ae09edbf2'

  def patchlevel; 81 end
  def features; %w(tiny small normal big huge) end
  def interp; %w(lua mzscheme perl python python3 tcl ruby) end

kga

CREATE TABLE funcmap (
        funcid INTEGER PRIMARY KEY AUTOINCREMENT,
        funcname VARCHAR(255) NOT NULL,
        UNIQUE(funcname)
);
CREATE TABLE job (
        jobid INTEGER PRIMARY KEY AUTOINCREMENT,
        funcid INTEGER UNSIGNED NOT NULL,
        arg MEDIUMBLOB,
        uniqkey VARCHAR(255) NULL,

kga

#!/usr/bin/env perl
use strict;
use warnings;

use Perl6::Say;
use List::MoreUtils qw(minmax);

chomp (my @input = <DATA>);

my @direct = ([-1, 0], [0, -1], [1, 0], [0, 1]);

kga

{
  'mai03'   : '遠藤舞',
  'erica06' : '外岡えりか',
  'erika07' : '谷澤恵里香',
  'fonchi08': 'フォンチー',
  'rurika09': '横山ルリカ',
  'suzuka11': '森田涼花',
  'yui12'   : '河村唯',
  'serina13': '長野せりな',
  'hitomi14': '酒井瞳',

kga

<ul>
<li><img src="http://img.imatsubu.jp/img/upload/account/20100513/17758_20100513110735906.jpg"><a href="http://imatsubu.jp/info/17758/">mai03</a> <p>うめこと茎わかめなう</p></li>
<li><img src="http://img.imatsubu.jp/img/upload/account/20100513/17754_20100513110715252.jpg"><a href="http://imatsubu.jp/info/17754/">erica06</a> <p>ホントにすぐ更新されるーおもしろい</p></li>
<li><img src="http://img.imatsubu.jp/img/upload/account/20100513/17750_20100513110645554.jpg"><a href="http://imatsubu.jp/info/17750/">erika07</a> <p> バリバリデコメ使えてるよぉ( 」´０｀)」  ERIKA </p></li>
<li><img src="http://img.imatsubu.jp/img/upload/account/20100513/17746_20100513110558541.jpg"><a href="http://imatsubu.jp/info/17746/">fonchi08</a> <p>電車にガタンゴトンと揺られながらお仕事に向かっています。皆様今日も一日頑張りまっしょいp(^^)q</p></li>
<li><img src="http://img.imatsubu.jp/img/upload/account/20100513/17742_20100513110532782.jpg"><a href="http://imatsubu.jp/info/17742/">rurika09</a> <p>いまつぶ初投稿☆デコメがよくわからないので色合いは淡白になりますが汗よろしくお願いします☆</p></li>
<li><img src="http://img.imatsubu.jp/img/upload/account/20100513/177

kga

#!/usr/bin/env perl
use strict;
use warnings;

use File::Temp;
use Image::ObjectDetect;
use LWP::Simple;
use XML::Feed;
use XML::Feed::Deduper;
use YAML;