Perl 5.10.0以前だとFile::Spec 3.40以降のインストールに失敗する

Perl 5.8.8で試してみた。

waniji@localhost:~$ plenv versions
  system
  5.18.2
* 5.8.8 (set by /home/waniji/.plenv/version)

waniji@localhost:~$ cpanm -lextlib File::Spec
--> Working on File::Spec
Fetching http://www.cpan.org/authors/id/S/SM/SMUELLER/PathTools-3.47.tar.gz ... OK
Configuring PathTools-3.47 ... OK
Building and testing PathTools-3.47 ... FAIL
! Installing File::Spec failed. See /home/waniji/.cpanm/work/1404224796.5765/build.log for details. Retry with --force to force install it.

原因

File::Spec 3.40以降はTest::More 0.88以上に依存しているが、Makefile.PLにその記述がない。
Perlが5.10.0以前の場合はコアモジュールとして入ってるTest::Moreのバージョンが0.88より古いため、上記のようにテストに失敗してしまう。

回避策

File::Specをインストールする前に、Test::Moreを0.88以上にすれば良い。

waniji@localhost:~$ cpanm -lextlib Test::More
--> Working on Test::More
Fetching http://www.cpan.org/authors/id/E/EX/EXODIST/Test-Simple-1.001003.tar.gz ... OK
Configuring Test-Simple-1.001003 ... OK
Building and testing Test-Simple-1.001003 ... OK
Successfully installed Test-Simple-1.001003 (upgraded from 0.62)
1 distribution installed

waniji@localhost:~$ cpanm -lextlib File::Spec
--> Working on File::Spec
Fetching http://www.cpan.org/authors/id/S/SM/SMUELLER/PathTools-3.47.tar.gz ... OK
Configuring PathTools-3.47 ... OK
Building and testing PathTools-3.47 ... OK
Successfully installed PathTools-3.47 (upgraded from 3.12)
1 distribution installed

その他

この問題は既に報告されていた。

• Bug #82895 for PathTools: You tried to run a test without a plan!
• Bug #87574 for PathTools: Undeclared dependency on Test::More

英語に自信が無いけど、多分、「"blead perl"では修正されているけど、安定版としてリリースされてないから、CPANのモジュールにはまだ適応されないよ！」って書いてる...はず。
最近、この修正が適応されたPerl 5.20.0がリリースされたから、CPANのモジュールもそろそろ修正されるんじゃないかなーと予想。

始

技術と関係ないことをまとめる場所

Carpは継承関係のモジュールを信頼する

初めに

以下のドキュメントにCarpの詳細説明があるので、それを読めば挙動が分かります。
Carp - モジュールのための warn と die の代替

この記事では、実際に継承してるコードを例に出して説明しようと思います。

コードと実行結果

client.pl

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

Concrete->new->run(@ARGV);

Concrete.pm(具象クラス)

package Concrete;
use strict;
use warnings;
use Carp;
use parent 'Abstract';

sub speak {
    my $self = shift;
    croak "ﾀﾞﾚｶﾀｽｹﾃｰ";
}

1;

Abstract.pm(抽象クラス)

package Abstract;
use strict;
use warnings;

sub new {
    my $class = shift;
    bless {}, $class;
}

sub run {
    my $self = shift;
    $self->speak;
}

sub speak {}

1;

実行結果

$ ./client.pl
ﾀﾞﾚｶﾀｽｹﾃｰ at ./client.pl line 6.

挙動について

このコードを実装した際、呼び出し元がAbstract::runなので、
ﾀﾞﾚｶﾀｽｹﾃｰ at Abstract.pm line 12. と出るかと思ったら、
client.plの行数が出てしまいました。

これは何故かというと、継承関係にある呼び出し元は（具体的には@ISAに入っていれば）、
安全であると判断されスルーされます。
更に上位の呼び出し元はclient.plになるので、上記の実行結果となりました。

これだとエラーとしては分かり辛いなぁと思います。

対策

dieを使う

dieを実行した行数とそのファイル名を返します。

$ ./client.pl
ﾀﾞﾚｶﾀｽｹﾃｰ at Concrete.pm line 10.

confessを使う

confessはスタックトレースを伴うエラーを発生させます。

$ ./client.pl
ﾀﾞﾚｶﾀｽｹﾃｰ at Concrete.pm line 10.
    Concrete::speak('Concrete=HASH(0x177b178)') called at Abstract.pm line 12
    Abstract::run('Concrete=HASH(0x177b178)') called at ./client.pl line 6

Carp::verboseを有功にする

