use Test::Base instead of Test::More - Practice of Programming
以前Test::Moreで書いたテストが通らなくて、テスト結果を見たのですが、結構長いテキストの比較だったので、、gotとexpectedで全部だされてもなぁ...と思ったのですが、Test::Baseは、Test::Moreと互換性があるんだった、と思いだして、変えてみた。 use Test::More ...; のところを、 use Test::Base ...; とするだけ。 こうすることで、diffが表示されるようになります。簡単な例だと、 #!/usr/bin/perl use Test::More qw/no_plan/; is(<<END_GOT, <<END_EXPECTED); aaa bbb ccc END_GOT aaa bob ccc END_EXPECTED Test::Moreだと、 not ok 1 # Failed test in scripts/test_
MacOS Xにsvkをインストールする - t-wada の日記（旧）
「工場出荷状態で帰ってきたMacを原状回復させる際のメモ」の続きとして、MacOS Xにsvkをインストールを試みた際の記録です。 (6/6追記) これから行う作業はMacPortsのインストールを必要とし、若干バッドノウハウに感じられるかもしれません。Macでsvkをもっと気軽にに試したいという方は、otsuneさんお勧めのSVK builds for OSXをぜひお試しください。 なにはなくとも sudo port install svk まずはportコマンドでインストールを開始します。 $ sudo port install svkすると、途中でビルドに失敗してインストールが中断されます。 . . . 中略 . . . ---> Fetching p5-pathtools ---> Attempting to fetch PathTools-3.24.tar.gz from htt
If-Modified-Since | 鳩丸ぐろっさり (用語集)
用語「If-Modified-Since」についてIf-Modified-Since (いふもでぃふぁいどしんす)話題 : HTTP HTTP要求ヘッダ のフィールドのひとつです。 ブラウザがあるリソースのキャッシュを持っているとします。改めてそのリソースにアクセスするとき、リソースがキャッシュ取得時刻以降に更新されていれば、新しい内容が欲しいと思うでしょう。しかし、更新されていなければキャッシュをそのまま使えば良いわけですから、わざわざ内容を送ってもらう必要はありません。 そんなときに、この If-Modified-Since フィールドが利用されます。このフィールドで時刻を指定してリクエストを送ると、その時刻以降に更新があったら内容を返し、そうでなければ 304 が返る……という挙動が期待されます。 たとえば、以下のようなリクエストを送ったとします。 GET http://exapml
Class::Data::Inheritable のソースを読んでみる。 - hibomaの日記
「これぐらい読めるようになれyo!」と、どこかのエントリーで紹介されていたClass::Data::Inheritableのソースを読んでみます。読めるかな・・・ドキドキ package Class::Data::Inheritable; use strict qw(vars subs); use vars qw($VERSION); $VERSION = '0.04'; sub mk_classdata { my ($declaredclass, $attribute, $data) = @_; if( ref $declaredclass ) { require Carp; Carp::croak("mk_classdata() is a class method, not an object method"); } my $accessor = sub { my $wantclass
デザインパターン 初めの一歩：Singleton - hibomaの日記
デザインパターンをがんばって書いてみる。JavaとPerlを行き来しつつ。 Singleton :: インスタンスを１個だけに限定するデザインパターン。「そのクラスから生成されるインスタンスは１個だけしかない」という確実な保証をすることが大事だとか。 結城さんの本を参考に（というか丸写し・・・）Javaで書くと public class Singleton { private static Singleton singleton =new Singleton(); private Singleton(){ System.out.println("インスタンスを生成しました"); } public static Singleton getInstance(){ return singleton; } } こんな風になる。生成するインスタンスをprivateにすることで、外部からイタズラできな
Perlでシングルトンパターン！ （デザインパターン） - 小池啓仁 ヒロヒト応援ブログ By はてな
Perlでデザインパターン 第５弾（シングルトンパターン） シングルトンパターンとは、指定したクラスのインスタンスが絶対に一つしか存在しないことを保証するパターンです。 一般的なシングルトンパターンのクラス図 +---------------------+ | Singleton | +---------------------+ | -$singleton | +---------------------+ | | | +getInstance | | | +---------------------+ サンプル１ Singleton.pm package Singleton; use strict; my $singleton; BEGIN { print "Start.\n"; $singleton = bless {}, __PACKAGE__; print "インスタンスを生成し
リリース、障害情報などのサービスのお知らせ
最新の人気エントリーの配信
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く
はてなアイデア
List Of Pornstars - Porn Models | SloppyKnees.com