# NAME Acme::Honkidasu - 本気出すコピペ # SYNOPSIS use 5.010; binmode STDOUT, 'utf8'; use Acme::Honkidasu; my $time = localtime; say $time->honkidasu; say $time->strftime('%F %('); # DESCRIPTION Acme::Honkidasu is 本気出す。 # METHODS ## honkidasu use Acme::Honkidasu; my $time = localtime; say $time->honkidasu; say $time->honkidasu(1); # positive 本気出す。 # EXTEND strftime use Acme::Honkidasu; my $time = localtime; say $time->strftime('%F %('); say $time->strftime('%F %)'); # positive add conversion specifier character '%(' to 本気出す。 # EXAMPLES 本気出す per hour. (default: per month) #!/usr/bin/env perl use strict; use warnings; use 5.010; use utf8; binmode STDOUT, ":utf8"; use Acme::Honkidasu; $Acme::Honkidasu::DETERMINE = sub { my $time = shift; my $list = shift; my $idx = $time->hour % scalar(@$list); chomp( my $msg = $list->[$idx] ); return $msg; }; $Acme::Honkidasu::LIST_HONKIDASU = []; say localtime->honkidasu; say localtime->strftime('%('); __DATA__ 新しい1日。さあはじまる。今日から本気出す。 まだまだ時間はたっぷりある。焦りは禁物。2時から本気出す。 YouTube眺めてたら時間のスピードおかしくなる。あぶなかった。3時から本気出す。。 頭の中にやる気がどんどん湧いてくる。でもまだ早い。はやる気持ちを抑えて、4時から本気出す。 この時間に起きてる自分が心配だ。体調管理も必要。ひと呼吸おいて、5時から本気出す。 きっとみんなはまだ寝てる。慌ててはいけない。6時から本気出す。 眠たいのではない。動き出すのが面倒くさい。あきらめも大切。7時から本気出す。 夜7時頃の10分間を今くつろぐ時間にもってきてほしい。しかたないから8時から本気出す。 ぼーっとしてるんじゃない。今日のことを考えてる。頭を整理して9時から本気出す。 朝から飛ばし過ぎはよくない。大丈夫、ちゃんと計算してる。10時から本気出す。 みんな朝から元気だ。でも乱されない。自分のペースを守る。11時から本気出す。 おなか減った。昼に何食べるか考えてたら集中できない。12時から本気出す。 昼だ。飯食って気分を切り替えて、13時から本気出す。 飯食っておなかいっぱい。これでは頭がまわらない。14時から本気出す おなかいっぱいを通り過ぎて眠たい。15時から本気出す。 本番は今からだぞ?ここまではウォーミングアップ。16時から本気出す。 1日の疲れがピークに達してきた。ここで無理しても意味が無い。17時から本気だす。 本当の勝負は陽が暮れてから。だから慌てない。自分を信じて、18時から本気出す。 みんな家に帰ってる。なんだろう、この気持ち。心を無にして19時から本気出す。 今日一日の疲れがあちこちにきてる。ちょっと横になって20時から本気出す。 ラストスパートに向けて力を溜める。21時から本気出す。 追い詰められないと本気になれないから、22時から本気出す。 終わり良ければ全て良し。23時から本気出す。 一日終わり。今日はチャンスがなかった。明日から本気出す。 # AUTHOR hayajo # LICENSE This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself.