どこぞのエンジニアなマネージャーのブログ。

Perlとかviとかcssとかjavascriptとか(rubyとか)git >> https://github.com/rozary hatenaIDがrozrayなのはtypo

perl

Test::mysqldをmacに入れてみた。

結論 mac "ports"で入れたmysqlで、Test::mysqldは入れない方がよいかと思われます。 portsで入れていたとしても、以下より改めてmysqlを入れなおしたほうがよいと思われます。MySQL :: Developer Zone理由は、portsで入れた場合のmysqlのインストール先がTe…

DBIx::FixtureLoader(0.11)でload_fixtureにdataを渡す場合は。

メモがてら。data形式で入れる場合はこんな感じで入れる。 my $loader = DBIx::FixtureLoader->new(dbh=>$dbh); $load_fixture->( [ {id=>1,name=>"bioshock"}, {id=>2,name=>"amnesia"}, ], {table=>"game"}, ); 中身のお話。DBIx::FixtureLoaderは、insert…

ORマッパーとDBD::Mockは、あまり相性が良くない??

DBD::Mockは、名の通りDBのモック。 DBD::Mock - search.cpan.org先ずは、DBD::Mockの説明。 my $dbh = DBI->connect("DBI::Mock:"); $dbh->{mock_add_resultset} = { sql => 'SELECT foo, bar FROM baz', results => [ [ 'foo', 'bar' ], [ 'this_one', 'th…

MojoliciousのRoutesの中身をtree上に吐き出す。

#!/usr/bin/perl #myapp.pl use Mojolicious::Commands; Mojolicious::Commands->start_app("MyApp"); みたいなスクリプトを書いて。 $ perl ./myapp.pl routesとかするとSTDOUTに、tree上に表示される。こっちでもよかった。 #!/usr/bin/perl use Mojolicio…

Mojolicious::Plugin::Config->load単体での使い方。@Test::Mojo

cpanには以下のように書かれている。 $plugin->load($file, $conf, $app); だので、以下のようにしてみた。 my $t = Test::Mojo->new("MY_APP"); my $config = Mojolicious::Plugin::Config->load($file,$config,$t); > Can't locate object method "log" vi…

Time::Band.pm書いてます。

rozary/p5-Time-Band · GitHubいろいろ機能を追加して、バグも直しながらやってます。時間"帯"の加減が出来ます。って作りかけのものをPushしたので。 アップ間に合った!! Time bandあ、まだ、作成中なので、テストはこけこけになると思います!!!

Perlにゅうが…ちがかったLT損!!

やっぱいいよYAPC!!!Perlだけ書いて生きていきたいので、そこんとこヨロシク!!!!ってブログ書いてるわけだけれど。"ブログ書くまでがYAPC!!"ならボクのPerlは終わってしまうのか!!!!つか、和みすぎwww。

Perl beginners #9 に行ってきた。と初SlideShare。

先週の木曜日参加してまいりました。今回はなんと42人?参加者がいた!!先ずは、前日?に、急遽LT参加を了承してくれてありがとうございました。 @papixさんと@macopyさんのLTタイトルを見て、 触発されてしまったので急遽お願いしてしまいました。でも、や…

perl begginers #8 の メモ

もーほんとメモです。 継承のお話 base より parentダミアン・コンウェイ ピンク色のページ「perl oop」内部関数の使われていない奴 発見テスト Test::LocalFunctions Test::LocalFunctions::Fastbaseのメモリリーク。 直すの大変だからparentが出てきた。"らし…

memcacheでデータを set して get しているかのテストプラクティス

関数の中で、memcacheにsetとかgetとかしているときってチェックしづらい。 だので、Devel::KYTProfをuseすることでmemcached周りの処理がSTDERRに流れてくる所を利用して、 それをcaptureしてテストするというようにしている。Devel::KYTProfとCapture::Tin…

use parent 'Parent';

節分してますか? ボクは節分してみました。で。名前付け大事のお話します。お試しのプログラムで継承元をParent.pmとして、 package Child; use parent 'Parent'; とかして、Childをuseしたら怒られた。理由は、parentをExportしてるのがそもそもParent.pmっ…

Perl Beginners #6に行ってきた。

ブログ、10月から更新が止まってる…。 11月、12月忙しかったからなぁ…。今回のテーマは「配列」 (だったみたい。12月にatnd登録したっきりで、忘れていた…。で、LTの人数が足りないということで、飛び入り参加。何にしようかと思案して、配列を引数として使う…

perl de HTML escapeとsvn tree-conflict

escapeのお話 Text::Xslateがescapeしてくれるので、それを使います!その時、html_escapeするだけでは、Text::Xslate::Type::Rawというオブジェクトなので、 unmark_rawして文字列を取り出しましょう。 use Text::Xslate qw/html_escape unmarkraw/; my $esc…

なんでcan使ってるんだっけ??at perl

更新が無かったので、疑問を垂れ流してみる。 package a; sub new { my $class = shift; bless {},$class; }; sub foo { print "foo"; } てのがあったとして。 my $sub = "foo"; my $a = a->new; my $code = $a->can($sub); $code->(); みたいにcanを使った…