新しいblogに移行しました

新ブログ "All Yout Bugs Are Belong To Ass" に移行しました!

2010-06-30

[Perl/テスト]Cache-Memcached-Fast-0.19/0.18

環境

Perl5.8.8でテスト通りませんでした。念のため、環境。
# perl -V
Summary of my perl5 (revision 5 version 8 subversion 8) configuration:
  Platform:
    osname=linux, osvers=2.6.18-53.el5, archname=x86_64-linux-thread-multi
    uname='linux builder10.centos.org 2.6.18-53.el5 #1 smp mon nov 12 02:14:55 est 2007 x86_64 x86_64 x86_64 gnulinux '
    config_args='-des -Doptimize=-O2 -g -pipe -Wall -Wp,-D_FORTIFY_SOURCE=2 -fexceptions -fstack-protector --param=ssp-buffer-size=4 -m64 -mtune=generic -Dversion=5.8.8 -Dmyhostname=localhost -Dperladmin=root@localhost -Dcc=gcc -Dcf_by=Red Hat, Inc. -Dinstallprefix=/usr -Dprefix=/usr -Dlibpth=/usr/local/lib64 /lib64 /usr/lib64 -Dprivlib=/usr/lib/perl5/5.8.8 -Dsitelib=/usr/lib/perl5/site_perl/5.8.8 -Dvendorlib=/usr/lib/perl5/vendor_perl/5.8.8 -Darchlib=/usr/lib64/perl5/5.8.8/x86_64-linux-thread-multi -Dsitearch=/usr/lib64/perl5/site_perl/5.8.8/x86_64-linux-thread-multi -Dvendorarch=/usr/lib64/perl5/vendor_perl/5.8.8/x86_64-linux-thread-multi -Darchname=x86_64-linux -Dvendorprefix=/usr -Dsiteprefix=/usr -Duseshrplib -Dusethreads -Duseithreads -Duselargefiles -Dd_dosuid -Dd_semctl_semun -Di_db -Ui_ndbm -Di_gdbm -Di_shadow -Di_syslog -Dman3ext=3pm -Duseperlio -Dinstallusrbinperl=n -Ubincompat5005 -Uversiononly -Dpager=/usr/bin/less -isr -Dd_gethostent_r_proto -Ud_endhostent_r_proto -Ud_sethostent_r_proto -Ud_endprotoent_r_proto -Ud_setprotoent_r_proto -Ud_endservent_r_proto -Ud_setservent_r_proto -Dinc_version_list=5.8.7 5.8.6 5.8.5 -Dscriptdir=/usr/bin'
    hint=recommended, useposix=true, d_sigaction=define
    usethreads=define use5005threads=undef useithreads=define usemultiplicity=define
    useperlio=define d_sfio=undef uselargefiles=define usesocks=undef
    use64bitint=define use64bitall=define uselongdouble=undef
    usemymalloc=n, bincompat5005=undef
  Compiler:
    cc='gcc', ccflags ='-D_REENTRANT -D_GNU_SOURCE -fno-strict-aliasing -pipe -Wdeclaration-after-statement -I/usr/local/include -D_LARGEFILE_SOURCE -D_FILE_OFFSET_BITS=64 -I/usr/include/gdbm',
    optimize='-O2 -g -pipe -Wall -Wp,-D_FORTIFY_SOURCE=2 -fexceptions -fstack-protector --param=ssp-buffer-size=4 -m64 -mtune=generic',
    cppflags='-D_REENTRANT -D_GNU_SOURCE -fno-strict-aliasing -pipe -Wdeclaration-after-statement -I/usr/local/include -I/usr/include/gdbm'
    ccversion='', gccversion='4.1.2 20071124 (Red Hat 4.1.2-42)', gccosandvers=''
    intsize=4, longsize=8, ptrsize=8, doublesize=8, byteorder=12345678
    d_longlong=define, longlongsize=8, d_longdbl=define, longdblsize=16
    ivtype='long', ivsize=8, nvtype='double', nvsize=8, Off_t='off_t', lseeksize=8
    alignbytes=8, prototype=define
  Linker and Libraries:
    ld='gcc', ldflags =''
    libpth=/usr/local/lib64 /lib64 /usr/lib64
    libs=-lresolv -lnsl -lgdbm -ldb -ldl -lm -lcrypt -lutil -lpthread -lc
    perllibs=-lresolv -lnsl -ldl -lm -lcrypt -lutil -lpthread -lc
    libc=, so=so, useshrplib=true, libperl=libperl.so
    gnulibc_version='2.5'
  Dynamic Linking:
    dlsrc=dl_dlopen.xs, dlext=so, d_dlsymun=undef, ccdlflags='-Wl,-E -Wl,-rpath,/usr/lib64/perl5/5.8.8/x86_64-linux-thread-multi/CORE'
    cccdlflags='-fPIC', lddlflags='-shared -O2 -g -pipe -Wall -Wp,-D_FORTIFY_SOURCE=2 -fexceptions -fstack-protector --param=ssp-buffer-size=4 -m64 -mtune=generic'
手っ取り早く言うならば、Cent5.3の標準Perlですね。

0.19をテスト

まずは、現時点で最新バージョンである0.19から。
# cpanm Cache::Memcached::Fast
Fetching http://search.cpan.org/CPAN/authors/id/K/KR/KROKI/Cache-Memcached-Fast-0.19.tar.gz ... OK
Configuring Cache-Memcached-Fast-0.19 ... OK
Building and testing Cache-Memcached-Fast-0.19 for Cache::Memcached::Fast ... FAIL
! Installing Cache::Memcached::Fast failed. See /root/.cpanm/build.log for details.
build.logを見てみます。
# Testing Cache::Memcached::Fast 0.19, Perl 5.008008, /usr/bin/perl
t/00-load.t ....... ok
# Connected to 2 memcached servers, lowest version 1.4.5
t/01-connect.t .... ok
t/02-isa.t ........ ok
t/big_value.t ..... ok
t/commands.t ...... ok
t/key_ref.t ....... ok

#   Failed test at t/magic.t line 52.

#   Failed test at t/magic.t line 53.
# Looks like you failed 2 tests of 9.
t/magic.t ......... 
Dubious, test returned 2 (wstat 512, 0x200)
Failed 2/9 subtests 
 (less 3 skipped subtests: 4 okay)
t/namespace.t ..... ok
t/noreply.t ....... ok
t/nowait.t ........ ok
t/pod-coverage.t .. skipped: Test::Pod::Coverage 1.08 required for testing POD coverage
t/pod.t ........... ok
t/serialize.t ..... ok
t/threads.t ....... ok
t/utf8.t .......... ok

Test Summary Report
-------------------
t/magic.t       (Wstat: 512 Tests: 9 Failed: 2)
  Failed tests:  5-6
  Non-zero exit status: 2
Files=15, Tests=133,  7 wallclock secs ( 0.30 usr  0.06 sys +  5.13 cusr  0.77 csys =  6.26 CPU)
Result: FAIL
Failed 1/15 test programs. 2/133 subtests failed.
t/magic.tがこけてます。

0.18ならどうだ

こちらも試します。
# cpanm K/KR/KROKI/Cache-Memcached-Fast-0.18.tar.gz
Fetching http://search.cpan.org/CPAN/authors/id/K/KR/KROKI/Cache-Memcached-Fast-0.18.tar.gz ... OK
Configuring Cache-Memcached-Fast-0.18 ... OK
Building and testing Cache-Memcached-Fast-0.18 for K/KR/KROKI/Cache-Memcached-Fast-0.18.tar.gz ... FAIL
! Installing K/KR/KROKI/Cache-Memcached-Fast-0.18.tar.gz failed. See /root/.cpanm/build.log for details.
やはりダメ。build.logの中身はこんな感じ。
# Testing Cache::Memcached::Fast 0.18, Perl 5.008008, /usr/bin/perl
t/00-load.t ....... ok
# Connected to 2 memcached servers, lowest version 1.4.5
t/01-connect.t .... ok
t/02-isa.t ........ ok
t/big_value.t ..... ok
t/commands.t ...... ok
t/key_ref.t ....... ok

