view release on metacpan or  search on metacpan

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

}

1;
__END__

=head1 NAME

Acme::Oppai - Oppai! Oppai!

=head1 SYNOPSIS

  perl -MAcme::Oppai -e 'print Acme::Oppai->new->massage';
  perl -MAcme::Oppai -e 'print Acme::Oppai->new->massage->massage->massage->massage->massage->massage->massage';

  perl -MAcme::Oppai -e 'print Acme::Oppai->oppai';
  perl -MAcme::Oppai -e 'print Acme::Oppai->oppai->oppai->oppai';
  perl -MAcme::Oppai -e 'print Acme::Oppai->Oppai->oppai->Oppai("OPPAI!")->oppai("oppai!")';
  perl -MAcme::Oppai -e 'print Acme::Oppai->new(default => 'default')->oppai->oppai->oppai';

  # or

  use Acme::Oppai;

  print Acme::Oppai->oppai;
  print Acme::Oppai->oppai->oppai->oppai->oppai;
  print Acme::Oppai->oppai('your')->oppai('soul')->oppai('message')->oppai;

  my $oppai = Acme::Oppai->new(default => 'default');
  print $oppai->Oppai->Oppai->Oppai;
  print $oppai->oppai->oppai->oppai;
  print $oppai->oppai->Oppai->oppai;

  # Hummm I'm tired...

=head1 DESCRIPTION

display to

  　　　 _ 　∩
  　　(　゜∀゜)彡　おっぱい!おっぱい!
  　　(　 ⊂彡
  　 　|　　　|　
  　 　し ⌒Ｊ

=head1 Method

=over 4

=item new[(%option)]

make object.

=over 4

=item option

=over 4

=item * use_utf8

use utf8 flag.

=item * default

default Asc Art type(up or down or default)

=back

=back

=item Oppai

stack auto oppai

=item oppai

stack auto oppai (small)

=item massage

stack oppai

=back

=head1 SEE ALSO

C<example/pearl>,
L<http://ja.wikipedia.org/wiki/%E3%82%B8%E3%83%A7%E3%83%AB%E3%82%B8%E3%83%A5%E9%95%B7%E5%B2%A1>,
L<http://d.hatena.ne.jp/higepon/20060407/1144400043#c>

=head1 AUTHOR

Kazuhiro Osawa E<lt>ko@yappo.ne.jpE<gt>

=head1 THANKS TO

Mr.Oppai, higepon, tokuhirom, nipotan, hio, takesako, secondlife

=head1 COPYRIGHT AND LICENSE

Copyright (C) 2006 by Kazuhiro Osawa

This library is free software; you can redistribute it and/or modify
it under the same terms as Perl itself, either Perl version 5.8.5 or,
at your option, any later version of Perl 5 you may have available.

=cut