motemen

#!/usr/bin/perl

package ClassMouse;
use Mouse;
has 'ro1' => ( is => 'ro', isa => 'Bool',      default => 1 );
has 'ro2' => ( is => 'ro', isa => 'Int',       default => 1 );
has 'ro3' => ( is => 'ro', isa => 'Str' ,      default => '1' );
has 'ro4' => ( is => 'ro', isa => 'ArrayRef' , default => sub { [] });
has 'ro5' => ( is => 'ro', isa => 'HashRef'  , default => sub { {} });
has 'ro6' => ( is => 'ro', isa => 'CodeRef'  , default => sub { sub {1} });

motemen

#!/usr/bin/perl
# original: http://search.cpan.org/src/MIYAGAWA/WWW-NicoVideo-Download-0.01/eg/fetch-video.pl

use strict;
use WWW::NicoVideo::Download;
use Term::ProgressBar;
use Config::Pit;
use URI;
use HTML::TreeBuilder::XPath;
use Perl6::Say;

motemen

さようなら！	http://gyazo.com/ff963bf3962ae877e80c73ca8a7e5caf.png	固有名詞
かお	(╬☉д⊙)	固有名詞
かお	(ﾟДﾟ)	固有名詞
かお	(◔ิД◔ิ　)	固有名詞
かお	╮(╯ε╰)╭	固有名詞
かお	(╯Д╰)σ	固有名詞
かお	(◕‿◕✿)	固有名詞
かお	(☣‿☣)	固有名詞
ぎすぎす	(`Д´)	固有名詞
あせ	(;´Д`)	固有名詞

motemen

// ==UserScript==
// @name        Hatena::Group: Recent Entries
// @namespace   http://lowreal.net/
// @include     https://*.g.hatena.ne.jp/
// @include     http://*.g.hatena.ne.jp/
// @require     http://svn.coderepos.org/share/lang/javascript/jsdeferred/trunk/jsdeferred.userscript.js
// @require     http://gist.github.com/3239.txt#createElementFromString
// @require     http://gist.github.com/46391.txt#duration
// @require     http://gist.github.com/120040.txt#ambtime
// ==/UserScript==

motemen

object Main extends Application {
  object TAP {
    var number:Int = 1

    var directive = ""

    def plan (planNum:Int) {
      println(
        "1.." + planNum
      )

motemen

100000th post

motemen

// ==UserScript==
// @name           Ichigo-Mashimaro
// @namespace      http://kentarok.org/
// @include        http://twitter.com/*
// ==/UserScript==

(function () {
    var textarea = document.getElementById('status');
        textarea.value = '';
    var start = null;