package Log::Minimal::FlyingChair; use strict; use warnings; use utf8; use open IO => ':encoding(utf-8)', ':std'; use Log::Minimal; use Time::HiRes qw(sleep); our $VERSION = '0.01_01'; our $Interval = 5; our $Chair = "ε=コ_"; my $pid; my $print_orig = $Log::Minimal::PRINT; $Log::Minimal::PRINT = sub { $print_orig->(@_); kill "TERM", $pid if $pid; $pid = fork || do { $|++; while (1) { sleep $Interva
![一定時間ログを吐かないとイスが飛ぶ Log::Minimal::FlyingChair というモジュールを作りました - (ひ)メモ](https://cdn-ak-scissors.b.st-hatena.com/image/square/15fd07e34a77fda7f0285f3d4abaee755c8c3913/height=288;version=1;width=512/https%3A%2F%2Fcdn-ak.f.st-hatena.com%2Fimages%2Ffotolife%2Fh%2Fhirose31%2F20110610%2F20110610205318.png)