perl
結論 mac "ports"で入れたmysqlで、Test::mysqldは入れない方がよいかと思われます。 portsで入れていたとしても、以下より改めてmysqlを入れなおしたほうがよいと思われます。MySQL :: Developer Zone理由は、portsで入れた場合のmysqlのインストール先がTe…
メモがてら。data形式で入れる場合はこんな感じで入れる。 my $loader = DBIx::FixtureLoader->new(dbh=>$dbh); $load_fixture->( [ {id=>1,name=>"bioshock"}, {id=>2,name=>"amnesia"}, ], {table=>"game"}, ); 中身のお話。DBIx::FixtureLoaderは、insert…
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…
#!/usr/bin/perl #myapp.pl use Mojolicious::Commands; Mojolicious::Commands->start_app("MyApp"); みたいなスクリプトを書いて。 $ perl ./myapp.pl routesとかするとSTDOUTに、tree上に表示される。こっちでもよかった。 #!/usr/bin/perl use Mojolicio…
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…
rozary/p5-Time-Band · GitHubいろいろ機能を追加して、バグも直しながらやってます。時間"帯"の加減が出来ます。って作りかけのものをPushしたので。 アップ間に合った!! Time bandあ、まだ、作成中なので、テストはこけこけになると思います!!!
やっぱいいよYAPC!!!Perlだけ書いて生きていきたいので、そこんとこヨロシク!!!!ってブログ書いてるわけだけれど。"ブログ書くまでがYAPC!!"ならボクのPerlは終わってしまうのか!!!!つか、和みすぎwww。
先週の木曜日参加してまいりました。今回はなんと42人？参加者がいた！！先ずは、前日？に、急遽LT参加を了承してくれてありがとうございました。 @papixさんと@macopyさんのLTタイトルを見て、 触発されてしまったので急遽お願いしてしまいました。でも、や…
もーほんとメモです。 継承のお話 base より parentダミアン･コンウェイ ピンク色のページ｢perl oop｣内部関数の使われていない奴 発見テスト Test::LocalFunctions Test::LocalFunctions::Fastbaseのメモリリーク。 直すの大変だからparentが出てきた。"らし…
関数の中で、memcacheにsetとかgetとかしているときってチェックしづらい。 だので、Devel::KYTProfをuseすることでmemcached周りの処理がSTDERRに流れてくる所を利用して、 それをcaptureしてテストするというようにしている。Devel::KYTProfとCapture::Tin…
節分してますか? ボクは節分してみました。で。名前付け大事のお話します。お試しのプログラムで継承元をParent.pmとして、 package Child; use parent 'Parent'; とかして、Childをuseしたら怒られた。理由は、parentをExportしてるのがそもそもParent.pmっ…
ブログ、10月から更新が止まってる…。 11月、12月忙しかったからなぁ…。今回のテーマは｢配列｣ (だったみたい。12月にatnd登録したっきりで、忘れていた…。で、LTの人数が足りないということで、飛び入り参加。何にしようかと思案して、配列を引数として使う…
escapeのお話 Text::Xslateがescapeしてくれるので、それを使います!その時、html_escapeするだけでは、Text::Xslate::Type::Rawというオブジェクトなので、 unmark_rawして文字列を取り出しましょう。 use Text::Xslate qw/html_escape unmarkraw/; my $esc…
更新が無かったので、疑問を垂れ流してみる。 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を使った…
