今週末の予定

希望

use fbis;
use Beer::PremiumMalts;

my $fbis = fbis->new;

$fbis->drink(Beer::PremiumMalts->new( type => 'big' ))
    while $fbis->stomach;

$fbis->say->say->say->say;

$fbis->sleep(60 * 60 * 12);

現実

use fbis;
use Work::Mobile::WebApp;

my $fbis = fbis->new;
my $work = Work::Mobile::WebApp->new( job_type => 'infinity' );

while ( my $job = $work->next_job ) {
    $fbis->work($job);
    last unless $fbis->life--;
}

$fbis->silent;

$fbis->sleep(60 * 60 * 4);