Result:
found more than 317 distributions - search limited to the first 2001 files matching your query
( run in 0.898 )
Acme-CPANAuthors-InMostCPANAuthors
view release on metacpan or search on metacpan
that you may choose to grant warranty protection to some or all
third parties, at your option).
c) If the modified program normally reads commands interactively when
run, you must cause it, when started running for such interactive use
in the simplest and most usual way, to print or display an
announcement including an appropriate copyright notice and a notice
that there is no warranty (or else, saying that you provide a
warranty) and that users may redistribute the program under these
conditions, and telling the user how to view a copy of this General
Public License.
Acme-CPANAuthors-India
view release on metacpan or search on metacpan
that you may choose to grant warranty protection to some or all
third parties, at your option).
c) If the modified program normally reads commands interactively when
run, you must cause it, when started running for such interactive use
in the simplest and most usual way, to print or display an
announcement including an appropriate copyright notice and a notice
that there is no warranty (or else, saying that you provide a
warranty) and that users may redistribute the program under these
conditions, and telling the user how to view a copy of this General
Public License.
Acme-CPANAuthors-Indonesian
view release on metacpan or search on metacpan
that you may choose to grant warranty protection to some or all
third parties, at your option).
c) If the modified program normally reads commands interactively when
run, you must cause it, when started running for such interactive use
in the simplest and most usual way, to print or display an
announcement including an appropriate copyright notice and a notice
that there is no warranty (or else, saying that you provide a
warranty) and that users may redistribute the program under these
conditions, and telling the user how to view a copy of this General
Public License.
Acme-CPANAuthors-Japanese
view release on metacpan or search on metacpan
bin/unregistered_japanese_authors view on Meta::CPAN
# next unless $email and $email =~ /(\.(com|org|net|jp)|CENSORED)$/i;
push @authors, $author;
}
print "num of candidates: " , (scalar @authors), "\n";
foreach my $author ( sort { $a->pauseid cmp $b->pauseid } @authors ) {
my $id = $author->pauseid;
my $name = $author->name;
my $mail = $author->email;
print qq{ $id => '$name', # ($mail)\n};
$exceptions{$id} = $known{$id} = [$name, $mail];
}
if ($opts{exception}) {
my $file = __FILE__;
open my $in, '<', $file or die $!;
open my $out, '>', "$file.tmp" or die $!;
my $flag;
while(<$in>) {
if (/^sub _exceptions/) {
print $out $_;
$flag = 1;
next;
}
if ($flag && /^\)\}/) {
for my $id (sort keys %exceptions) {
if (ref $exceptions{$id}) {
print $out " $id => '$exceptions{$id}[0]', # $exceptions{$id}[1]\n";
} else {
print $out " $id => '$exceptions{$id}',\n";
}
}
$flag = 0;
}
if ($flag) {
bin/unregistered_japanese_authors view on Meta::CPAN
if ($id && $name && $comment) {
$exceptions{$id} = [$name, $comment];
}
next;
}
print $out $_;
}
close $in;
close $out;
rename "$file.tmp" => $file or die $!;
}
bin/unregistered_japanese_authors view on Meta::CPAN
open my $out, '>', "$file.tmp" or die $!;
my $flag;
while(<$in>) {
if (/our \$VERSION = /) {
my $ymd = substr(Time::Piece->new->strftime('%Y%m%d'), 2);
print $out "our \$VERSION = '0.$ymd';\n";
next;
}
if (/^use Acme::CPANAuthors::Register/) {
print $out $_;
for my $id (sort keys %known) {
if (ref $known{$id}) {
printf $out " %-9s => '%s', # (%s)\n", $id, $known{$id}[0], $known{$id}[1];
} else {
printf $out " %-9s => '%s',\n", $id, $known{$id};
}
}
$flag = 1;
next;
}
if ($flag && /^\)/) {
$flag = 0;
}
print $out $_ unless $flag;
}
close $in;
close $out;
rename "$file.tmp" => $file;
}
Acme-CPANAuthors-Korean
view release on metacpan or search on metacpan
)->new(%args);
$builder->create_build_script();
use File::Copy;
print "cp META.json MYMETA.json\n";
copy("META.json","MYMETA.json") or die "Copy failed(META.json): $!";
if (-f 'META.yml') {
print "cp META.yml MYMETA.yml\n";
copy("META.yml","MYMETA.yml") or die "Copy failed(META.yml): $!";
} else {
print "There is no META.yml... You may install this module from the repository...\n";
}
Acme-CPANAuthors-MBTI
view release on metacpan or search on metacpan
inc/expand_author_list.pm view on Meta::CPAN
sub rng {
return state $rng = Math::Random::MT->new( map { unpack 'L', $_ } q[Kent], q[ is ], q[a du], q[ll b], q[oy ] );
}
sub dolog { *STDERR->print("[32m$_[0][0m\n") }
sub mirror_whois {
my ($filename) = @_;
my $out = tempdir()->child($filename);
dolog("Fetching $filename to $out");
Acme-CPANAuthors-Malaysian
view release on metacpan or search on metacpan
t/author-eol.t view on Meta::CPAN
BEGIN {
unless ($ENV{AUTHOR_TESTING}) {
print qq{1..0 # SKIP these tests are for testing by the author\n};
exit
}
}
use strict;
Acme-CPANAuthors-MetaSyntactic
view release on metacpan or search on metacpan
that you may choose to grant warranty protection to some or all
third parties, at your option).
c) If the modified program normally reads commands interactively when
run, you must cause it, when started running for such interactive use
in the simplest and most usual way, to print or display an
announcement including an appropriate copyright notice and a notice
that there is no warranty (or else, saying that you provide a
warranty) and that users may redistribute the program under these
conditions, and telling the user how to view a copy of this General
Public License.
Acme-CPANAuthors-Misanthrope
view release on metacpan or search on metacpan
inc/Module/AutoInstall.pm view on Meta::CPAN
goto &ExtUtils::MakeMaker::prompt unless $AcceptDefault;
my ( $prompt, $default ) = @_;
my $y = ( $default =~ /^[Yy]/ );
print $prompt, ' [', ( $y ? 'Y' : 'y' ), '/', ( $y ? 'n' : 'N' ), '] ';
print "$default\n";
return $default;
}
# the workhorse
sub import {
my $class = shift;
my @args = @_ or return;
my $core_all;
print "*** $class version " . $class->VERSION . "\n";
print "*** Checking for Perl dependencies...\n";
my $cwd = Cwd::cwd();
$Config = [];
inc/Module/AutoInstall.pm view on Meta::CPAN
if $option eq 'core';
next unless $option eq 'core';
}
print "[" . ( $FeatureMap{ lc($feature) } || $feature ) . "]\n";
$modules = [ %{$modules} ] if UNIVERSAL::isa( $modules, 'HASH' );
unshift @$modules, -default => &{ shift(@$modules) }
if ( ref( $modules->[0] ) eq 'CODE' ); # XXX: bugward combatability
inc/Module/AutoInstall.pm view on Meta::CPAN
@skiptests = @{$arg} if ( $option eq 'skiptests' );
next;
}
printf( "- %-${maxlen}s ...", $mod );
if ( $arg and $arg =~ /^\D/ ) {
unshift @$modules, $arg;
$arg = 0;
}
# XXX: check for conflicts and uninstalls(!) them.
my $cur = _load($mod);
if (_version_cmp ($cur, $arg) >= 0)
{
print "loaded. ($cur" . ( $arg ? " >= $arg" : '' ) . ")\n";
push @Existing, $mod => $arg;
$DisabledTests{$_} = 1 for map { glob($_) } @skiptests;
}
else {
if (not defined $cur) # indeed missing
{
print "missing." . ( $arg ? " (would need $arg)" : '' ) . "\n";
}
else
{
# no need to check $arg as _version_cmp ($cur, undef) would satisfy >= above
print "too old. ($cur < $arg)\n";
}
push @required, $mod => $arg;
}
}
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";
chdir $cwd;
# import to main::
no strict 'refs';
inc/Module/AutoInstall.pm view on Meta::CPAN
return (@Existing, @Missing);
}
sub _running_under {
my $thing = shift;
print <<"END_MESSAGE";
*** Since we're running under ${thing}, I'll just let it take care
of the dependency's installation later.
END_MESSAGE
return 1;
}
inc/Module/AutoInstall.pm view on Meta::CPAN
if (
( $^O eq 'MSWin32' ? _under_cpan() : <LOCK> == getppid() )
and ( $CPAN::Config->{prerequisites_policy} || '' ) ne 'ignore'
) {
print <<'END_MESSAGE';
*** Since we're running under CPAN, I'll just let it take care
of the dependency's installation later.
END_MESSAGE
return 1;
inc/Module/AutoInstall.pm view on Meta::CPAN
}
return @installed unless @modules; # nothing to do
return @installed if _check_lock(); # defer to the CPAN shell
print "*** Installing dependencies...\n";
return unless _connected_to('cpan.org');
my %args = @config;
my %failed;
inc/Module/AutoInstall.pm view on Meta::CPAN
_install_cpanplus( \@modules, \@config );
} else {
_install_cpan( \@modules, \@config );
}
print "*** $class installation finished.\n";
# see if we have successfully installed them
while ( my ( $pkg, $ver ) = splice( @modules, 0, 2 ) ) {
if ( _version_cmp( _load($pkg), $ver ) >= 0 ) {
push @installed, $pkg;
}
elsif ( $args{do_once} and open( FAILED, '>> .#autoinstall.failed' ) ) {
print FAILED "$pkg\n";
}
}
close FAILED if $args{do_once};
inc/Module/AutoInstall.pm view on Meta::CPAN
$conf->set_conf( $key, $val );
}
my $modtree = $cp->module_tree;
while ( my ( $pkg, $ver ) = splice( @modules, 0, 2 ) ) {
print "*** Installing $pkg...\n";
MY::preinstall( $pkg, $ver ) or next if defined &MY::preinstall;
my $success;
my $obj = $modtree->{$pkg};
inc/Module/AutoInstall.pm view on Meta::CPAN
}
my $rv = $cp->install( modules => [ $obj->{module} ] );
if ( $rv and ( $rv->{ $obj->{module} } or $rv->{ok} ) ) {
print "*** $pkg successfully installed.\n";
$success = 1;
} else {
print "*** $pkg installation cancelled.\n";
$success = 0;
}
$installed += $success;
} else {
print << ".";
*** Could not find a version $ver or above for $pkg; skipping.
.
}
MY::postinstall( $pkg, $ver, $success ) if defined &MY::postinstall;
inc/Module/AutoInstall.pm view on Meta::CPAN
local $CPAN::Config->{prerequisites_policy} = 'follow';
while ( my ( $pkg, $ver ) = splice( @modules, 0, 2 ) ) {
MY::preinstall( $pkg, $ver ) or next if defined &MY::preinstall;
print "*** Installing $pkg...\n";
my $obj = CPAN::Shell->expand( Module => $pkg );
my $success = 0;
if ( $obj and _version_cmp( $obj->cpan_version, $ver ) >= 0 ) {
inc/Module/AutoInstall.pm view on Meta::CPAN
->{install}
if $CPAN::META;
};
if ( $rv eq 'YES' ) {
print "*** $pkg successfully installed.\n";
$success = 1;
}
else {
print "*** $pkg installation failed.\n";
$success = 0;
}
$installed += $success;
}
else {
print << ".";
*** Could not find a version $ver or above for $pkg; skipping.
.
}
MY::postinstall( $pkg, $ver, $success ) if defined &MY::postinstall;
inc/Module/AutoInstall.pm view on Meta::CPAN
)
{
die "*** Please install $class $ver manually.\n";
}
print << ".";
*** Trying to fetch it from CPAN...
.
# install ourselves
_load($class) and return $class->import(@_)
if $class->install( [], $class, $ver );
print << '.'; exit 1;
*** Cannot bootstrap myself. :-( Installation terminated.
.
}
inc/Module/AutoInstall.pm view on Meta::CPAN
my $path = shift;
mkdir( $path, 0755 ) unless -e $path;
return 1 if -w $path;
print << ".";
*** You are not allowed to write to the directory '$path';
the installation may fail due to insufficient permissions.
.
if (
inc/Module/AutoInstall.pm view on Meta::CPAN
) =~ /^[Yy]/
)
{
# try to bootstrap ourselves from sudo
print << ".";
*** Trying to re-execute the autoinstall process with 'sudo'...
.
my $missing = join( ',', @Missing );
my $config = join( ',',
UNIVERSAL::isa( $Config, 'HASH' ) ? %{$Config} : @{$Config} )
inc/Module/AutoInstall.pm view on Meta::CPAN
return
unless system( 'sudo', $^X, $0, "--config=$config",
"--installdeps=$missing" );
print << ".";
*** The 'sudo' command exited with error! Resuming...
.
}
return _prompt(
inc/Module/AutoInstall.pm view on Meta::CPAN
return if $CPAN::VERSION and $CPAN::Config and not @_;
require CPAN;
# CPAN-1.82+ adds CPAN::Config::AUTOLOAD to redirect to
# CPAN::HandleConfig->load. CPAN reports that the redirection
# is deprecated in a warning printed at the user.
# CPAN-1.81 expects CPAN::HandleConfig->load, does not have
# $CPAN::HandleConfig::VERSION but cannot handle
# CPAN::Config->load
inc/Module/AutoInstall.pm view on Meta::CPAN
sub Write {
require Carp;
Carp::croak "WriteMakefile: Need even number of args" if @_ % 2;
if ($CheckOnly) {
print << ".";
*** Makefile not written in check-only mode.
.
return;
}
inc/Module/AutoInstall.pm view on Meta::CPAN
$PostambleUsed = 0;
local *MY::postamble = \&postamble unless defined &MY::postamble;
ExtUtils::MakeMaker::WriteMakefile(%args);
print << "." unless $PostambleUsed;
*** WARNING: Makefile written with customized MY::postamble() without
including contents from Module::AutoInstall::postamble() --
auto installation features disabled. Please contact the author.
.
Acme-CPANAuthors-Nonhuman
view release on metacpan or search on metacpan
that you may choose to grant warranty protection to some or all
third parties, at your option).
c) If the modified program normally reads commands interactively when
run, you must cause it, when started running for such interactive use
in the simplest and most usual way, to print or display an
announcement including an appropriate copyright notice and a notice
that there is no warranty (or else, saying that you provide a
warranty) and that users may redistribute the program under these
conditions, and telling the user how to view a copy of this General
Public License.
Acme-CPANAuthors-Norwegian
view release on metacpan or search on metacpan
examples/test.pl view on Meta::CPAN
use lib '../lib';
use Acme::CPANAuthors;
my $a = Acme::CPANAuthors->new('Norwegian');
print 'Norwegian CPAN authors: ', $a->count, "\n";
printf "%-20s %s\n", $_, $a->name($_) for $a->id;
Acme-CPANAuthors-POE
view release on metacpan or search on metacpan
tools/poe_authors.pl view on Meta::CPAN
my @authors;
push @authors, qq{ $_ => q[$poe_authors{$_}],\n} for sort keys %poe_authors;
print <<HEADER;
package Acme::CPANAuthors::POE;
#ABSTRACT: We are CPAN Authors of POE
use strict;
use warnings;
use Acme::CPANAuthors::Register (
HEADER
print "$_" for @authors;
print <<MIDDLE;
);
q[We are POEsters];
=pod
tools/poe_authors.pl view on Meta::CPAN
=head1 CONTAINED AUTHORS
MIDDLE
print "$_" for @authors;
print <<TAIL;
=head1 SEE ALSO
L<Acme::CPANAuthors>
Acme-CPANAuthors-Russian
view release on metacpan or search on metacpan
examples/test.pl view on Meta::CPAN
use lib '../lib';
use Acme::CPANAuthors;
my $a = Acme::CPANAuthors->new('Russian');
print 'Russian CPAN authors: ', $a->count, "\n";
printf "%-20s %s\n", $_, $a->name($_) for $a->id;
Acme-CPANAuthors-Slovak
view release on metacpan or search on metacpan
# Get number of Slovak CPAN authors.
my $count = $authors->count;
# Print out.
print "Count of Slovak CPAN authors: $count\n";
# Output:
# Count of Slovak CPAN authors: 6
=head1 EXAMPLE2
Acme-CPANAuthors-Taiwanese
view release on metacpan or search on metacpan
that you may choose to grant warranty protection to some or all
third parties, at your option).
c) If the modified program normally reads commands interactively when
run, you must cause it, when started running for such interactive use
in the simplest and most usual way, to print or display an
announcement including an appropriate copyright notice and a notice
that there is no warranty (or else, saying that you provide a
warranty) and that users may redistribute the program under these
conditions, and telling the user how to view a copy of this General
Public License.
Acme-CPANAuthors-ToBeLike
view release on metacpan or search on metacpan
tools/belike.pl view on Meta::CPAN
my @authors;
push @authors, qq{ $_ => q[$poe_authors{$_}],\n} for sort keys %poe_authors;
print <<HEADER;
package Acme::CPANAuthors::ToBeLike;
#ABSTRACT: BeLike other CPAN Authors
use strict;
use warnings;
use Acme::CPANAuthors::Register (
HEADER
print "$_" for @authors;
print <<MIDDLE;
);
q[BeLikeEveryoneElse];
=pod
tools/belike.pl view on Meta::CPAN
=head1 CONTAINED AUTHORS
MIDDLE
print "$_" for @authors;
print <<TAIL;
=head1 SEE ALSO
L<Acme::CPANAuthors>
Acme-CPANAuthors-Turkish
view release on metacpan or search on metacpan
that you may choose to grant warranty protection to some or all
third parties, at your option).
c) If the modified program normally reads commands interactively when
run, you must cause it, when started running for such interactive use
in the simplest and most usual way, to print or display an
announcement including an appropriate copyright notice and a notice
that there is no warranty (or else, saying that you provide a
warranty) and that users may redistribute the program under these
conditions, and telling the user how to view a copy of this General
Public License.
( run in 0.898 second using v1.01-cache-2.11-cpan-de7293f3b23 )