hide-k.net#blog: Catalyst::Model::AdaptorでTheSchwartzをModel化
今さらTheSchwartzを使い始めました。 で、jobの状態を監視するWebインターフェースをCatalystで作ることになったのですが、いちいちTheSchwartzのインスタンスを作るのが面倒くさい。 でもそのためにModel作るのもアホらしい。 で、Catalyst::Model::Adaptorを使ってMyApp::Model::TheSchwartzを作ってモデルとして使うのをやってみたのでメモ。 HelperスクリプトでMyApp::Model::TheSchwartzを作成 script/myapp_create.pl model TheSchwartz Adaptor TheSchwartz 出来上がったMyApp::Model::TheSchwartzを変更 package MyApp::Model::TheSchwartz; use strict; use w
自分の最近のCatalystのモデル部分の書き方 - D-6 [相変わらず根無し]
自分の最近のCatalystのモデル部分の書き方 こちらのブログでなんか呼ばれた気がしたのでとりあえず書いてみた。 あくまで自分はどうしてるか、って話ですが、最近はCatalystでなんか書くときはこんな感じで使ってます。 色んな事がこの図に詰まっているので、箇条書きしてみる： Model::APIがAPIオブジェクトを作成して、使用時にはModel::APIに対して`find()`というメソッドを使って実際のAPIオブジェクトを持ってくるSchema等はMyApp::Schemaに定義し、Model::APIのアトリビュートとして持っている。cacheも同等。これらの初期化引数は設定ファイルのModel::APIから取れるようにしておくCatalyst::Model::DBIC::Schemaは＊使ってない＊Model::APIではACCEPT_CONTEXTが呼ばれた時点で、もしまだ初
Catalyst::Controller::ActionRoleを使ってみた - hide-k.net#blog
最近Catalystをご無沙汰してたのでリハビリがてらJPA セミナーでも紹介されていたCatalyst::Controller::ActionRoleを触ってみました。 要はこのコントローラを継承することでMoose::Roleで書いた機能をメソッド attributeで呼べるようになります。 lib/MyApp/ActionRole/Bar.pm package MyApp::ActionRole::Bar; use Moose::Role; after execute => sub { my ($self, $controller, $c) = @_; my $body = $c->response->body || ''; $c->response->body($body . 'Bar'); }; 1; lib/MyApp/Controller/Foo.pm package MyA
YAPC::Asia 2009でmoder Catalystについて話してきた - hide-k.net#blog
YAPC::Asia 2009でmodern Catalystと称してトークをしてきました。 多分Perl史上良くも悪くも最も多くの人が開発、利用に携わったWeb Application Frameworkで、未だに現場で多く使われているCatalystがメジャーバージョンアップをしたのでその辺を話してきました。 Moose-ified = modernという訳ではないし、自分はMoose廚ではないのですが多くの時間を割く結果になりました。本当は抽象化やTest周りやおすすめのPlugin/ComponentとかTipsとかDBIC周りにも触れたかったのですが20分では無理だったので、またの機会に。最後の方でちらっとだけPSGIにも触れさせてもらいました。 Modern CatalystView more presentations from Hideo Kimura.
第6回 Catalyst::Upgrading：検証はお早めに | gihyo.jp
3年前の大混乱 モダンPerl界を代表するウェブアプリケーションフレームワークといわれるCatalystが2006年半ばに5.6系統から5.7系統に移行したとき、創始者のゼバスティアン・リーデル氏を追い出す形で集団管理体制に移行した開発チームが最初にしたことは、プロジェクト開始当初から使われてきたCatalystという名のディストリビューションはそのままに、Catalyst-Runtimeという新しいディストリビューションをつくることでした。 このようなディストリビューション名の変更は、CPANクライアントを使っている分には（内部でモジュール名からディストリビューション名への変換が行われるので）問題にならないのですが、外部のパッケージ管理者たちには少なからぬ負担をかけました。なにしろ突然100を越す関連パッケージの依存が変更になるのです。基本的にはメタ情報だけ書き換えれば済む話とはいえ、従
The Definitive Guide to Catalyst - Charsbar::Note
Catalystの新しい本が出たのでさっそく読んでみました。 The Definitive Guide to Catalyst: Writing Extensible, Scalable and Maintainable Perl-Based Web Applications 作者: Kieren Diment,Matt Trout出版社/メーカー: Apress発売日: 2009/07/09メディア: ペーパーバック購入: 2人 クリック: 23回この商品を含むブログ (7件) を見る 第一印象としてはよくできた本だと思います。お世辞にも初心者向けとは言えませんが（レベル的には『モダンPerl入門』くらいですかね）、背景知識から、認証を含む基本的なアプリケーションの作り方、Catalystの拡張法，Reactionまで、ある程度Perlの実務経験があって、実際に動作するコードなんてなくて
最近の Catalyst の構成
新しく作った開発プロセスの問題点が見えたわけだから、それはそれとして改善すればいいのに。プロジェクトに併せてテーラリングされてないのとか。そういうことを自発的にやれる人たちが必要だというのもわかるけど ■ [catalyst][perl] 最近の Catalyst の構成 最近 Catalyst のエントリをよく見かけるので自分の構成をさらしてみます。コードは CodeRepos にあります。 share - Revision 30441: /lang/perl/Chaostr/trunk 元々は、作ろうとしたアプリがあったんですが、去年の Catalyst confernce 以降、MyApp 的実験場になってます。仕事で作ったものはさらせないので、構成だけ表に出す感じ。ちなみに今のところ Catalyst 5.7 系でしか使ってないです。 あと、Controller クラスのベースで
JPA セミナー #1 (Session 2 Catalyst 改) - Craftworks Tech Blog - Branch
1. Plugin プラグインの使用を控える 間違った使用方法、実装方法で定義されていることが多い プラグインの使いどころ リクエストディスパッチのロジックを監視、変更する場合のみ リクエストパラメーターの変換、Catalyst のメソッド実行チェーンの変更を含む 本当に使わない方向で Catalyst::Plugin::* の中にはそもそもプラグインとして実装されるべきでないものが多い コンテキストオブジェクト ($c) にメソッドを追加する実装がそもそも良くない手法 大半のプラグインはモデルとして実装されるべき それ以外はそもそも存在するべきがどうかさえ疑問 (eg.Catalyst::Plugin::Message) Catalyst::Plugin::Authentication はどうなの？ とはいえ、例外はある 認証系とセッション系はプラグインで存在しなければならない意味がある
Catalyst+DBIC+TT+Data::Page::Navigationでページング - はてな#hide-k
これもよく使うくせによく忘れるので備忘。 まずはCatalystのControllerでData::Page::Navigationをuseして MyApp::Controller::User package MyApp::Controller::User use strict; use warnings; use parent 'Catalyst::Controller'; use Data::Page::Navigation; sub index : Path : Args(0) { my ( $self, $c ) = @_; my $page = $c->req->param('page') || 1; my $rows = $c->req->param('rows') || 10; my $users = $c->model('DBIC::Users')->search( {},
CatalystのChainedアクションとExceptionの関係 - Lism.in * blog - nekoya (id:studio-m)
一度エントリを書き損ねると更新が止まる悪癖… sub prepare : PathPart('') Chained('/root') CaptureArgs(1) { my ($self, $c, $id) = @_; $c->stash->{ item } = $c->model('Service::Items')->find($id) or MyApp::Exception->throw('item not found'); # croak with exception object } sub show : PathPart('') Chained('prepare') Args(0) { my ($self, $c) = @_; } Controllerにこういうのを書いて、例外が発生したら通常のフローを止めてエラー処理に入る。というのがやりたかったんだけど、これがうまくいかない。
同一 Action 名の Path Spec を実装するには Chained を使う
今まで上記のような Path Spec を実装するときは sub hoge : Args(1) { my $self = shift; my ($c, @args) = @_; } こんな感じでやってた。 で、今回はこういう Path Spec を実装したかったので 同じようにだけでできるかと思ってやったら dispatch されなくなってできなかった。 sub hoge : Args(0) { my $self = shift; my ($c) = @_; } sub hoge : Args(1) { my $self = shift; my ($c, @args) = @_; } sub hoge : Args(2) { my $self = shift; my ($c, @args) = @_; } で、それを sasata299 が解決してくれた。GJ Chained を使えばいい
githubに動くサンプルを用意しておきました - Charsbar::Note
先日の第7回の記事で書いたサンプルアプリを最低限動くようにしておきました。基本的な使い方は、git cloneしたあと、 $ perl bin/myapp add_user --id=admin --password=change_me --name=adminのようにしてユーザを追加。お決まりの $ perl script/myapp_server.pl -dでサーバを起動。いま作ったユーザでログインしてから、http://localhost:3000/entry/<適当なエントリID> にアクセスして記事を投稿、という流れ。 あまり複雑にしてしまってもわかりづらいと思うので、ふつうのアプリケーションなら当然しておくべきエラーチェックの類などはごそっと省略してあります。Text::MicroTemplateを使ったテンプレもCSSひとつあたっていませんが、URIの指定の仕方とファイルイン
local::libを使ったCatalyst5.7と5.8の比較テスト - hide-k.net#blog
JPAセミナー#1でJay Shirley氏が絶賛していたlocal::libですが、その際に「異なるバージョンのモジュールをテストするのにも便利ですね」とか言っていた気がするので、早速やってみました。 お題は、Catalystで先日公開されたMoose版の5.8と旧5.7をベンチマーク比較してみます。 まずはCatalyst::Runtime 5.71001を$HOME/cat5.7にインストールします。 $ cd $ perl -MCPAN -Mlocal::lib=cat5.7 -e 'CPAN::install("M/MR/MRAMBERG/Catalyst-Runtime-5.71001.tar.gz")' 次にCatalyst::Runtime 5.8(この時点での最新版は5.8001でした)を$HOME/cat5.8にインストールします。 $ cd $ perl -MCPAN
モダンなCatalystコンポーネントを書くときは - とほほのN88-BASIC日記
Catalystがモダンかどうかは置いておいてCatalystのコンポーネントを書く時のお作法として 大昔は ... use base qw(Catalyst::Action); use NEXT; sub execute { my $self = shift; $self->NEXT::execute( @_ ); ... ちょっと前は ... use base qw(Catalyst::Action); use Class::C3; sub execute { my $self = shift; $self->next::method( @_ ); ... モダンなのは ... use base qw(Catalyst::Action); use MRO::Compat; sub execute { my $self = shift; $self->next::method( @_ )
Catalyst - Web Framework
6 Keunggulan Slot88 Sebagai Situs Judi Slot Online Terbaik Persaingan situs judi slot online yang seluas lautan, membuat situs-situs berbenah diri untuk memberikan yang terbaik. Ada beberapa situs yang menonjol, salah satunya adalah slot88. Namun, apa yang membuat slot88 berbeda dan spesial? Berikut adalah keunggulan slot88 yang layak untuk dijadikan mitra taruhan Anda: 1. Pilihan Variasi Game Slo
はてなグループの終了日を2020年1月31日(金)に決定しました - はてなの告知
はてなグループの終了日を2020年1月31日(金)に決定しました 以下のエントリの通り、今年末を目処にはてなグループを終了予定である旨をお知らせしておりました。 2019年末を目処に、はてなグループの提供を終了する予定です - はてなグループ日記 このたび、正式に終了日を決定いたしましたので、以下の通りご確認ください。 終了日: 2020年1月31日(金) エクスポート希望申請期限:2020年1月31日(金) 終了日以降は、はてなグループの閲覧および投稿は行えません。日記のエクスポートが必要な方は以下の記事にしたがって手続きをしてください。 はてなグループに投稿された日記データのエクスポートについて - はてなグループ日記 ご利用のみなさまにはご迷惑をおかけいたしますが、どうぞよろしくお願いいたします。 2020-06-25 追記 はてなグループ日記のエクスポートデータは2020年2月28
Catalystのhome取れなくて急にハマった - Unknown::Programming
久しぶりにCatalystを触ってハマったのでメモ。 ある環境では動くのに別の環境に移したら急にmyapp.ymlが読み込めなくてエラーになったんだけど、どうやらhomeの値がヘンな値になってるっぽい感じだったので急いでたのもあってとりあえずMYAPP_HOMEという環境変数にhomeのパスを直指定してなんとか動くようになったわけです。 元の環境ではMYAPP_HOMEなんて使わなくてもちゃんとhomeの自動取得がうまくいってたのにおかしーなーなんでかなーと思ってたわけですよ。 で、まぁ次の日Catalystのソースを見てびっくり。 homeの取得はCatalyst.pmのsetup_homeメソッドで行われています。 # Catalyst-v5.7011 sub setup_home { my ( $class, $home ) = @_; if ( my $env = Catalyst
リリース、障害情報などのサービスのお知らせ
最新の人気エントリーの配信
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く
Sedition·com is under the knife
jsso
Catalyst - Jonathan Rockway
