view release on metacpan or search on metacpan
inc/Module/AutoInstall.pm view on Meta::CPAN
if ( @Missing and not( $CheckOnly or $UnderCPAN ) ) {
require Config;
print
"*** Dependencies will be installed the next time you type '$Config::Config{make}'.\n";
# make an educated guess of whether we'll need root permission.
print " (You may need to do that as the 'root' user.)\n"
if eval '$>';
}
print "*** $class configuration finished.\n";
inc/Module/AutoInstall.pm view on Meta::CPAN
or _load('CPANPLUS::Shell::Default')
)
);
}
# make guesses on whether we're under the CPAN installation directory
sub _under_cpan {
require Cwd;
require File::Spec;
my $cwd = File::Spec->canonpath( Cwd::cwd() );
view release on metacpan or search on metacpan
0.04 2014-12-08/08:00
adds checking HTTP::Response and exit 1 if not success
0.03 2014-12-06/19:00
adds ssl_opts
guesses -module and -modversion from the file
0.02 2010-02-08/11:44
Corrected some documentation
0.01 Date/time
First version, released on an unsuspecting world.
view release on metacpan or search on metacpan
0.39 Tue Aug 19 08:27:37 BST 2008
- make a single key from the license text and the license url
from resources instead of displaying both seperately (patch
by martijn)
- sort dependencies
- narrow down the search results based on educated guesses based
on the search query (patch by martijn)
- use Archive::Tar if installed, otherwise external tar
(patch by corion)
- display the installed version of a distribution (patch by
corion)
- require HTTP::Server::Simple 0.34 (spotted by ranguard)
- added favicon
- hide POD errors
- add an opensearch plugin (such as Firefox's search bar)
- skip tests unless there is an existing mirror
- fix package links to go to a best-guess filename (and tests)
0.33 Fri Aug 8 08:00:12 BST 2008
- require at least CPAN::Mini 0.565 as we need CPAN::Mini::App
(noticed by bricas)
- glob the local directory name (like CPAN::Mini does) to make
view release on metacpan or search on metacpan
lib/CPAN/Mirror/Server/HTTP.pm view on Meta::CPAN
my @data;
foreach my $item ( sort keys %dir ) {
my $data = $dir{$item};
push @data, [
$h->td( { valign => 'top' },
[ $h->img({ src => '/icons/' . _guess_type( $data->[2], $item ),
alt => ( $data->[2] ? '[DIR]' : '[ ]' ) }) ],
[ $h->a( { href => ( $data->[2] ? "$item/" : $item ) }, $item ) ],
{ align => 'right' },
strftime("%d-%b-%Y %H:%M",localtime($data->[1])),
{ align => 'right' },
lib/CPAN/Mirror/Server/HTTP.pm view on Meta::CPAN
$resp->header( 'Content-Length', length $resp->content );
}
return $resp;
}
sub _guess_type {
my $flag = shift;
return 'folder.gif' if $flag;
my $item = shift;
return 'compressed.gif' if $item =~ m!(\.tar\.gz|\.tar\.bz2|\.tgz|\.zip)$!i;
return 'unknown.gif';
view release on metacpan or search on metacpan
lib/CPAN/Mirror/Tiny.pm view on Meta::CPAN
=back
=head2 inject
# automatically guess $source
$cpan->inject($source, \%option)
# or explicitly call inject_* method
$cpan->inject_local('/path/to//Your-Module-0.01.tar.gz'', {author => 'YOU'});
$cpan->inject_local_file('/path/to//Your-Module-0.01.tar.gz'', {author => 'YOU'});
view release on metacpan or search on metacpan
bin/cpan-release-history view on Meta::CPAN
my @entries;
while (my $release = $iterator->next_release) {
# The convention is that any Raku releases go in a Perl6 directory
# Let's guess that a directory Raku will be supported soon as well
next if $release->path =~ m!/Perl6/!;
next if $release->path =~ m!/Raku/!;
my $distinfo = $release->distinfo;
my @tm = gmtime($release->timestamp);
view release on metacpan or search on metacpan
build/gen_conf.pl view on Meta::CPAN
unless (prompt_y('Gather Win32 ppm package information?')) {
$cfg->newval('CPAN', 'no_ppm', 1);
}
if (prompt_y('Guess unassigned module categories?')) {
my $cat_threshold = prompt('Threshold value for guesses?', 0.998);
$cfg->newval('CPAN', 'cat_threshold', $cat_threshold);
}
else {
$cfg->newval('CPAN', 'no_cat', 1);
}
view release on metacpan or search on metacpan
vhost/html/js/sorttable.js view on Meta::CPAN
mtch = headrow[i].className.match(/\bsorttable_([a-z0-9]+)\b/);
if (mtch) { override = mtch[1]; }
if (mtch && typeof sorttable["sort_"+override] == 'function') {
headrow[i].sorttable_sortfunction = sorttable["sort_"+override];
} else {
headrow[i].sorttable_sortfunction = sorttable.guessType(table,i);
}
// make it clickable to sort
headrow[i].sorttable_columnindex = i;
headrow[i].sorttable_tbody = table.tBodies[0];
dean_addEvent(headrow[i],"click", sorttable.innerSortFunction = function(e) {
vhost/html/js/sorttable.js view on Meta::CPAN
});
}
}
},
guessType: function(table, column) {
// guess the type of a column based on its first non-blank row
sortfn = sorttable.sort_alpha;
for (var i=0; i<table.tBodies[0].rows.length; i++) {
text = sorttable.getInnerText(table.tBodies[0].rows[i].cells[column]);
if (text != '') {
if (text.match(/^-?[£$¤]?[\d,.]+%?$/)) {
view release on metacpan or search on metacpan
vhost/html/js/OpenThought.js view on Meta::CPAN
{
var object = this.FindElement(element)
// If no object is found with the name "element", then either they typed in
// wrong, or it's an anchor. There's no way to know for sure, so let's
// guess the latter. This should make debugging fun.
if( !object ) {
if ( document.anchors[element] ) {
this.log.info("Jumping to anchor tag ['" + element + "'].");
location.hash = "#" + element;
view release on metacpan or search on metacpan
SCRIPTS
* addresses.pl
Selects all the tester email addresses and attempts to guess the mapping of
any addresses not mapped to known people in the address.txt file.
* cpanstats-leaderboard
Data table management script. Generates all the leaderboard entries.