MySQL::Sandbox - 日向夏特殊応援部隊
MySQL::Sandbox はお手軽に MySQL のサーバーを立ち上げるツールで、ちょっとしたテスト環境を構築するとかに非常に便利なプロダクトです。 とりあえずインストール $ sudo cpan -i MySQL::Sandboxでインストールしてから OS ごとの実行バイナリをダウンロードします。自分の手元の VM は CentOS 5.2 なので、mysql-5.0.82-linux-i686-glibc23.tar.gz をダウンロードしました。 まずは レシピ の最初にあるように make_sandbox してみます。 $ make_sandbox /path/to/mysql-5.0.82-linux-i686-glibc23.tar.gzそうすると /home/zigorou/sandboxes 以下にサンドボックスが出来てます。ついでに mysqld も立ち上がっていま
cpan コマンドでインストールしたモジュールを調べる - 日向夏特殊応援部隊
ExtUtils::Install, ExtUtils::Installed を使うと cpan コマンドでインストールしたモジュールについてあれやこれや調べる事が出来ます。 インストールされているモジュール一覧 perl -MExtUtils::Installed -le 'print join "\n" => sort ExtUtils::Installed->new->modules;' 特定のモジュール名が属する dist に含まれるファイル一覧 $ perl -MExtUtils::Installed -le 'print join "\n" => sort ExtUtils::Installed->new->files(shift @ARGV);' YAML::Syck /usr/lib/perl5/site_perl/5.8.8/i386-linux-thread-multi
Catalyst + FastCGI + Apache (mod_fastcgi) の設定 - 日向夏特殊応援部隊
すっごい久しぶりにやった件。 FastCgiExternalServer /home/zigorou/myapp/MyApp/script/myapp_fastcgi.pl -socket /tmp/myapp.socket <VirtualHost *:80> ServerName myapp.local DocumentRoot /home/zigorou/myapp/MyApp/root Alias /static /home/zigorou/myapp/MyApp/root/static AliasMatch ^/([^./]+\.[^./]+)$ /home/zigorou/myapp/MyApp/root/$1 ScriptAlias / /home/zigorou/myapp/MyApp/script/myapp_fastcgi.pl ErrorLog /var/log/ht
Catalyst Source Code Walking #02 - 日向夏特殊応援部隊
d:id:ZIGOROu:20061006:1160166429からの続き とりあえず書き終えました。 Catalyst->import Catalyst->setup_home MyApp->config MyApp->setup MyApp->setup_home MyApp->setup_log MyApp->setup_plugins MyApp->setup_dispatcher MyApp->setup_engine MyApp->setup_flags (あれば) MyApp->plugins->setup MyApp->setup_components MyApp->setup_actions setupメソッドから呼び出している各種setup_*なメソッドに関してまだ見てないので、 さらに追ってみましょう。 追記 component辺りを少し修正。 MyApp->setu
Catalyst Source Code Walking #03 - 日向夏特殊応援部隊
はじめに 前回のエントリはこちら。 d:id:ZIGOROu:20061007:1160169000 今回はComponentだけにフォーカスを当てます。 Componentとは何か 基本的にmyapp_create.plで作成するモジュールはComponentです。 ここで作られるComponentはCatalyst::Controller, Catalyst::Model, Catalyst::Viewクラスか あるいはそれらの派生クラスであるモジュールを親クラスとしたモジュールとなります。 従って、Catalystの開発は、 Pluginによる$cの拡張 Componentによる具体化 がメインになると言えます。 もう一度Componentの処理をおさらい と言う訳で再度Catalyst->setup_components()を見てみます。 sub setup_components
Sub::Exporter の collectors - 日向夏特殊応援部隊
Sub::Exporter の collectors だけ良く分からなくて、 Tutorial Cookbook を見たんだけど、その部分の解説とコードが中途半端で意味が良く分かりませんでした。 そんな訳で Google 先生に聞いたところ、 http://googlewhacks.blogspot.com/2007/12/pittsburgh-perl-workshop1crafting.html から、 Crafting Custom Interfaces with Sub::Exporter Crafting Custom Interfaces with Sub::ExporterView more presentations from Ricardo Signes. (tags: perl programming) が見つかったので読んでみるとやっと理解出来た件。Collector
DBIC::Schema::Loaderのカスタマイズと言うネタでプレゼンするはずだった件 - 日向夏特殊応援部隊
話してないけど、資料はあるので公開しまっする。 Customization of DBIC::Schema::Loader 概要 開発中にスキーマに変更が発生して、make_schema_at()を何度も叩く際に困ることと、Schema::Loaderで比較的意図した通りにSchema, Tableクラスを生成する為に、こんな風にするといいおって内容です。 せっかちな人向け こんな感じ。 内容の解説はプレゼン資料を見てくだしあ。 #!/usr/bin/perl use strict; use warnings; use FindBin; use File::Spec; use lib ( File::Spec->catfile( $FindBin::Bin, qw/.. lib/ ), File::Spec->catfile( $FindBin::Bin, qw/.. schema/ )
Catalyst Conference #1 まとめ - 日向夏特殊応援部隊
昨日は直前にエロギークな人のトラブルもありましたが、何とか無事に終える事が出来ました。 参加者の皆さん、お疲れ様でした。 と言う訳でプレゼンのまとめと個人的な感想です。 プレゼン CatalystからModelを切り離せ (g:catalyst:id:dann) 資料 今回の基調講演の一つ。g:gatalyst:id:dannさんのプレゼン。エンタープライズアーキテクチャ的にCatalystを分析して、かくあるべきと言う事を言ってる方は少ないので非常に参考になりました。 WAFにおけるModelとは何ぞやと言う事から、Modelにはどのようなパターンが存在し、それらをWAFではなくAFに落とし込む方法論をModelの分類ごとに手法化って感じ。 素晴らしい、また後で資料読みたい。 Catalyst REST Practice #1 (g:catalyst:id:ikasam_a) 資料 RO
Class::Accessor::Grouped - 日向夏特殊応援部隊
Class::Accessor::GroupedはDBIx::Classの親クラスの一つです。*1 DBIx::Classを理解する上で避けれないので調べてみました。 要約 簡単に言えばあるクラスのインスタンスが他のクラスのインスタンスを持つような場合に、その他のクラスのアクセサへのショートカットを簡単に作る為のモジュールと言えます。 具体的に言うと、 Foo::Bと言うクラスはa1, a2, a3と言うアクセサを持つ Foo::AはFoo::Bをアクセサに持ちつつ、Foo::Bのアクセサa1, a2, a3へ直接アクセスするアクセサも持つ みたいなケースで使えます。 使い方 make_group_accessors()でラベルとショートカットメソッドを登録する set_component_class()でラベルに対してオブジェクトを突っ込む(この場合はFoo::B, インスタンスを$bだ
DBIx::Class SourceCode Reading - 日向夏特殊応援部隊
Class::C3::Componentised Source Code Reading - Yet Another Hackadelic DBIx::Class::Componentised Source Code Reading - Yet Another Hackadelic Class::Accessor::Grouped - Yet Another Hackadelic を予備知識としてDBIx::Classを読み解きます。 もうなんか疲れて来た＞＜ mk_classdata(), mk_classaccessor() sub mk_classdata { shift->mk_classaccessor(@_); } sub mk_classaccessor { my $self = shift; $self->mk_group_accessors('inherited', $_
Catalyst Source Code Walking #01 - 日向夏特殊応援部隊
はじめに 遅ればせながらじっくりCatalystのsourceを読んでみようかと思ったので、 備忘録を兼ねてシリーズ化してみます。 ちなみにソースコードはCatalyst::Runtimeの5.7003を見てます。 まずbootstrapとなるscript(project_server.pl)から見れば当然、Catalyst.pmを継承したクラスが基点となってるのは明らかなので、ここから読んでみます。 ここでは、 $ catalyst.pl MyAppでプロジェクトを作った物だとします。 まず出来上がったMyApp.pmを見てみます。 Catalyst->import use Catalyst qw/-Debug ConfigLoader Static::Simple/; our $VERSION = '0.01'; # # Configure the application # __PA
Class::C3::Componentised Source Code Reading - 日向夏特殊応援部隊
DBIC関連の基底クラスとも言えるモジュールがClass::C3::Componentisedです。 C3ベースのコンポーネント化されたクラスモジュールを作る際のベースですね。 1.0003をテキストとします。 load_components() sub load_components { my $class = shift; my $base = $class->component_base_class; my @comp = map { /^\+(.*)$/ ? $1 : "${base}::$_" } grep { $_ !~ /^#/ } @_; $class->_load_components(@comp); } component_base_classってのはSynopsisにもありますが、基本的には決めうちの何か。例えばDBIx::Classとかって言う文字列を返す。 loa
Catalyst/DBICでDigest認証する - 日向夏特殊応援部隊
自分の為のメモですよ。 準備 まずはCatalystプロジェクトを作ります $ mkdir -p /path/to/dir $ cd /path/to/dir $ catalyst.pl AuthSample ユーザー用のDBICスキーマを定義します。 $ module-starter --module AuthSample::Schema $ cd AuthSample-Schemaでこのディレクトリにて、 CREATE TABLE user ( user_seq INTEGER PRIMARY KEY, user_id TEXT UNIQUE, password TEXT, created_on DATETIME, updated_on DATETIME ); こんなスキーマを定義して、schema.sqlとして保存して、 $ sqlite3 -init schema.sql auth
Module::Pluggable::Fast Source Code Reading - 日向夏特殊応援部隊
そもそも論ですけど Similar to C but instantiates plugins as soon as they're found, useful for code generators like C. ってあるように、Module::Pluggableと同じインターフェースな訳じゃなくて似てるモジュールです。 似てる 速い すぐインスタンス化する ってのが特徴ですね。 同様にimport経由でpluginの読み込みを行います。 Module::Pluggable::Fast import() sub import { my ( $class, %args ) = @_; my $caller = caller; no strict 'refs'; *{ "$caller\::" . ( $args{name} || 'plugins' ) } = sub { my $sel
DBIx::Class::Schema::Loaderの手動スキーマ生成、初心者向けチュートリアル - Yet Another Hackadelic
と言う訳で自分なりに色々調べてみた。 テスト用データベース定義 CREATE TABLE `User` ( `user_id` bigint(20) NOT NULL auto_increment, `name` varchar(255) character set latin1 default NULL, `created_on` datetime default NULL, `updated_on` datetime default NULL, PRIMARY KEY (`user_id`) ) ENGINE=InnoDB DEFAULT CHARSET=utf8; CREATE TABLE `Book` ( `book_id` bigint(20) NOT NULL auto_increment, `name` varchar(255) character set latin1 de
Module::Pluggable Source Code Reading - 日向夏特殊応援部隊
Module::Pluggable import() まずModule::Pluggableってのはuse時に各種パラメータを指定して使うモジュールなんで、 まずはimportメソッドから。 sub import { my $class = shift; my %opts = @_; my ($pkg, $file) = caller; # the default name for the method is 'plugins' my $sub = $opts{'sub_name'} || 'plugins'; # get our package my ($package) = $opts{'package'} || $pkg; $opts{filename} = $file; $opts{package} = $package; my $finder = Module::Pluggabl
Catalyst::Plugin::ConfigLoaderでconfigの切り替えを行う - 日向夏特殊応援部隊
はじめに Catalyst::Plugin::ConfigLoaderを使うと異なる環境の為の設定を環境変数のみで制御出来ます。 下準備 ちょっと癖物なのが下記のように設定しなきゃいけないって事です。 package MyApp; use Catalyst qw/ConfigLoader/; __PACKAGE__->config( file => __PACKAGE__->path_to(conf) ); で実際にconfディレクトリに下記のようにファイルを作ります。 $ ls conf/ myapp.json myapp_local.json myapp_service.jsonこうして例えば、 $ cat conf/myapp.json { name: 'MyApp', foo: 'foo' } $ cat conf/myapp_local.json { foo: 'bar', ba
1
リリース、障害情報などのサービスのお知らせ
最新の人気エントリーの配信
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く
