The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.

NAME

Acme::Oppai - Oppai! Oppai!

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...

DESCRIPTION

display to

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

Method

new[(%option)]

make object.

option
  • use_utf8

    use utf8 flag.

  • default

    default Asc Art type(up or down or default)

Oppai

stack auto oppai

oppai

stack auto oppai (small)

massage

stack oppai

SEE ALSO

example/pearl, 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, http://d.hatena.ne.jp/higepon/20060407/1144400043#c

AUTHOR

Kazuhiro Osawa <ko@yappo.ne.jp>

THANKS TO

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

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.

1 POD Error

The following errors were encountered while parsing the POD:

Around line 211:

Non-ASCII character seen before =encoding in ' '. Assuming UTF-8