view release on metacpan or  search on metacpan

inc/Module/Install.pm  view on Meta::CPAN

    }

    my @exts = @{$self->{extensions}};
    unless ( @exts ) {
        my $admin = $self->{admin};
        @exts = $admin->load_all_extensions;
    }

    my %seen;
    foreach my $obj ( @exts ) {
        while (my ($method, $glob) = each %{ref($obj) . '::'}) {
            next unless exists &{ref($obj).'::'.$method};
            next if $method =~ /^_/;
            next if $method eq uc($method);
            $seen{$method}++;
        }
    }

    my $who = $self->_caller;
    foreach my $name ( sort keys %seen ) {
        *{"${who}::$name"} = sub {

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

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