Proclet::Declare について考えた - tokuhirom's blogforeman で Procfile でがんばろうとおもったのだけど、なんか妙に終了がおそいのが気にくわないのと、なんか外部 DSL 疲れ的な心境にいたり、最近 Proclet に foreman 的なことができる機能がはいったということもあって、Proclet で DSL でやっつけることにした。 以下のようなコードをかいて package Proclet::Declare; use strict; use warnings; use Proclet; use parent qw/Exporter/; our @EXPORT = qw/env service run/; our %REGISTRY; sub _proclet() { return $REGISTRY{caller(1)} ||= Proclet->new(color => 1); } sub env { my %env
