view release on metacpan or  search on metacpan

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

package Acme::Sneeze::JP;

use strict;
use 5.8.0;
our $VERSION = '0.01';

use Exporter::Lite;
our @EXPORT = qw(sneeze);

use Scalar::Util qw(refaddr);

our %talk;
sub sneeze {
    my $obj = shift;
    $talk{refaddr($obj)} = $obj; # someone is talking about you
}

1;
__END__

=head1 NAME

Acme::Sneeze::JP - Someone is talking about you

=head1 SYNOPSIS

  package Foo;
  use Acme::Sneeze::JP;

  {
    my $foo = Foo->new;
    $foo->sneeze;
  }

  # $foo is not GC-ed

=head1 DESCRIPTION

In Japan, sneezing means I<someone is talking about you>.

Acme::Sneeze::JP gives you I<sneeze> method, and when you object
sneezes, the reference count to the object is automatically
incremented. So your object won't be garbage collected until the
global destruction.

=head1 AUTHOR

Tatsuhiko Miyagawa E<lt>miyagawa@bulknews.netE<gt>

=head1 LICENSE

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

=head1 SEE ALSO

L<Acme::Sneeze>, L<http://ja.wikipedia.org/wiki/%E3%81%8F%E3%81%97%E3%82%83%E3%81%BF>

=cut