Catalyst Controller の作成

技術関係

http://itpro.nikkeibp.co.jp/article/COLUMN/20080513/301453/?ST=develop&P=5
を見ると、サンプルに Data::Uniqid というのを使っているようなので、これもインストール。



PS D:\Perl\apps\Hello> perl -MCPAN -e 'install Data::Uniqid'

Set up gcc environment - 3.4.5 (mingw-vista special r3)

Going to read 'D:\Perl\cpan\Metadata'

  Database was generated on Sun, 27 Feb 2011 22:27:35 GMT

Running install for module 'Data::Uniqid'

Running make for M/MW/MWX/Data-Uniqid-0.12.tar.gz

Fetching with LWP:

http://ppm.activestate.com/CPAN/authors/id/M/MW/MWX/Data-Uniqid-0.12.tar.gz

Fetching with LWP:

http://ppm.activestate.com/CPAN/authors/id/M/MW/MWX/CHECKSUMS

Checksum for D:\Perl\cpan\sources\authors\id\M\MW\MWX\Data-Uniqid-0.12.tar.gz ok

Data-Uniqid-0.12/

Data-Uniqid-0.12/Uniqid.pm

Data-Uniqid-0.12/MANIFEST

Data-Uniqid-0.12/test.pl

Data-Uniqid-0.12/Changes

Data-Uniqid-0.12/README

Data-Uniqid-0.12/Makefile.PL
  CPAN.pm: Going to build M/MW/MWX/Data-Uniqid-0.12.tar.gz
Set up gcc environment - 3.4.5 (mingw-vista special r3)

Checking if your kit is complete...

Looks good

Writing Makefile for Data::Uniqid

cp Uniqid.pm blib\lib\Data\Uniqid.pm

AutoSplitting blib\lib\Data\Uniqid.pm (blib\lib\auto\Data\Uniqid)

  MWX/Data-Uniqid-0.12.tar.gz

  D:\Perl\site\bin\dmake.exe -- OK

Running make test

D:\Perl\bin\perl.exe "-Iblib\lib" "-Iblib\arch" test.pl

1..4

# Running under perl version 5.012003 for MSWin32

# Win32::BuildNumber 1204

# Current time local: Tue Mar  1 11:32:02 2011

# Current time GMT:   Tue Mar  1 02:32:02 2011

# Using Test.pm version 1.25_02

suniqid -> 3lwYNjT8ZS

uniqid  -> 1pvxpg79GB1ys

luniqid -> oZbweHm9tk9o7U5QcxO

ok 1

ok 2

ok 3

not ok 4

# Failed test 4 in test.pl at line 35

#  test.pl line 35 is: else {;ok(0);}

  MWX/Data-Uniqid-0.12.tar.gz

  D:\Perl\site\bin\dmake.exe test -- OK

Running make install

Prepending D:\Perl\cpan\build\Data-Uniqid-0.12-2zdlrB/blib/arch D:\Perl\cpan\build\Data-Uniqid-0.12-2zdlrB/blib/lib to PERL5LIB for 'install'

Installing D:\Perl\html\site\lib\Data\Uniqid.html

Installing D:\Perl\site\lib\auto\Data\Uniqid\autosplit.ix

Installing D:\Perl\site\lib\Data\Uniqid.pm

Appending installation info to D:\Perl\lib/perllocal.pod

  MWX/Data-Uniqid-0.12.tar.gz

  D:\Perl\site\bin\dmake.exe install  -- OK

割と凝ったIDを生成してくれるみたいです。