view release on metacpan or  search on metacpan

README.md  view on Meta::CPAN

# 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 = [<DATA>];
    say localtime->honkidasu;
    say localtime->strftime('%(');

    __DATA__
    新しい１日。さあはじまる。今日から本気出す。
    まだまだ時間はたっぷりある。焦りは禁物。２時から本気出す。
    YouTube眺めてたら時間のスピードおかしくなる。あぶなかった。3時から本気出す。。
    頭の中にやる気がどんどん湧いてくる。でもまだ早い。はやる気持ちを抑えて、４時から本気出す。
    この時間に起きてる自分が心配だ。体調管理も必要。ひと呼吸おいて、5時から本気出す。
    きっとみんなはまだ寝てる。慌ててはいけない。６時から本気出す。
    眠たいのではない。動き出すのが面倒くさい。あきらめも大切。7時から本気出す。
    夜７時頃の10分間を今くつろぐ時間にもってきてほしい。しかたないから８時から本気出す。
    ぼーっとしてるんじゃない。今日のことを考えてる。頭を整理して９時から本気出す。
    朝から飛ばし過ぎはよくない。大丈夫、ちゃんと計算してる。10時から本気出す。
    みんな朝から元気だ。でも乱されない。自分のペースを守る。11時から本気出す。
    おなか減った。昼に何食べるか考えてたら集中できない。12時から本気出す。
    昼だ。飯食って気分を切り替えて、13時から本気出す。
    飯食っておなかいっぱい。これでは頭がまわらない。14時から本気出す
    おなかいっぱいを通り過ぎて眠たい。15時から本気出す。
    本番は今からだぞ？ここまではウォーミングアップ。16時から本気出す。
    1日の疲れがピークに達してきた。ここで無理しても意味が無い。17時から本気だす。
    本当の勝負は陽が暮れてから。だから慌てない。自分を信じて、18時から本気出す。
    みんな家に帰ってる。なんだろう、この気持ち。心を無にして19時から本気出す。
    今日一日の疲れがあちこちにきてる。ちょっと横になって20時から本気出す。
    ラストスパートに向けて力を溜める。21時から本気出す。
    追い詰められないと本気になれないから、22時から本気出す。
    終わり良ければ全て良し。23時から本気出す。
    一日終わり。今日はチャンスがなかった。明日から本気出す。

# AUTHOR

hayajo <hayajo@cpan.org>

# LICENSE

This library is free software; you can redistribute it and/or modify
it under the same terms as Perl itself.