全てのcroakをconfessに、carpをcluckにとして扱うようにします。
CPANからダウンロードして使用している外部モジュールなども対象となります。

$ perl -MCarp=verbose client.pl
ﾀﾞﾚｶﾀｽｹﾃｰ at Concrete.pm line 10.
    Concrete::speak('Concrete=HASH(0x184b1a8)') called at Abstract.pm line 12
    Abstract::run('Concrete=HASH(0x184b1a8)') called at client.pl line 6

まとめ

Template Methodパターンで作ってたらこの問題にぶち当たりました。
CPANに公開しないモジュールであれば、confessを使っておくのが良いかなぁと思ってます。
（dieは情報が少ないし、Carp::verboseはやりすぎ感がある……）

おまけ

evalで例外をキャッチするとこんな表示になります。

Abstract.pm（runを書き換え）

sub run {
    my $self = shift;
    eval { $self->speak };
    if($@) {
        print "$@";
        warn "ﾁｮｯﾄﾏｯﾃﾃｰ";
    }
}

実行結果

Use of uninitialized value $_ in string at Abstract.pm line 14.
ﾀﾞﾚｶﾀｽｹﾃｰ at Concrete.pm line 10.
    Concrete::speak('Concrete=HASH(0x1ec0178)') called at Abstract.pm line 12
    eval {...} called at Abstract.pm line 12
    Abstract::run('Concrete=HASH(0x1ec0178)') called at ./client.pl line 6
ﾁｮｯﾄﾏｯﾃﾃｰ at Abstract.pm line 15.

eval {...} が追加されてますね！
やりたかっただけです！

Perl 5.8.8でfatpacked cartonを頑張って作った

carton bundleを実行すると、App::FatPackerを用いて、cartonを1ファイルのスクリプトにまとめてくれます。
このfatpacked cartonをCentOS5のsystem perl(5.8.8)で使用したかったのですが、carton bundleで生成されたfatpacked cartonを実行すると、エラーが発生して動きませんでした。
何とか動作させる方法を調べたので、エラーの原因と解消方法をまとめておこうと思います。

なお、carton bundleでのfatpacked carton生成は、"experimental feature"のようです。
https://github.com/miyagawa/carton/issues/141

また、fatpacked cartonが原因の課題が多いため、carton bundleではデフォルトで作成させず、別コマンドに切り離すIssueが作成されてます。
https://github.com/miyagawa/carton/issues/156

Cartonのバージョン

v1.0.12

App::FatPackerがfatpackする条件

CHECKブロックで%INCからfatpackするモジュール一覧を取り出すので、それまでにrequireされたモジュール(のはず）

エラー内容と解決方法

1. Can't locate Algorithm/C3.pm in @INC

Algorithm::C3がfatpackされていないという理由で怒られます。
この問題の原因はClass::C3です。

CartonとAlgrorithm::C3の関係は以下の通り。

Carton
 \- Moo
     \- MRO::Compat
         \- Class::C3
             \- Algorithm::C3

Class::C3はClass::C3::XSが存在する場合は、Algorithm::C3がrequireされません。
Class::C3::XSはPerlのバージョンが5.9.5より下であれば自動でインストールされるので、fatpackする時にXSが対象となり、Algorithm::C3はfatpackされません。
しかし、fatpacked cartonではXSモジュールのロードに失敗するので、Algrorithm::C3をrequireしようとしてエラーとなります。
(詳細はClass::C3のBEGINブロック参照)

対処法は、Class::C3::XSをuninstallすることです。

cpanm -U Class::C3::XS
carton bunlde

因みに、Perl 5.10.0以上だとMRO::Compatのかわりにmroが使用されるので、この問題は発生しません。
(詳細はMoo/_mro.pmを参照)

2. List::Util version 1.33 required--this is only version 1.18

List::Utilのバージョンが古いという理由で怒られます。
これは、CPAN::Metaの2.133380以降がList::Utilの1.33以上に依存していることが原因です。

CartonはCPAN::Metaの2.120921に依存していますが、Perl 5.8.8のコアモジュールにCPAN::Metaが入っていないため、CPANからインストールされます。
この時インストールされるバージョンは2.140640（2014/03/11時点）です。
このバージョンではList::Util 1.33以上に依存しているので、併せてList::Util 1.38(2014/03/11時点)がインストールされ、carton bundle時にfatpackされます。
しかし、List::UtilはXSモジュールなので、fatpacked cartonではロードに失敗します。
なので、コアのList::Utilが使われるのですが、バージョンが1.18と古いため、エラーが発生します。

対処法は、CPAN::MetaをuninstallしてCPAN::Metaの2.120921を入れ直せば良いです。

cpanm -U CPAN::Meta
cpanm CPAN:Meta@2.120921
carton bundle

因みに、Perl 5.17.1以上だとコアモジュールにCPAN::Metaの2.120921が入っているので、この問題は発生しません。

まとめ

以下のどれかを採用しましょう。

1. End of lifeとなったPerl 5.8.8とか使ってないで、Perl 5.18.2(or later)を使おう
2. サーバセットアップ時にPerlと一緒にCartonをインストールしよう
3. cpan-module-bootstrapを使おう

どうしてもPerl 5.8.8でfatpacked cartonを作りたければ、上記の方法で頑張ってつくろう。

AsakusaSatelliteを導入した

先月からAsakusaSatelliteというチャットアプリケーションを使い始めた。
今のところ、とてもいい感じに運用出来ているので、色々とまとめ。

なぜ導入したか

社内のコミュニケーションはHipChatを用いて行っているが、
業務を行っている場所では深遠な理由でホスティングサービスの利用許可が下りない為、
渋々IPMsg的なツールを使用していた。

しかし、チームメンバーが増えるにつれ、無視出来ない色々な問題が出てきた。

• オフライン時のメッセージが読めない
• 過去の発言を検索出来ない
• 送信失敗することが偶にある
• JenkinsやIssue Trackerの通知を流せない

不満が溜まりすぎて死にそうだったので色々探したところ、
AsakusaSatelliteがとても良さそうだったので導入してみた。

導入

AsakusaSatelliteはRuby on Rails製アプリで、DBはMongoDB。
主な特徴などは公式サイトにまとまっているのでそちらを参照のこと。
インストールはマニュアル通りにやれば特に問題は起きなかった。

プラグイン

プラグインによる拡張が可能で、デフォルトでも色々な拡張プラグインが入っている。
以下は使用している主なプラグインたち。

as_emoji_filter（絵文字）

GitHubでも使用出来る絵文字。
絵文字が使えるだけで結構バカに出来ない程の効果があって、
コミュニケーションを円滑にしてくれたり、発言しやすい雰囲気を作ることが出来る。
そういった空気を作ることで、情報の共有や議論が活発になるので大変重要。

今のところ一番人気の絵文字は:ok_woman:

as_chrome_notifier（デスクトップ通知）

自動テストのFailなどを素早くキャッチ出来るし、
他の人の質問などをスルーする心配も減る。
ただ、全部通知来ちゃうので、@allとか@userの時だけ通知が来るようにしたい。

as_localauth_plugin（ローカル認証）

Twitter認証だけだと不味いなーと思ってたらこんな便利プラグインが。
こういうプラグインがデフォで組み込まれてるのは本当に助かる。

as_auto_link（汎用リンク）

http(s)から始まるURLをリンクに変換したり、URL先の画像を展開したり。
tiqavとかミサワのURL貼って遊んだりする。

Jenkins AsakusaSatelliteプラグイン

こちらはJenkins側にインストールするプラグイン。
欲しいなーと思ったら用意されててビックリする。

使用感

今は10人位で使用しているが、急に異常終了したりとかは無いので安定してるなーという印象。
プラグイン拡張機能が素晴らしくて、自分のようなRuby初心者でも、GitLabのIssue/Merge Requestリンクフィルターとかすんなり作れた。

Jenkinsの結果を見に行くという苦行が無くなったので、それだけでもイノベーティブ。
GitLabのIssueやMerge requestのOPEN/CLOSE/MERGEも通知させていて、
Issueを作ったのになかなか気付いてくれない……みたいなことも減った。
Push通知はチャットが流れすぎるので非通知。

全文検索機能はレスポンスが結構早くてビックリした。嬉しい限り。

後は、AAが崩れないのを発見して、早速コピペして遊んでる。

改善したいところ

• Perlのシンタックスハイライトに対応していない
  • coderayという外部モジュールが対応していない模様
  • 最近GitLabが使い始めたHighlight.jsとかにすればいけるのかな
• RoomのPrivate/Publicを切り替えたい
  • メイン部屋をPublicで作っちゃってどうしよう
• Roomタブが欲しい
  • HipChatみたいに1画面で複数Roomみたい

まとめ

そんなこんなで、活用させて頂いてます。
開発者の方々、ありがとうございます。

GitLabのタイムゾーンをTokyoにする

環境

GitLab 6.4.3

タイムゾーンの初期値

GitLabは、Railsのタイムゾーンの初期値であるUTCとなっている。
OSのタイムゾーンを使用してくれないので、設定ファイルを修正する必要がある。

タイムゾーンの変更

config/application.rbを編集

cd /home/git/gitlab
vim config/application.rb

タイムゾーンの設定を追記 (コメントアウトされてるので、その部分を編集）

config.time_zone = 'Tokyo'

GitLabを再起動

sudo service gitlab stop
sudo service gitlab start

2013年振り返り

2013年をまとめ。

Perl

Perlを本格的に学び始めた。
はじめてのPerlを読みながら例題を解いて基礎を学び、一枚岩のスクリプトをガリガリとコーディング。
DBI使ってDBと連携、packageの作成、blessを使ったOOP、OrePANを使ったCPANのローカルミラー作成などもやった。
年末には、WAFについての知識を得る為、Plackハンドブックを読んだり、Amon2のソースを見たりしてた。
Perlを使ってると正規表現を駆使するので、自然と身について良かった。

2014年はCartonを使ったり、Amon2を使ってWebアプリケーションを作成したい。

Git

Gitを使ったことないことに危機感を覚えたので、新規プロジェクトでのソースコード管理をSubversionからGitに変更。
Pull Requestを使用したコードレビューも行いたかったので、GitLabも導入した。(GitHubは諸事情で不可)
ブランチの運用方法は、A successful Git branching modelを自プロジェクト用に変更した形態をとった。
Gitについてはメンバーが誰も使用したことがなかったので、調査や環境構築をしていた自分がアドバイザー役となった結果、今ではGitで戸惑うことは少なくなった。人に教えるって大事。

GitLab

昨年12月にGitLab 4.0をインストール。月一のアップデートは必ず対応し、現在動作しているバージョンはGitLab 6.4。
ユーザーは10人前後と少なめなせいか、特に大きな障害には見舞われず。
CentOS5系で運用しているので、アップデート時に色々問題が起きたりしてつらまったこともあった。(ブログネタが増えた―とも思ったけどｗ）
個人的にはIssueやMerge Requestがリナンバリングされるアップデートがきつかった。あれは無いわ―。
まぁ、今の所はそこまで不満はない。

その他技術系

• Jenkins
  • CI環境を作りたかったので導入
  • 個人的には多機能すぎると感じてるので、もっと軽量なCIツールに変えようかなーと考え中
• Docker
  • CentOS 6.5で使えるようになったので軽く試した
  • CIツールと組み合わせて色々出来そうな予感
• HipChat
  • 社内のコミュニケーションツールとして導入
  • 以前まで使っていたメールと比べると、遥かにコミュニケーションコストが低くて良い

カンファレンス

今年はPerlCasual #05とYAPC::Asia Tokyo 2013に参加。
新しい発見もあるし、いい感じに危機感も煽られるので、これからも定期的に参加しておきたい。
他の参加者とのコミュニケーションが不足してたので、積極的に交流しないとなー。

Blog

2013年は8記事を投稿。少ない。
他に有用な記事があると、書かなくてもいいか～となってしまいがち。
自分の考えを残しておくという意味でも、ちゃんと書き残しておきたい。

書籍

wanijiさんが2013年に読んだ作品 - ブクログ

技術書6冊、技術雑誌17冊、ラノベ6冊、合計29冊。
ちょっと技術書が少ないなぁと反省。
来年は月3冊、年36冊くらいを目標にする。

プライベート

• 昨年9月に父親となったので、自由に使える時間が大幅に減少した
  • でも子供の成長を見るのは楽しい
• あれだけ時間を費やしてたbeatmania IIDXをほぼやらなくなった
  • 新曲をたしなむ程度に続けるつもり
• 隙間時間にできるiOSアプリをやるようになったけど、どれも飽きた
  • LINE POP
  • アルパカにいさん
  • ラブライブ！スクールアイドルフェスティバル
  • CROSS×BEATS
• Cookie Clickerはもっと早く飽きた
  • あの盛り上がりは何だったのか
• 子供が保育園に行き始めてから、体調を崩すことが多くなった
  • 自分の体の貧弱さに辟易

2014年の目標

現時点でやりたいなぁと思っていることを箇条書き。
ただ、方向転換が必要なら柔軟に対応するというスタンスなので、年始と年末でどれくらい考え方が変わっているか、というのも楽しみ。

• Javascriptを勉強する
• OSSに貢献
• 英語力の向上
• Blogを定期的に書く
• 体重+5kg
• Pocketの後で読む記事数が30以下
• 書籍の読了数36冊