#   Failed test at t/magic.t line 52.

#   Failed test at t/magic.t line 53.
# Looks like you failed 2 tests of 9.
t/magic.t ......... 
Dubious, test returned 2 (wstat 512, 0x200)
Failed 2/9 subtests 
 (less 3 skipped subtests: 4 okay)
t/namespace.t ..... ok
t/noreply.t ....... ok
t/nowait.t ........ ok
t/pod-coverage.t .. skipped: Test::Pod::Coverage 1.08 required for testing POD coverage
t/pod.t ........... ok
t/serialize.t ..... ok
t/threads.t ....... ok
t/utf8.t .......... ok

Test Summary Report
-------------------
t/magic.t       (Wstat: 512 Tests: 9 Failed: 2)
  Failed tests:  5-6
  Non-zero exit status: 2
Files=15, Tests=133,  6 wallclock secs ( 0.30 usr  0.05 sys +  5.16 cusr  0.76 csys =  6.27 CPU)
Result: FAIL
Failed 1/15 test programs. 2/133 subtests failed.
make: *** [test_dynamic] エラー 255
-> FAIL Installing K/KR/KROKI/Cache-Memcached-Fast-0.18.tar.gz failed. See /root/.cpanm/build.log for details.
一部違わず同じ箇所でこけてますねえ。

0.17なら無事入りました

0.17も試して見たところ、こちらは無事にインストール出来ました。

問題のmagic.tとは?

しかし、magic.tのテスト内容が気になる所。とりあえず問題の箇所をクローズアップしてみます。
package MyScalar;
use base 'Tie::StdScalar';

sub FETCH {
    "Другой.ключ"
}

package main;

tie my $scalar2, 'MyScalar';

ok($memd->set($scalar2, $scalar2));
ok(exists $memd->get_multi($scalar2)->{$scalar2});

