issm

  <input type="radio" name="gender" value="male"
? if ( $_[0] eq 'male' ) {
         checked="checked"
? }
         />男性
  <input type="radio" name="gender" value="female"
? if ( $_[0] eq 'female' ) {
         checked="checked"
? }
         />女性

issm

package MyApp::Plugin::MongoDB;
use strict;
use warnings;
use utf8;
use MongoDB;


sub init {
    my ($class, $c, $params) = @_;

issm

+{
    network_type => +{qw/
local    192.168.1.152
emobile  192.168.144.152
home     192.168.0.152
    /},

    rules => [qw/
www.momoco.local  %
dev.momoco.local  %

issm

use 5.12.0;
use warnings;
use Cocoa::Growl ':all';
use File::Basename;

sub main {
    my ($target) = @_;

    growl_register(
        app           => 'CoffeeScript Compiler',

issm

#!/usr/bin/env perl
use strict;
use warnings;
use utf8;
use Getopt::Long;

my $CURL = "curl -s";

my ($channel);

issm

use 5.12.0;
use warnings;
use FindBin;
use File::Find;
use Storable qw/thaw/;
use Data::Dumper;

my $target = "${FindBin::Bin}/cache";

sub _do_something {

issm

window.JobSequencer = function () { return this.init.apply(this, arguments); };
JobSequencer.prototype = {
    init: function (params) {
        params = params || {};

        var self = this;
        self._queue   = [];
        self._stopped = false;
        self._count   = 0;
        self.interval = params.interval || 0;

issm

// ==UserScript==
// @name       Redmine Ticket Form Enter-submit Canceller
// @namespace  http://iss.ms/
// @version    0.1
// @description  チケット登録フォームの「題名」入力時，Enterを押してもsubmitされなくなります．
// @include    https://*/*
// @copyright  issm
// ==/UserScript==
var _form    = document.getElementById('issue-form')
  , _subject = document.getElementById('issue_subject')

issm

# 名古屋市中区 栄二丁目


## ピザ

SALVATORE 伏見店
  http://www.salvatore.jp/delivery.html （店舗検索用ページ）
  052-222-4671（デリバリー専用）

Domino's Pizza 栄店

issm

### <: $base_uri :> を $vars->{base_uri} の値で置き換えるプラグイン
package Text::Textile::Pluggable::Plugin::FooBar;
use strict;
use warnings;

sub pre {
    my ($o, $text, $vars) = @_;
    my $base_uri = $vars->{base_uri} || 'http://localhost/';
    $base_uri .= '/'  if $base_uri !~ m{/$};
    $text =~ s/<:\s*\$base_uri\s*:>/$base_uri/g;