view release on metacpan or  search on metacpan

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

sub ossan41 {
    my @aa = (
        <<'OPPAI'
　　／⌒ヽ
　 ∩ ＾ω＾）　な　ん　だ
　 |　　 ⊂ﾉ
　｜　　 _⊃
　 し ⌒

 contributed by @mattn_jp.
OPPAI
        , <<'OPPAI'
　　／⌒ヽ
　（＾ω＾ ∩　４　１　か
　 t⊃　　｜
　⊂_ 　　｜
　　　⌒ J

 contributed by @mattn_jp.
OPPAI
        , <<'OPPAI'
　　 　 ／⌒ヽ
　　　( 　　　　)　　おっおっおっ
　　 ／　　、 つ
　 （_(__ ⌒)ﾉ
　　 ∪ (ノ

 contributed by @mattn_jp.
OPPAI
    );

    for (0..9) {
        my $a = $aa[$_ % 3];
        print "\e[2J$a"; sleep 1;
    }
}

no Mouse;
__PACKAGE__->meta->make_immutable();
__END__

=head1 NAME

Acme::Hidek - Virtual net personality Hidek

=head1 VERSION

This document describes Acme::Hidek version 44.0.

=head1 SYNOPSIS

    use Acme::Hidek;

    my $hidek = Acme::Hidek->new();

    $hidek->birthdate;   # => 1970/9/2 (Time::Piece object)
    $hidek->is_birthday; # true if the day is 9/2
    $hidek->age;         # the current age (integer)
    $hidek->agef;        # the current age (float)

    $hidek->we_love_hidek(); # => say congratulations to stdout

=head1 DESCRIPTION

Acme::Hidek provides APIs to access the information on hidek.

This module is written to congratulate the 40th birthday of hidek.
Happy birthday hidek!

=head1 DEPENDENCIES

Perl 5.8.1 or later, and a C compiler.

=head1 BUGS

All complex software has bugs lurking in it, and this module is no
exception. If you find a bug please either email me, or add the bug
to cpan-RT.

=head1 SEE ALSO

L<http://hidek.info>

=head1 AUTHOR

Goro Fuji (gfx) E<lt>gfuji(at)cpan.orgE<gt>

=head1 LICENSE AND COPYRIGHT

Copyright (c) 2010, Goro Fuji (gfx). All rights reserved.

This library is free software; you can redistribute it and/or modify
it under the same terms as Perl itself. See L<perlartistic> for details.

=cut