Yappo::タワシ このページをアンテナに追加 RSSフィード

2006-04-11

Acme::Oppai

http://d.hatena.ne.jp/higepon/20060407/1144400043

package Acme::Oppai;
use strict;
use warnings;
our $VERSION = '0.01';

use overload q("") => sub { ${$_[0]->[0]} };

sub new {
    my $class = shift;
    my $o_str;
    my $self = [
        \$o_str,
                ];
    bless $self, $class;
}

sub massage {
    my $self = shift;
    ${ $self->[0] } .=<<OPPAI;
    _  ∩
  ( ゜∀゜)彡 おっぱい!おっぱい!
  (  ⊂彡
   |   | 
   し ⌒J
OPPAI
    $self;
}
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';


=head1 DESCRIPTION

display to

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

=head1 Method

=over 4

=item new

make object.

=item massage

stack oppai

=back

=head1 SEE ALSO

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

MATSUNO Tokuhiro E<lt>tokuhiro at mobilefactory.jpE<gt>, higepon, Mr.Oppai

=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

あとでCPANにあげる

スパム対策のためのダミーです。もし見えても何も入力しないでください
ゲスト


画像認証

トラックバック - http://d.hatena.ne.jp/yappo/20060411/1144723829