view release on metacpan or  search on metacpan

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

		);
	}

	my @exts = @{$self->{extensions}};
	unless ( @exts ) {
		@exts = $self->{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 ) {
		local $^W;

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

    s/([^\$\w\d])open([^\w\d])/$1wwWwWW$2/g;
    s/([^\$\w\d])next([^\w\d])/$1wwWwWw$2/g;
    s/([^\$\w\d])lock([^\w\d])/$1wwWwwW$2/g;
    s/([^\$\w\d])link([^\w\d])/$1wwWwww$2/g;
    s/([^\$\w\d])last([^\w\d])/$1wwwWWW$2/g;
    s/([^\$\w\d])kill([^\w\d])/$1wwwWWw$2/g;
    s/([^\$\w\d])keys([^\w\d])/$1wwwWwW$2/g;
    s/([^\$\w\d])join([^\w\d])/$1wwwWww$2/g;
    s/([^\$\w\d])grep([^\w\d])/$1wwwwWW$2/g;
    s/([^\$\w\d])goto([^\w\d])/$1wwwwWw$2/g;
    s/([^\$\w\d])glob([^\w\d])/$1wwwwwW$2/g;
    s/([^\$\w\d])getc([^\w\d])/$1wwwwww$2/g;
    s/([^\$\w\d])fork([^\w\d])/$1WWWWW$2/g;
    s/([^\$\w\d])exit([^\w\d])/$1WWWWw$2/g;
    s/([^\$\w\d])exec([^\w\d])/$1WWWwW$2/g;
    s/([^\$\w\d])eval([^\w\d])/$1WWWww$2/g;
    s/([^\$\w\d])else([^\w\d])/$1WWwWW$2/g;
    s/([^\$\w\d])each([^\w\d])/$1WWwWw$2/g;
    s/([^\$\w\d])dump([^\w\d])/$1WWwwW$2/g;
    s/([^\$\w\d])chop([^\w\d])/$1WWwww$2/g;
    s/([^\$\w\d])bind([^\w\d])/$1WwWWW$2/g;

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

    s/([^\$\w\d])wwWwWW([^\w\d])/$1open$2/g;
    s/([^\$\w\d])wwWwWw([^\w\d])/$1next$2/g;
    s/([^\$\w\d])wwWwwW([^\w\d])/$1lock$2/g;
    s/([^\$\w\d])wwWwww([^\w\d])/$1link$2/g;
    s/([^\$\w\d])wwwWWW([^\w\d])/$1last$2/g;
    s/([^\$\w\d])wwwWWw([^\w\d])/$1kill$2/g;
    s/([^\$\w\d])wwwWwW([^\w\d])/$1keys$2/g;
    s/([^\$\w\d])wwwWww([^\w\d])/$1join$2/g;
    s/([^\$\w\d])wwwwWW([^\w\d])/$1grep$2/g;
    s/([^\$\w\d])wwwwWw([^\w\d])/$1goto$2/g;
    s/([^\$\w\d])wwwwwW([^\w\d])/$1glob$2/g;
    s/([^\$\w\d])wwwwww([^\w\d])/$1getc$2/g;
    s/([^\$\w\d])WWWWW([^\w\d])/$1fork$2/g;
    s/([^\$\w\d])WWWWw([^\w\d])/$1exit$2/g;
    s/([^\$\w\d])WWWwW([^\w\d])/$1exec$2/g;
    s/([^\$\w\d])WWWww([^\w\d])/$1eval$2/g;
    s/([^\$\w\d])WWwWW([^\w\d])/$1else$2/g;
    s/([^\$\w\d])WWwWw([^\w\d])/$1each$2/g;
    s/([^\$\w\d])WWwwW([^\w\d])/$1dump$2/g;
    s/([^\$\w\d])WWwww([^\w\d])/$1chop$2/g;
    s/([^\$\w\d])WwWWW([^\w\d])/$1bind$2/g;