view release on metacpan or  search on metacpan

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

165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
}
 
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 $obj->can($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 {