Code Index:

package Acme::Sneeze
- sneeze
__END__
EOF

NAME

Acme::Sneeze - Bless you

SYNOPSIS

  package Your::Object;
  use Acme::Sneeze;

  package Others;

  my $object = Your::Object->new;
  $object->sneeze;    # "bless you!"

  print ref($object); # will print "Others"

DESCRIPTION

When you sneeze in America (or other English speaking countries), you'll be blessed. But the problem is that they say "Bless you" without the 2nd parameter: the package name.

So with Acme::Sneeze, your object will have sneeze method, and when you sneeze you'll be automatically blessed to the current package.

TODO

LOCALIZATION

In Japan, sneezing twice implies that "someone is talking about you." I guess Acme::Sneeze should be localized to increment reference count of the object if the users locale is set to JP.

In Poland, the common response Sto lat translates as Hundred years, wishing hundred years of health to the sneezer. Acme::Sneeze should wrap CORE::time in Poland maybe.

More interesting stories about different reactions to sneezing in different countries are available at http://en.wikipedia.org/wiki/Sneeze

AUTHOR

Tatsuhiko Miyagawa <miyagawa@bulknews.net>

This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself.