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

README.md  view on Meta::CPAN

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>];

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

use strict;
use warnings;

{
    package Acme::Honkidasu;
    use utf8;
    our $VERSION = '0.04';

    use Time::Piece ();

    our $LIST_HONKIDASU = [
        qw/
            初っ端から飛ばすと後でばてる。来月から本気を出す。
            まだまだ寒い。これではやる気が出ない。来月から本気出す。
            年度の終わりでタイミングが悪い。来月から本気を出す。
            季節の変わり目は体調を崩しやすい。来月から本気を出す。

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

=encoding utf-8

=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

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

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

=head1 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>];

t/01_basic.t  view on Meta::CPAN

#!/usr/bin/env perl
use strict;
use warnings;
use utf8;
binmode Test::More->builder->$_, ":utf8" for qw/output failure_output todo_output/;

use Test::More tests => 84;

use Acme::Honkidasu;

for my $i (1..12) {
    my $t = Time::Piece->strptime(sprintf('%02d %02d', $i, 1), '%m %d');
    chomp( my $honki = $Acme::Honkidasu::LIST_HONKIDASU->[ $i - 1 ] );
    cmp_ok $t->honkidasu, 'eq', $honki;
    cmp_ok $t->strftime('%('), 'eq', $honki;

t/02_list.t  view on Meta::CPAN

#!/usr/bin/env perl
use strict;
use warnings;
use utf8;
binmode Test::More->builder->$_, ":utf8" for qw/output failure_output todo_output/;

use Test::More tests => 36;
use Test::More;

use Acme::Honkidasu;

my @list = <DATA>;
$Acme::Honkidasu::LIST_HONKIDASU = \@list;
for my $i (1..12) {
    my $t = Time::Piece->strptime(sprintf('%02d', $i), '%m');