Acme-Honkidasu

 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;

README.md  view on Meta::CPAN

    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分間を今くつろぐ時間にもってきてほしい。しかたないから８時から本気出す。

lib/Acme/Honkidasu.pm  view on Meta::CPAN

=head1 NAME

Acme::Honkidasu - 本気出すコピペ

=head1 SYNOPSIS

  use 5.010;
  binmode STDOUT, 'utf8';
  use Acme::Honkidasu;
  my $time = localtime;
  say $time->honkidasu;
  say $time->strftime('%F %(');

=head1 DESCRIPTION

Acme::Honkidasu is 本気出す。

=head1 METHODS

=head2 honkidasu

  use Acme::Honkidasu;
  my $time = localtime;
  say $time->honkidasu;
  say $time->honkidasu(1); # positive

本気出す。

=head1 EXTEND strftime

  use Acme::Honkidasu;
  my $time = localtime;
  say $time->strftime('%F %(');
  say $time->strftime('%F %)'); # positive

add conversion specifier character '%(' to 本気出す。

=head1 EXAMPLES

本気出す per hour. (default: per month)

  #!/usr/bin/env perl
  use strict;
  use warnings;

lib/Acme/Honkidasu.pm  view on Meta::CPAN

  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分間を今くつろぐ時間にもってきてほしい。しかたないから８時から本気出す。