miyagawa

use strict;
use LWP::UserAgent;

my $app = do {
    use Mojolicious::Lite;
    get '/' => sub { shift->render(text => "Hello World") };
    get '/search' => sub {
        my $self = shift;
        my $foo  = $self->param('q');
        $self->render(text => "You searched $foo");

methane

#!/usr/bin/env python
# coding: utf-8

"""myprofiler - Casual MySQL Profiler

https://github.com/methane/myprofiler
"""

import os
import sys

go-template-mode.el

;;; go-template-mode.el --- Major mode for Go template language

;;; Commentary:

;; 1) Copy this file somewhere in your Emacs `load-path'.  To see what
;;    your `load-path' is, run inside emacs: C-h v load-path<RET>
;;
;; 2) Add the following to your .emacs file:
;;
;;    (require 'go-template-mode)

earino

# stuff setting up moose and the environment omitted

sub BUILD {
	my $self = shift;

	my $application_environment = $ENV{'APPLICATION_ENVIRONMENT'};
	
	my $conf = new Config::General($self->config_file);
	my %config = $conf->getall;

kazeburo

#include "apr.h"
#include "apr_strings.h"
#include "apr_lib.h"

#define APR_WANT_STRFUNC
#include "apr_want.h"

#include "ap_config.h"
#include "httpd.h"
#include "http_config.h"

xaicron

#!/bin/sh
set -e

HTTP_GET_COMMAND=""
if [ `which curl` ]; then
    HTTP_GET_COMMAND="curl -L"
elif [ `which wget` ]; then
    HTTP_GET_COMMAND="wget -O -"
elif [ `perl -v | grep "5.1[3-9]"` ]; then
    HTTP_GET_COMMAND="perl -MHTTP::Tiny -e 'print +HTTP::Tiny->new->get(shift)->{content}'"

hayajo

ChangeLog を支える英語

ChangeLog を書く際によく使われる英語をまとめました。

ほとんど引用です。

基本形

JFK

user www-data;

#worker_processes 4;
#worker_priority 0;
#worker_cpu_affinity 0001 0010 0100 1000;
#worker_rlimit_nofile 163840;

#worker_processes 8;
#worker_priority 0;
#worker_cpu_affinity 00000001 00000010 00000100 00001000 00010000 00100000 01000000 10000000;

hayajo

package MyApp::Validator::Constraint;

use strict;                                                                                                                                                                                                  
use warnings;

use FormValidator::Lite::Constraint;

=head1 SYNOPSYS
    my $fv = FormValidator::Lite->new($q);
    $fv->check(

YungSang

CoreOS とその関連技術に関するここ半年間の私の活動まとめ

はじめに

最近、社内で私が「何者で何をしているのか見えないので可視化して欲しい」という案件が出ているらしいので、ヘコヘコと徒然なるままに書いていきたいと思うのであります。

社内向けというだけでなく社外の人にも発信出来る内容に、との仕様も要求され、社外向けには出来るだけ旬なネタで、かつ、社内向けにはそれを理解する上で必要な関連する技術を個々に触れながら基礎知識が無くても理解出来るように、との追加仕様も提示されております。

で、何をネタにしてどのように書けばいいのか迷った訳ですが、自分が実際にやって来た内容である CoreOS であればそこそこ旬であるし、それをおさらいしつつ、関連技術も Docker、Omaha、systemd、BtrFS、Golang、etcd、Kubernetes 等々多岐にわたるので、それらに関して私見も含めてわかりやすく書ければいいかなぁと、とりあえず書き始めようとしている次第であります。