view release on metacpan or  search on metacpan

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

124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
}
 
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 {