YAPC Asia 2010 でのスライド公開と補足、あと感想など - 日向夏特殊応援部隊
はい、@941 さんを初めとして、@lestrrat さん、JPA の皆様って僕もですけど、それとボランティアスタッフの皆さん、スピーカーの皆さん、ご来場者の皆さん3日間お疲れ様でした。そして、今年も盛り上がりましたね。 さて、後半だいぶ時間が押して早口になってしまいましたが当日のスライドを公開します。 Inside mobage platformView more presentations from zigorou. さてと特に後半の Q4M を複数台構成にした際の負荷のばらつきですが、INSERT の方は DNSRR とかでやればいいのですが、queue_wait() して実際に何かタスクを実行する際に、処理時間に偏りがある場合、queue_wait() の sleep が無視出来なくなって片側に接続が偏ってしまう現象が何度か起きました。 これを解決するために、ひとつのQ4Mに接続す
Imager::Graph のサンプル - 日向夏特殊応援部隊
今、ちょうど簡単なお仕事でグラフ出さないといけないので、適当に書いてみた。GD::Graph の出力はどう見ても切ない貧弱な表示なので今回は触れない。 #!/usr/bin/perl use utf8; use strict; use warnings; use Carp; use Imager; use Imager::Graph::Pie; my $chart = Imager::Graph::Pie->new; my $font = Imager::Font->new( file => '/path/to/example.ttf', aa => 1 ); $chart->set_style('primary'); $chart->set_font($font); my $img = $chart->draw( width => 500, height => 500, font =>
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 も立ち上がっていま
Test::Mock::LWP を試す - 日向夏特殊応援部隊
久しぶりのエントリです。一応元気にやってますよっと。 ここまでのあらすじ 同僚の id:typomaster さんから、Test::Mock::LWP を使ってテスト書きたいんだけど〜と言われたので早速軽く試してみましたよ。 Test::Mock::LWP とは 具体的には、 LWP::UserAgent HTTP::Request HTTP::Response モジュールに対して Test::MockObject 化した物だと考えて良い。それぞれ、 Test::Mock::LWP::UserAgent Test::Mock::HTTP::Request Test::Mock::HTTP::Response モジュールが対応しています。それぞれソースは短いので実際に見てみましょう。 Test::Mock::HTTP::Request package Test::Mock::HTTP::Re
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
Moose::Cookbook::Recipe10 - role, requires, with - - 日向夏特殊応援部隊
Perl OOP に interface, abstract の概念を持ち込む role, requires, with の話です。 Moose::Cookbook::Recipe10 - The Moose::Role example - metacpan.org ソースコード ちょっと変えてあります。 package Equivalent; use Moose::Role; requires 'equal_to'; sub not_equal_to { my ($self, $other) = @_; not $self->equial_to($other); } package Comparable; use Moose::Role; with 'Equivalent'; requires 'compare'; sub equal_to { my ($self, $other) =
Moose::Cookbook::Recipe9 - builder - - 日向夏特殊応援部隊
拡張可能な default と同等の機能である builder です。 Moose::Cookbook::Recipe9 - Builder methods and lazy_build - metacpan.org ソースコード package BinaryTree; use Moose; has 'node' => ( is => 'rw', isa => 'Any' ); has 'parent' => ( is => 'rw', isa => 'BinaryTree', predicate => 'has_parent', weak_ref => 1, ); has 'left' => ( is => 'rw', isa => 'BinaryTree', predicate => 'has_left', lazy => 1, builder => '_build_child_tre
Moose::Cookbook::Recipe7 - make_immutable - - 日向夏特殊応援部隊
Moose::Cookbook::Recipe7 - Making Moose fast with immutable - metacpan.org 今度は make_immutable について。 ソース package PointImmutable; use Moose; has 'x' => (isa => 'Int', is => 'ro'); has 'y' => (isa => 'Int', is => 'rw'); __PACKAGE__->meta->make_immutable; package PointNoImmutable; use Moose; has 'x' => (isa => 'Int', is => 'ro'); has 'y' => (isa => 'Int', is => 'rw'); package PointCAF; use base qw(Cla
Moose::Cookbook::Recipe6 - augment, inner - - 日向夏特殊応援部隊
Moose::Cookbook::Recipe6 - The augment/inner example - metacpan.org 次はネストする呼び出しである augment, inner についてです。 ソースコード package Document::Page; use Moose; use Perl6::Say; has 'body' => ( is => 'rw', isa => 'Str', default => sub { '' } ); sub create { my $self = shift; $self->open_page; inner(); $self->close_page; } sub append_body { my ($self, $appendage) = @_; $self->body($self->body . $appendage); } su
Moose::Cookbook::Recipe5 - coerce - - 日向夏特殊応援部隊
次は Recipe5 也。 ソース package HTML::Location; use URI; sub __as_URI { my $self = shift; return URI->new( $self->uri ); } package Request; use Moose; use Moose::Util::TypeConstraints; use HTTP::Headers (); use Params::Coerce (); use URI (); subtype 'Header' => as 'Object' => where { $_->isa('HTTP::Headers') }; coerce 'Header' => from 'ArrayRef' => via { HTTP::Headers->new( @{$_} ) } => from 'HashRef' =
Moose::Cookbook::Recipe4 - subtype - - 日向夏特殊応援部隊
Moose::Cookbook::Recipe4 - Subtypes, and modeling a simple Company class hierarchy - metacpan.org ソースコード 少しテストを加えてます。 package Address; use Moose; use Moose::Util::TypeConstraints; use Locale::US; use Regexp::Common qw(zip); my $STATES = Locale::US->new; subtype 'USState' => as 'Str' => where { (exists $STATES->{code2state}{uc($_)} || exists $STATES->{state2code}{uc($_)}) }; subtype 'USZipCode' =>
Moose::Cookbook::Recipe3 - predicate, weak_ref, lazy - - 日向夏特殊応援部隊
さらに Recipe3 です。 ソース package BinaryTree; use Moose; has 'node' => (is => 'rw', isa => 'Any'); has 'parent' => ( is => 'rw', isa => 'BinaryTree', predicate => 'has_parent', weak_ref => 1, ); has 'left' => ( is => 'rw', isa => 'BinaryTree', predicate => 'has_left', lazy => 1, default => sub { BinaryTree->new(parent => $_[0]) }, ); has 'right' => ( is => 'rw', isa => 'BinaryTree', predicate => 'has_ri
Moose::Cookbook::Recipe1 - has, before, after, extends - - 日向夏特殊応援部隊
もの凄い乗り遅れた感ですが僕も Moooooooooooooooooose してみる。 とりあえず Cookbook をやってみる事にしてみました。 Moose::Cookbook::Recipe1 - The (always classic) Point example. - metacpan.org ソース まぁ適当にテストとか追加してある。 package Point; use Moose; has 'x' => ( isa => 'Int', is => 'ro' ); has 'y' => ( isa => 'Int', is => 'rw' ); sub clear { my $self = shift; $self->{x} = 0; $self->y(0); } package Point3D; use Moose; extends 'Point'; has 'z' =>
Moose::Cookbook::Recipe2 - class based constraint, modifier with arguments - - 日向夏特殊応援部隊
続いて Recipe2 をやっちゃうぞー。 http://search.cpan.org/dist/Moose/lib/Moose/Cookbook/Recipe2.pod ソース 預貯金に関する英単語が良く分からなかったので調べてコメント振った。 package BankAccount; use Moose; # 預金残高 has 'balance' => (isa => 'Int', is => 'rw', default => 0); # 預金する sub deposit { my ($self, $amount) = @_; $self->balance($self->balance + $amount); } # 引き落とし sub withdraw { my ($self, $amount) = @_; my $current_balance = $self->balance(
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
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', $_
DBIx::Class::Componentised Source Code Reading - 日向夏特殊応援部隊
d:id:ZIGOROu:20080317:1205779889 の続きです。 DBIx::Class::Componentisedとは 恐らくDBIC関連のdistにおける基底クラスだと考えて良いと思います。 DBIx::Classはこのクラスを継承していて、DBIx::Class::Componentisedは前回説明した、Class::C3::Componentisedを継承しています。 inject_base() Class::C3::Componentisedでは、 特定のクラスに対して複数のコンポーネントをinjectする。 一回reverseしてからその特定のクラスがコンポーネントを継承していないならば、継承順位で先頭にどんどん突っ込んで行く。 と言う処理でした。 このinject_baseはload_*_components()で呼び出されるメソッドです。 DBIx::Cl
Template-Toolkitでマルチバイトな話 - 日向夏特殊応援部隊
先に言っておくと、hide-kさんのまとめが分かりやすいです。 http://blog.hide-k.net/archives/2007/03/catalyst_2.php 最もCatalystを使う際にと言う事ですが。 utf8フラグを立てないでTTを使う場合 ソース自身はutf8で書くんですけど、 #!/usr/bin/perl use strict; use warnings; use Carp::Clan; use Path::Class; use Template; my $base_dir = dir($ENV{HOME}, qw/tmp tt_test/); my $template = Template->new({ COMPILE_DIR => $base_dir->subdir('tt.cache')->stringify, COMPILE_EXT => 'c', })
mmm-mode and nxml-mode - 日向夏特殊応援部隊
一応、font-lock以外は組み合わせて使えたのでメモ。 mmm-modeのインストール まずはmmm-modeをダウンロードして、展開します。 $ cd /tmp $ wget http://jaist.dl.sourceforge.net/sourceforge/mmm-mode/mmm-mode-0.4.8.tar.gz $ tar xfz mmm-mode-0.4.8.tar.gz $ cd mmm-mode-0.4.8例えばWindowsでMeadowを使ってる人は環境変数EMACSが適切に指定されてないとダメなのと、恐らくC:\meadowとかにインストールされてるので、次のようにビルドします。 $ env EMACS=/cygdrive/c/meadow/bin/Meadow.exe LANG=en_EN ./configure --with-lispdir=/cygdri
リリース、障害情報などのサービスのお知らせ
最新の人気エントリーの配信
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く
Moose::Cookbook のお勉強 - 目次 - 日向夏特殊応援部隊
