Andreas Marienborg Ask Bjørn Hansen Bruno Vecchi Chris Prather chromatic Dan Dascalescu Dave Rolsky David Leadbeater Dylan William Hardison Florian Ragwitz franck cuny Frank Wiegand Graham Barr Jason May Jesse Luehrs jrockway ktat Moritz Lenz Pedro Melo Piers Cawley Rob Hoelz Salve J. Nilsen Shawn M Moore Shlomi Fish Thomas Klausner Torsten Raudssus Yuval Kogman
Tools Download (117.63KB) MetaCPAN Explorer Permissions Subscribe to distribution Install Instructions Dependencies Class::Accessor Class::ReturnValue MIME::QuotedPrint Text::vFile::asData and possibly others Reverse dependencies CPAN Testers List Dependency graph Permalinks This version Latest version
Tools Download (71.4KB) MetaCPAN Explorer Permissions Subscribe to distribution Install Instructions Dependencies Class::Accessor::Fast Class::Component Class::Data::Inheritable DBIx::Class::Schema::Loader DateTime DateTime::Format::HTTP DateTime::Format::MySQL DateTime::TimeZone Digest::MD5 File::Basename File::Find::Rule File::Find::Rule::Age File::Spec File::Temp File::stat Filter::Util::Call H
This domain may be for sale!
defaultだけ上書きとかできないのかな？ package Foo; use Moose; has foo => ( is => 'rw', lazy => 1, default => sub { 100 } ); package Bar; use Moose; extends qw(Foo); # isとlazyを引き継いで欲しい！ has foo => ( default => sub { 200 } ); 派生先でdefaultだけ上書きしたいんだけどそーゆーのはできない？ やっばhasの定義をBarに全コピーするのがいいのかなぁ。でも定義が重複するのがやだな・・・。triggerとかが二重化しちゃうし。 んー他にはこうするとか？ package Foo; use Moose; has foo => ( is => 'rw', lazy => 1, default => sub {
{ local $c->view->template->service->{WRAPPER} = []; $c->forward( $c->view ); }
話変わってほら、なんというかディレクトリを再帰的に生成したいとかって欲求、たまにあるじゃない。 いつも忘れるのよいつも。なんだったっけなーってな感じで。 でね「Perl ディレクトリ 再帰的」とかでググってもイマイチ目的に合ったものがヒットしなかったのでグーグル先生のお手伝いをさせて頂きます。 でまあやっと見つけた記事が File::Path ディレクトリ階層を作成・削除 - あじゃぱー。 そうそうそうFile::PathだよFile::Path。 File::Pathのmkpathだよ。そうだよ。思い出したよ。 File::Pathなんて普段まったく使わないからすぐ忘れちゃうよ。 use File::Path; mkpath('C:\test\new\dir'); コレで再帰的に作ってくれる。便利。 でね、mkpathを最近どっかで見たことあるなぁと、思ったわけです。 そこでこの記事のタ
To install CGI::Application::Plugin::ActionDispatch, copy and paste the appropriate command in to your terminal. cpanm cpanm CGI::Application::Plugin::ActionDispatch CPAN shell perl -MCPAN -e shell install CGI::Application::Plugin::ActionDispatch For more information on module installation, please visit the detailed CPAN module installation guide.
メモ。 一応MySQLベースです。 デバッグ情報出力 $schema->storage->debug(1); よく忘れますorz。実際に発行されたSQL文が出力されるので便利。 一行だけデータが欲しい my $obj = $resultset->search( { hoge_id => $hoge_id } )->first; # または my $obj = $resultset->single( { hoge_id => $hoge_id } ); ただ上記の方法では実際には検索結果を全て取得してから一行返しているだけなので、キチンとLIMIT設定したければ下記のようになる。 my $obj = $resultset->search( { hoge_id => $hoge_id } )->slice(0,0)->first; テーブルからランダムで一行取得 my $obj = $resu
POEはevent-drivenなmultitasking frameworkです。最近では名前こそ知られてきたものの、(上級者を除くと)広く使われてはいません(ただし歴史は長いし、採用事例もたくさんあります)。なぜかというと、かなーり奥が深くて、ドキュメントが膨大で、しかもソースコードの上から順に実行される一般的なPerlプログラムと大きく異なるイベント駆動なフレームワークだからでしょう。自分も、「なんかPOEってすごいらしいよ」と耳にしてから少しずつ勉強していたんですが、どーも理解が進まなくて苦労しました。そんな最初のハードルを低くするような文書が欲しかったので、書いてみることにします。 POEは、event-drivenなプログラムに最適です。event-drivenなプログラムとは、何らかのイベントが起きたらなんらかの処理をする、そういうプログラムです。例えば、GUIアプリケーショ
Alex Balhatchet André Walker ben hengst Brad Bowman Caleb Cushing Daisuke Maki Dave Rolsky Florian Ragwitz Gabor Szabo Gianni Ceccarelli Graham Knop Jason Galea Jason May Jay Hannah Jesse Luehrs Jonathan Rockway Kip Hampton Mohammad S Anwar Neil Bowers Philippe Bruhat (BooK) Sterling Hanenkamp Stevan Little Tomas Doran Yanick Champoux zdk
Blog Search when-present<#else>when-missing. (These only cover the last step of the expression; to cover the whole expression, use parenthesis: (myOptionalVar.foo)!myDefault, (myOptionalVar.foo)?? ---- ---- FTL stack trace ("~" means nesting-related): - Failed at: ${entry.path} [in template "__entry.ftlh" at line 3, column 25] - Reached through: #include "__entry.ftlh" [in template "entry.ftlh" at
リリース、障害情報などのサービスのお知らせ
最新の人気エントリーの配信
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く
