失効してるのに気がついたので http://mojuice.lazy-people.org/ に変更しました。 ユーザの方々にはご迷惑をおかけしました。

package My::Sweet::Home; use warnings; use strict; use Cwd (); our $APP_NAME = 'HOGE'; our $Home = undef; sub location { my $self = shift; my @homes = ( sub {$My::Sweet::Home::Home}, sub { $ENV{ $APP_NAME . '_HOME' } }, sub { Cwd::getcwd }…