SKIP: {
    eval { require Readonly };
    skip "Skipping Readonly tests because the module is not present", 3
      if $@;

    # 'require Readonly' as above can be used to test if the module is
どうやら、tie関連のテストのようです。
0.18以降でこのテストが追加されているのを見ると、おそらくChangesにも何かしら記載があるはずです。
では、Changesを見てみます。
0.18  2010-04-06
        - make module thread-safe, and fix several bugs.  No need to
        upgrade unless you experienced limitations mentioned below.

        Changes since 0.17:

        Fix RT#56142: handle Perl magic.  Tied scalars, arrays and
        hashes are supported now, as well as Readonly variables and
        other magic stuff.

        Fix t/command.t failure on some Solaris distributions.

        Make module thread-safe with Perl >= 5.7.2.
僕のグダグダ英語スキルによると、以下のように理解できます。
「Perl magicに対応。tieされたスカラや配列、ハッシュは、従来どおり、読み取り専用変数やその他のmagic同様にサポートされるようになった。」
どうやらこれは、RT上でチケットが発行されていた問題らしく、こちらでそのやりとりを確認できます。

今回の問題もRTで既にチケット発行済だった

そして今回の問題も、RT#57150としてチケットが発行されており、既にステータスが「着手」となっておりました。さすが。
おそらく、次期リリースのタイミングでこの問題は解消することでしょう。それまでは、特段差し支え無ければ0.17を使うなり、0.19をforceインストールしたりして凌ぐことになります。

2010-9-22 追記
現在進行形で現象が発生しています。
# cpanm Cache::Memcached::Fast
Fetching http://search.cpan.org/CPAN/authors/id/K/KR/KROKI/Cache-Memcached-Fast-0.19.tar.gz ... OK
Configuring Cache-Memcached-Fast-0.19 ... OK
Building and testing Cache-Memcached-Fast-0.19 for Cache::Memcached::Fast ... FAIL
! Installing Cache::Memcached::Fast failed. See /root/.cpanm/build.log for details.
# cpanm K/KR/KROKI/Cache-Memcached-Fast-0.18.tar.gz
Fetching http://search.cpan.org/CPAN/authors/id/K/KR/KROKI/Cache-Memcached-Fast-0.18.tar.gz ... OK
Configuring Cache-Memcached-Fast-0.18 ... OK
Building and testing Cache-Memcached-Fast-0.18 for K/KR/KROKI/Cache-Memcached-Fast-0.18.tar.gz ... FAIL
! Installing K/KR/KROKI/Cache-Memcached-Fast-0.18.tar.gz failed. See /root/.cpanm/build.log for details.
# cpanm K/KR/KROKI/Cache-Memcached-Fast-0.17.tar.gz
Fetching http://search.cpan.org/CPAN/authors/id/K/KR/KROKI/Cache-Memcached-Fast-0.17.tar.gz ... OK
Configuring Cache-Memcached-Fast-0.17 ... OK
Building and testing Cache-Memcached-Fast-0.17 for K/KR/KROKI/Cache-Memcached-Fast-0.17.tar.gz ... OK
Successfully installed Cache-Memcached-Fast-0.17

2010-06-28

[Perl]Catalystアプリ配下のロジックを叩きたい

逃げ口上


この記事は、所謂「モダンperl」とは全くもって相反するものと思われます。しかしながら、ユースケースとして記録しておくこと自体に意義の有ることと判断し、ここに掲載する次第です。
この手法を使わざるを得ない時は、設計がぐちゃぐちゃな状態であるか、単に「モダンな」設計ではないものと思われます。今一度、よく設計を見直すことを考慮すべきでしょう。


…この記事があるということは、現に僕自身がぐちゃぐちゃな設計で作ったcatalystアプリケーションを世に出してしまい、そのためにこんな妙な解決策 - バッドノウハウ - を使う必要に迫られたのだということです。これについては、過去の自分を叱咤するとともに、現在の自分の糧とすべしと肝に命じております。
無論、この方法自体はバッドノウハウとはいえ、より研ぎ澄ませば、まさに「モダンな」ノウハウとなり得るものかもしれませんが、僕自身にはそのようなユースケースは思いつきませんでした。

バッドノウハウ?上等!

さて、逃げ口上はこの辺にしときます。色々とキリがないので^^;

このノウハウ自体は、えらくあっさりとしたものです。
例えば、バッチスクリプト./script/batch.plで、アプリケーションMyApp配下のパス/ugly/batch_targetを、引数付きで定期的に叩きたい場合。
./script/batch.plは以下のようになります。
use warnings;
use strict;
use MyApp;
use Catalyst::Stats;
my $app = MyApp->new( stats => Catayst::Stats->new );
my $res = $app->forward( '/ugly/batch_target', [ time() ] );
print $res;

これだけです。あとはこのスクリプトをcronに食わせるなりするだけで、定期的に/ugly/batch_targetをぶっ叩いてくれます。
ちなみに、今回は引数をtime()としました。あくまでサンプルなので。
ポイントは、Catalyst::StatsオブジェクトをMyApp->statsに食わせる所です。

なぜ僕はこの方法を「モダン」じゃないと主張するのか

さっきから勿体ぶった書き方をしてきましたが、そもそもこの方法が「モダン」ではないと僕が主張するのは、

ロジックとコントローラの分離が為されていない故のノウハウである

という、香箱を組む猫すら青ざめる(?)、えらく間接的な理由からです。
コントローラ配下のロジックを叩くということはつまり、「コントローラ」配下に「ロジック」が実装されていることに他ならない。これはこのあたりのスライドにもあるように、コントローラをぐちゃぐちゃにする最短ルートといえます。

2010-06-16

[Perl]Module::Install::Bundle::LocalLibを試すだけよ

Module::Install::Bundle::LocalLibを試しました。ただそれだけ。
ここからどう派生させるのかがいまいち不明。

~/script/perl/Bundle-Oreore:$ cat Makefile.PL 
use inc::Module::Install;
name 'Bundle-Oreore';
all_from 'lib/Bundle/Oreore.pm';
test_requires 'Test::More' => 0.32;
requires 'Email::Sender';

bundle_local_lib;

WriteAll;

~/script/perl/Bundle-Oreore:$ perl Makefile.PL 
include /home/yt/script/perl/Bundle-Oreore/inc/Module/Install.pm
include inc/Module/Install/Metadata.pm
include inc/Module/Install/Base.pm
include inc/Module/Install/Makefile.pm
Cannot determine perl version info from lib/Bundle/Oreore.pm
Cannot determine license info from lib/Bundle/Oreore.pm
include inc/Module/Install/Bundle/LocalLib.pm
include inc/Module/Install/WriteAll.pm
include inc/Module/Install/Win32.pm
include inc/Module/Install/Can.pm
include inc/Module/Install/Fetch.pm
Warning: prerequisite Email::Sender 0 not found.
Writing Makefile for Bundle::Oreore
Writing META.yml
No license specified, setting license = 'unknown'

~/script/perl/Bundle-Oreore:$ make bundle_local_lib
Attempting to create directory /home/yt/script/perl/Bundle-Oreore/extlib
Attempting to create file /home/yt/script/perl/Bundle-Oreore/extlib/.modulebuildrc
Fetching http://search.cpan.org/CPAN/authors/id/R/RJ/RJBS/Email-Sender-0.100460.tar.gz ... OK
Configuring Email-Sender-0.100460 ... OK
Building Email-Sender-0.100460 for Email::Sender ... OK
Successfully installed Email-Sender-0.100460
Fetching http://search.cpan.org/CPAN/authors/id/M/MS/MSCHWERN/ExtUtils-MakeMaker-6.56.tar.gz ... OK
Configuring ExtUtils-MakeMaker-6.56 ... OK
Building ExtUtils-MakeMaker-6.56 for ExtUtils::MakeMaker ... OK
Successfully installed ExtUtils-MakeMaker-6.56 (upgraded from 6.52)
Fetching http://search.cpan.org/CPAN/authors/id/M/MS/MSCHWERN/Test-Simple-0.94.tar.gz ... OK
Test::More is up to date. (0.94)

~/script/perl/Bundle-Oreore:$ find extlib/lib/perl5/
extlib/lib/perl5/
extlib/lib/perl5/ExtUtils
extlib/lib/perl5/ExtUtils/MakeMaker.pm
extlib/lib/perl5/ExtUtils/Command
extlib/lib/perl5/ExtUtils/Command/MM.pm
extlib/lib/perl5/ExtUtils/MM_UWIN.pm
extlib/lib/perl5/ExtUtils/testlib.pm
extlib/lib/perl5/ExtUtils/MM_Cygwin.pm
extlib/lib/perl5/ExtUtils/MakeMaker
extlib/lib/perl5/ExtUtils/MakeMaker/FAQ.pod
extlib/lib/perl5/ExtUtils/MakeMaker/Tutorial.pod
extlib/lib/perl5/ExtUtils/MakeMaker/Config.pm
extlib/lib/perl5/ExtUtils/MM_OS2.pm
extlib/lib/perl5/ExtUtils/MM_MacOS.pm
extlib/lib/perl5/ExtUtils/Liblist
extlib/lib/perl5/ExtUtils/Liblist/Kid.pm
extlib/lib/perl5/ExtUtils/Liblist.pm
extlib/lib/perl5/ExtUtils/MM_NW5.pm
extlib/lib/perl5/ExtUtils/MM_Win32.pm
extlib/lib/perl5/ExtUtils/MM_VOS.pm
extlib/lib/perl5/ExtUtils/MM_Unix.pm
extlib/lib/perl5/ExtUtils/MM_QNX.pm
extlib/lib/perl5/ExtUtils/MM_VMS.pm
extlib/lib/perl5/ExtUtils/Mkbootstrap.pm
extlib/lib/perl5/ExtUtils/MM_AIX.pm
extlib/lib/perl5/ExtUtils/MM_Darwin.pm
extlib/lib/perl5/ExtUtils/MM_BeOS.pm
extlib/lib/perl5/ExtUtils/MM.pm
extlib/lib/perl5/ExtUtils/Mksymlists.pm
extlib/lib/perl5/ExtUtils/MM_Win95.pm
extlib/lib/perl5/ExtUtils/MY.pm
extlib/lib/perl5/ExtUtils/MM_DOS.pm
extlib/lib/perl5/ExtUtils/MM_Any.pm
extlib/lib/perl5/i486-linux-gnu-thread-multi
extlib/lib/perl5/i486-linux-gnu-thread-multi/auto
extlib/lib/perl5/i486-linux-gnu-thread-multi/auto/ExtUtils
extlib/lib/perl5/i486-linux-gnu-thread-multi/auto/ExtUtils/MakeMaker
extlib/lib/perl5/i486-linux-gnu-thread-multi/auto/ExtUtils/MakeMaker/.packlist
extlib/lib/perl5/i486-linux-gnu-thread-multi/auto/Email
extlib/lib/perl5/i486-linux-gnu-thread-multi/auto/Email/Sender
extlib/lib/perl5/i486-linux-gnu-thread-multi/auto/Email/Sender/.packlist
extlib/lib/perl5/i486-linux-gnu-thread-multi/perllocal.pod
extlib/lib/perl5/Email
extlib/lib/perl5/Email/Sender.pm
extlib/lib/perl5/Email/Sender
extlib/lib/perl5/Email/Sender/Role
extlib/lib/perl5/Email/Sender/Role/HasMessage.pm
extlib/lib/perl5/Email/Sender/Role/CommonSending.pm
extlib/lib/perl5/Email/Sender/Failure.pm
extlib/lib/perl5/Email/Sender/Transport.pm
extlib/lib/perl5/Email/Sender/Failure
extlib/lib/perl5/Email/Sender/Failure/Multi.pm
extlib/lib/perl5/Email/Sender/Failure/Permanent.pm
extlib/lib/perl5/Email/Sender/Failure/Temporary.pm
extlib/lib/perl5/Email/Sender/Manual
extlib/lib/perl5/Email/Sender/Manual/QuickStart.pm
extlib/lib/perl5/Email/Sender/Success.pm
extlib/lib/perl5/Email/Sender/Manual.pm
extlib/lib/perl5/Email/Sender/Transport
extlib/lib/perl5/Email/Sender/Transport/DevNull.pm
extlib/lib/perl5/Email/Sender/Transport/Maildir.pm
extlib/lib/perl5/Email/Sender/Transport/SMTP.pm
extlib/lib/perl5/Email/Sender/Transport/Sendmail.pm
extlib/lib/perl5/Email/Sender/Transport/Failable.pm
extlib/lib/perl5/Email/Sender/Transport/Print.pm
extlib/lib/perl5/Email/Sender/Transport/Test.pm
extlib/lib/perl5/Email/Sender/Transport/Mbox.pm
extlib/lib/perl5/Email/Sender/Transport/Wrapper.pm
extlib/lib/perl5/Email/Sender/Transport/SMTP
extlib/lib/perl5/Email/Sender/Transport/SMTP/Persistent.pm
extlib/lib/perl5/Email/Sender/Success
extlib/lib/perl5/Email/Sender/Success/Partial.pm
extlib/lib/perl5/Email/Sender/Simple.pm
extlib/lib/perl5/Email/Sender/Util.pm

2010-06-14

[Perl]最速セットアップ案内 Catalyst on Starman

さすがにタイトルの「最速」は言い過ぎ感たっぷりなんですが、僕でもそのくらい安直にセットアップができたという事です。
ちなみに僕はPlack/PSGIをまともに触ったことがありません。「バカでもわかるPlack/PSGI - JPerl Advent Calendar 2009」を読んで、
「へえ、そういうものがあるんだねえ(棒読み)」
などと曰う程度にしか知らないという状態です。
まあでも今のところ、オレオレWAFをこさえるつもりなど毛頭ありません。
よって、この辺は概念だけ知ってれば良いかな、と高を括っている訳です。

前提条件

これ以降は以下のソフトウェアがインストール済みである前提で書いていきます。

また、既にCatalyst 5.8.xに対応したCatalystアプリが用意できているものとします。
もしなければ、今すぐ作って下さい。NOW!!
# catalyst.pl YellowCat
以降、このCatalystアプリの事をYellowCatと呼びます。

モジュールのインストール

cpanmで以下のモジュールをインストールします。
# cpanm Module::Install::ReadmeMarkdownFromPod Plack Catalyst::Engine::PSGI Starman Server::Starter Net::Server::SS::PreFork
これらのインストールができればOKです。

2010/11/1 追記
Module::Install::ReadmeMarkdownFromPodも必要になった(か、元々必要だった?)様ですね。
一緒にインストールしないと、Starmanのインストール時にコケてしまいます。
Fetching http://search.cpan.org/CPAN/authors/id/M/MI/MIYAGAWA/Starman-0.2007.tar.gz ... OK
Configuring Starman-0.2007 ... OK
==> Found dependencies: HTTP::Parser::XS
Fetching http://search.cpan.org/CPAN/authors/id/K/KA/KAZUHO/HTTP-Parser-XS-0.10.tar.gz ... OK
Configuring HTTP-Parser-XS-0.10 ... N/A
! Configure failed for HTTP-Parser-XS-0.10. See /root/.cpanm/build.log for details.
! Bailing out the installation for Starman-0.2007. Retry with --prompt or --force.

起動ファイル「./script/yellowcat.psgi」を作る

いきなりpsgiという拡張子のファイルが出てきますが、これはPSGI用の起動ファイルというところでしょうか。
まあ今はあまり気にせず、「起動に必要なファイル」とだけ覚えておけば良いと思います。
# cd YellowCat
# ./script/yellowcat_create.pl PSGI
これで./script/yellowcat.psgiができました。

YellowCatをStarmanで起動する

Server::Starterに付属のスクリプトstart_serverを使ってstarmanを起動します。
起動には、「./script/yellowcat.psgi」が必要になります。
# start_server --port 4000 -- starman --workers 8 ./script/yellowcat.psgi

あとはブラウザで4000番ポートにアクセスすれば、YellowCatからのレスポンスを得ることができます。

2010-07-05 追記 うまく動かない時

こんなエラーが出てうまく起動出来ない場合があるようでして。
Error while loading ./script/myapp.psgi: Can't locate YellowCat.pm in @INC (@INC contains: /usr/lib64/perl5/site_perl/5.8.8/x86_64-linux-thread-multi /usr/lib/perl5/site_perl/5.8.8 /usr/lib/perl5/site_perl /usr/lib64/perl5/vendor_perl/5.8.8/x86_64-linux-thread-multi /usr/lib/perl5/vendor_perl/5.8.8 /usr/lib/perl5/vendor_perl /usr/lib64/perl5/5.8.8/x86_64-linux-thread-multi /usr/lib/perl5/5.8.8 .) at ./script/yellowcat.psgi line 4.
BEGIN failed--compilation aborted at ./script/yellowcat.psgi line 4.
要するに、目の前にあるYellowCat.pmが見つけられない、そんなド近眼系女子のような振る舞いをしているんですね。
そんな時は一手間かけて./script/yellowcat.psgiを編集し、YellowCat.pmの在り処を教えてあげましょう。
#!/usr/bin/env perl
use strict;
use warnings;
use lib ( "/path/to/YellowCat/lib" );
use YellowCat;

YellowCat->setup_engine('PSGI');
my $app = sub { YellowCat->run(@_) };
ちなみに、FindBinを使って以下の様に書こうとしたところ、FindBinに怒られました。
#!/usr/bin/env perl
use strict;
use warnings;
use FindBin;
use lib ( "$FindBin::Bin/../lib" );
use YellowCat;

YellowCat->setup_engine('PSGI');
my $app = sub { YellowCat->run(@_) };
たぶん、指定先パスが異なるためと思われますが、深くツッこんで調べていないので、今のところ原因は不明です。