view release on metacpan or  search on metacpan

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

  package Others;

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

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

=head1 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 I<sneeze> method, and when
you sneeze you'll be automatically blessed to the current package.

=head1 TODO

=head2 LOCALIZATION

In Japan, sneezing twice implies that "someone is talking about you." I