Proclet::Declare に KYTProf をくみあわせると、さらにべんり。

Proclet::Declare は、たんにライブラリなので、普通にオプションをくみあわせて処理することが可能ですね。

やったー。

use strict;
use warnings;
use Proclet::Declare;
use Getopt::Long;

GetOptions(
    'kytprof' => \my $kytprof,
);

push @opts, '-MDevel::KYTProf' if $kytprof;

my $opts = join(' ', @opts);

env(
  SLEDGE_CONFIG_NAME => 'development',
  LM_COLOR => 1,
);

service('web', 'plackup $opts -p 5963 app.psgi');
service('memcached', '/usr/local/bin/memcached -p 11211');

run;

こういうのをシンプルにできるのは便利でございますね。

Published: 2012-09-07(Fri) 07:16