Result:
found more than 820 distributions - search limited to the first 2001 files matching your query
( run in 4.406 )
App-Fetchware
view release on metacpan or search on metacpan
lib/App/Fetchware.pm view on Meta::CPAN
=head2 How do I fix the verification failed error.
Fetchware is designed to always attempt to verify the software archives it
downloads even if you failed to configure fetchware's verification settings. It
will try to guess what those setting should be using simple heuristics. First it
will try gpg verificaton, then sha1 verification, and finally md5 verification.
If all fail, then fetchware exit failure with an appropriate error message.
When you get this error message
L<read fetchware's documentation on how to set this up|/4. Add mandatory verification settings>.
App-Filite-Client
view release on metacpan or search on metacpan
lib/App/Filite/Client.pm view on Meta::CPAN
}
$self->errors;
}
sub _guess_mode {
my ( $self, $file, $opts ) = ( shift, @_ );
return 'link' if $opts->{link};
return 'text' if $opts->{text};
return 'file' if $opts->{file};
return 'link' if $file =~ m{\Ahttps?://\S+\z}is;
lib/App/Filite/Client.pm view on Meta::CPAN
}
sub share {
my ( $self, $file, $opts ) = ( shift, @_ );
$opts //= {};
my $mode = $self->_guess_mode( $file, $opts );
my $method = "share_$mode";
return $self->$method( $file, $opts );
}
sub _get_endpoint {
App-ForExample
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() );
App-Framework-Lite
view release on metacpan or search on metacpan
lib/App/Framework/Lite.pm view on Meta::CPAN
$synopsis .= ']' if $arg_entry_href->{'optional'} ;
$synopsis .= '> ' ;
}
# set our best guess
$this->{synopsis} = $synopsis ;
}
return $synopsis ;
}
App-Framework
view release on metacpan or search on metacpan
lib/App/Framework/Core.pm view on Meta::CPAN
foreach my $feature (@features)
{
my $feature_args = $feature_args_href->{$feature} || "" ;
my $loaded ;
my $feature_guess = ucfirst(lc($feature)) ;
## skip if already loaded
if (exists($features_href->{$feature}) || exists($features_href->{$feature_guess}))
{
## Just need to see if we've got any new args
foreach my $feat ($feature, $feature_guess)
{
if (exists($feature_args_href->{$feat}))
{
## override args
my $feature_obj = $features_href->{$feature}{'object'} ;
lib/App/Framework/Core.pm view on Meta::CPAN
my $personality = $this->personality ;
my $root = "App::Framework::Feature" ;
if ($personality)
{
push @tries, "${root}::${personality}::$feature" ;
push @tries, "${root}::${personality}::$feature_guess" ;
}
push @tries, "${root}::$feature" ;
push @tries, "${root}::$feature_guess" ;
foreach my $module (@tries)
{
if ($this->dynamic_load($module))
{
App-GSD
view release on metacpan or search on metacpan
lib/App/GSD.pm view on Meta::CPAN
sub _flush_dns_linux {
my $self = shift;
my $cmd;
if (-x '/usr/sbin/rc.d') {
# Try to guess the user's preferred network module by looking for AUTO
my $services = `/usr/sbin/rc.d list | fgrep AUTO`;
for my $service (qw(networkmanager wicd network)) {
if ($services =~ /^\[STARTED\]\[AUTO\] $service$/m) {
$cmd = ['/usr/sbin/rc.d', 'restart', $service];
last;
lib/App/GSD.pm view on Meta::CPAN
present) as these will be blocked automatically.
=item hosts_file
Path to the hosts file (e.g. '/etc/hosts'), overriding the
module's guess based on current operating system.
=item network_command
A reference to an array passable to C<system()> that will restart
the network, e.g.
App-GUI-Notepad
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() );
App-Git-Perl
view release on metacpan or search on metacpan
script/git-perl view on Meta::CPAN
$module = $modulefile;
}
$VERSION = qx{ cd "${gitdirs}"; cat "$modulefile" | grep VERSION | grep "[0-9]" | cut -d\\' -f2 | cut -d\\" -f2 | head -n 1 };
chomp( $VERSION );
} else {
# This is just guessing. It returns our...VERSION from first found file.
$module = qx{ cd "${gitdirs}"; cd "$local/" ; grep -rsn VERSION * | grep our | cut -d":" -f1 };
chomp( $module );
$VERSION = qx{ cd "${gitdirs}"; cd "$local/" ; grep -rsn VERSION * | grep our | cut -d\\' -f2 | cut -d\\" -f2 | head -n 1 };
chomp( $VERSION );
}
App-GitGitr
view release on metacpan or search on metacpan
lib/App/GitGitr.pm view on Meta::CPAN
my( $self , $opt , $version , $install_dir ) = @_;
say "*** configure" if $opt->{verbose};
chdir "git-$version";
### FIXME should have some way to allow override of these args
my $cmd = "./configure --prefix=$install_dir --without-tcltk";
# MacOS doesn't have openssl.h anymore, i guess?
$cmd .= " --without-openssl" if $^O eq 'darwin';
_run( $cmd );
};
sub _make {
App-GitHub-update
view release on metacpan or search on metacpan
lib/App/GitHub/update.pm view on Meta::CPAN
# configuration (name and abstract, respectively)
exit $exit;
}
sub guess_dzpl {
my $self = shift;
my %guess;
eval {
# Oh god this is hacky
package App::GitHub::update::Sandbox;
BEGIN {
lib/App/GitHub/update.pm view on Meta::CPAN
do './dzpl';
my $dzpl = $Dzpl::dzpl;
$dzpl = $Dzpl::dzpl;
$dzpl->zilla->_setup_default_plugins;
$_->gather_files for ( @{ $dzpl->zilla->plugins_with(-FileGatherer) } );
$guess{repository} = $dzpl->zilla->name;
$guess{description} = $dzpl->zilla->abstract;
};
die $@ if $@;
return %guess;
}
sub run {
my $self = shift;
my @arguments = @_;
lib/App/GitHub/update.pm view on Meta::CPAN
}
usage 0 if $help;
if ( $dzpl ) {
my %guess = $self->guess_dzpl;
$repository ||= $guess{repository};
$description ||= $guess{description};
}
eval {
my $response = $self->update(
login => $login, token => $token, repository => $repository,
App-GitUtils
view release on metacpan or search on metacpan
script/this-repo view on Meta::CPAN
# Will exit with code 1 and print error message to stderr when git repository cannot be determined
% cd /
% this-repo
this-repo: No git repository can be associated with current directory '/'
# Don't show error message when guessing is failed (just exit with code 1)
% this-repo -q
% _
=head1 DESCRIPTION
App-Greple-pw
view release on metacpan or search on metacpan
lib/App/Greple/PwBlock.pm view on Meta::CPAN
$obj;
}
sub parse_matrix {
my $obj = shift;
my @area = guess_matrix_area($obj->{masked});
my %matrix;
$obj->{matrix} = \%matrix;
for my $area (@area) {
my $start = $area->[0];
lib/App/Greple/PwBlock.pm view on Meta::CPAN
}
$obj;
}
sub guess_matrix_area {
my $text = shift;
my @text = $text =~ /(.*\n|.+\z)/g;
my @length = map { length } @text;
my @words = map { [ /(\w+)/g ] } @text;
my @one = map { [ grep { length == 1 } @$_ ] } @words;
App-Greple-wordle
view release on metacpan or search on metacpan
lib/App/Greple/wordle/NYT.pm view on Meta::CPAN
grids grief griff grift grigs grike grill grime grimy grind grins griot gripe
grips gript gripy grise grist grisy grith grits grize groan groat grody grogs
groin groks groma groms grone groof groom grope gross grosz grots grouf group
grout grove grovy growl grown grows grrls grrrl grubs grued gruel grues grufe
gruff grume grump grund grunt gryce gryde gryke grype grypt guaco guana guano
guans guard guars guava gubba gucks gucky gudes guess guest guffs gugas guggl
guide guido guids guild guile guilt guimp guiro guise gulab gulag gular gulas
gulch gules gulet gulfs gulfy gulls gully gulph gulps gulpy gumbo gumma gummi
gummy gumps gunas gundi gundy gunge gungy gunks gunky gunny guppy guqin gurdy
gurge gurks gurls gurly gurns gurry gursh gurus gushy gusla gusle gusli gussy
gusto gusts gusty gutsy gutta gutty guyed guyle guyot guyse gwine gyals gyans
App-Greple
view release on metacpan or search on metacpan
greple --inside='\p{Han}+' '[^\s\p{InCJKUnifiedIdeographs}]'
# This works, but quite slow. Not recommended.
# å‹•ãã‘ã©ãƒãƒ§ãƒ¼é…ã„ã‹ã‚‰ã“ã‚“ãªã“ã¨ã—ã¡ã‚ƒé§„目よ。
### guess data encoding / æ–‡å—コードを自動判定ã™ã‚‹
greple --icode=guess
### specify data encoding / æ–‡å—コードを指定ã™ã‚‹
greple --icode=euc-jp
greple --icode=shif-jis
### specify guessing code set / 自動判定ã™ã‚‹ã‚³ãƒ¼ãƒ‰ã‚’指定ã™ã‚‹
greple --icode=utf8,euc-jp,shift-jis,7bit-jis
### add to guessing code set / 自動判定ã™ã‚‹ã‚³ãƒ¼ãƒ‰ã‚’è¿½åŠ ã™ã‚‹
greple --icode=+euc-kr
---
## Filter / フィルター
App-HTTP_Proxy_IMP
view release on metacpan or search on metacpan
lib/App/HTTP_Proxy_IMP.pm view on Meta::CPAN
} elsif ( $self->{no_check_certificate} ) {
# no certificate checking
} elsif ( $capath = $self->{capath} ) {
# use this capath
} else {
# try to guess capath
if ( eval { require Mozilla::CA } ) {
$capath = Mozilla::CA::SSL_ca_file();
} elsif ( glob("/etc/ssl/certs/*.pem") ) {
$capath = "/etc/ssl/certs";
} elsif ( -f "/etc/ssl/certs.pem" && -r _ && -s _ ) {
App-I18N
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() );
App-KeePass2
view release on metacpan or search on metacpan
building test distribution under .build/ZJhGJGMarR
[DZ] beginning to build App-KeePass2
[DZ] guessing dist's main_module is lib/App/KeePass2.pm
[DZ] extracting distribution abstract from lib/App/KeePass2.pm
[@GRS/@Filter/ExtraTests] rewriting release test xt/release/unused-vars.t
[@GRS/@Filter/ExtraTests] rewriting release test xt/release/pod-coverage.t
[@GRS/@Filter/ExtraTests] rewriting author test xt/author/critic.t
[DZ] writing App-KeePass2 in .build/ZJhGJGMarR
App-Kritika
view release on metacpan or search on metacpan
kritika.fatpack view on Meta::CPAN
=head2 PERL -> JSON
The mapping from Perl to JSON is slightly more difficult, as Perl is a
truly typeless language, so we can only guess which JSON type is meant by
a Perl value.
=over 4
=item hash references
App-LDAP
view release on metacpan or search on metacpan
$ sudo ldap del group maintainer # delete posixGroup cn=maintainer,dc=groups,dc=example,dc=com
### password
App::LDAP can guess your role from your UID, and help you to change your password.
$ ldap passwd # change password of yourself
$ sudo ldap passwd shelling # using priviledge of ldap admin to change passwd of shelling
App-Licensecheck
view release on metacpan or search on metacpan
* implement licensesort
* parse options and arguments like sort
* fail on any option supported by sort but unsupported here
* parse new options --licensecheck-*
and setting=value pairs in env vars LICENSECHECK LICENSECHECK_DIFF
+ file1-format - debian spdx (default: guess from passed file1)
+ paths-debian - with format=debian try debian/copyright:copyright)
+ merge-copyright-years
+ merge-copyright-holders
+ merge-license-expressions
+ merge-license-parts
App-MHFS
view release on metacpan or search on metacpan
lib/MHFS/HTTP/Server/Client/Request.pm view on Meta::CPAN
$contentlength = $end - $start + 1;
}
# no end and size unknown. we have 4 choices:
# set end to the current end (the satisfiable range on RFC 7233 2.1). Dumb clients don't attempt to request the rest of the data ...
# send non partial response (200). This will often disable range requests.
# send multipart. "A server MUST NOT generate a multipart response to a request for a single range"(RFC 7233 4.1) guess not
# LIE, use a large value to signify infinite size. RFC 8673 suggests doing so when client signifies it can.
# Current clients don't however, so lets hope they can.
else {
say 'Implicitly setting end to 999999999999 to signify unknown end';
App-Magpie
view release on metacpan or search on metacpan
- checkout: abort if neither a module name nor a pkg name
- old: update modules.skip
1.122721 2012-09-28 15:31:22 Europe/Paris
- old: ignore package before reporting them elsewhere
- old: try to guess when cpanplus messes output for unparsable modules
- old: update modules.skip & packages.skip
1.122720 2012-09-28 14:14:19 Europe/Paris
- old: update modules.skip & packages.skip
App-Math-Tutor
view release on metacpan or search on metacpan
lib/App/Math/Tutor/Cmd/VulFrac/Cmd/Cast.pm view on Meta::CPAN
while ( $quantity-- )
{
my $vf;
do
{
$vf = $self->_guess_vulgar_fraction;
} while ( !$self->_check_vulgar_fraction($vf) or !$self->_check_decimal_fraction($vf) );
push @result, $vf;
}
App-MatrixTool
view release on metacpan or search on metacpan
lib/App/MatrixTool/Command/client/upload.pm view on Meta::CPAN
unless( defined $type ) {
$type = "image/jpeg" if $file =~ m/\.jp[e]?g$/;
$type = "image/png" if $file =~ m/\.png$/;
defined $type or
die "Type not specified and could not guess it from the filename\n";
}
$self->do_json( POST => "/_matrix/media/r0/upload",
content => $content,
content_type => $type,
App-MechaCPAN
view release on metacpan or search on metacpan
lib/App/MechaCPAN/Perl.pm view on Meta::CPAN
if ( ref $src_tz eq 'ARRAY' )
{
( $bin_tz, $src_tz ) = @$src_tz;
}
# If _get_targz couldn't find a version, guess based on the file
if ( !$version && $src_tz =~ m($perl5_ver_re [^/]* $)xms )
{
my $major = $1;
my $minor = $2;
lib/App/MechaCPAN/Perl.pm view on Meta::CPAN
my $opts = shift;
# If there's no src, find the newest version.
if ( !defined $src )
{
# Do a terrible job of guessing what the current version is
use Time::localtime;
my $year = localtime->year() + 1900;
# 5.12 was released in 2010, and approximatly every May, a new even
# version was released
my $major = ( $year - 2010 ) * 2 + ( localtime->mon < 4 ? 10 : 12 );
# Verify our guess
{
my $dnld = _dnld_url( $major, 0 ) . ".md5.txt";
my $contents = '';
my $where = eval { fetch_file( $dnld => \$contents ) };
lib/App/MechaCPAN/Perl.pm view on Meta::CPAN
=item * If the parameter is a minor version (5.XX.X), it will attempt to download and install that exact version.
=back
In the cases where a version is given, and the C<--no-source-only> option is given, C<App::MechaCPAN::Perl> will attempt to download a binary archive prebuilt for the operating system. This guess is made by looking at how the currently executing L<pe...
After an archive is retrieved, it will be checked to see if it is a binary or source package. This is accomplished by checking for an executable C<bin/perl> file in the archive. Basic tests are ran to make sure the binary is usable, notably by runnin...
=head2 Arguments
lib/App/MechaCPAN/Perl.pm view on Meta::CPAN
By default, perl will not generate a libperl.a file. If you need libperl.so, then use this argument.
=head3 jobs
How many make jobs to use when running make. The code will guess if C<make> supports running multiple jobs, and as such, it may not work for all versions of make. Defaults to 2.
=head3 skip-tests
Test for perl are ran by default. If you are sure that the tests will pass and you want to save some time, you can skip the testing phase with this option.
=head3 smart-tests
As an alternative to telling C<App::MechaCPAN::Perl> to use tests or not, C<App::MechaCPAN::Perl> can try to be clever and guess if it needs to run tests. If there is a C<.perl-version> file and it is the same version that is being installed, then te...
C<smart-tests> are off by default, but are enabled by L<App::MechaCPAN::Deploy> when there is a C<cpanfile.snapshot> file. See L<App::MechaCPAN::Install/smart-tests>.
=head3 skip-local
App-Mimosa
view release on metacpan or search on metacpan
lib/App/Mimosa/Controller/JSON.pm view on Meta::CPAN
# insert data about new sequences
$rs->create({
title => "stuff and thangs",
sha1 => $sha1,
shortname => $seq_set,
# do we have to guess this?
alphabet => 'nucleotide',
info_url => 'http://localhost',
});
}
}
App-Module-Lister
view release on metacpan or search on metacpan
lib/App/Module/Lister.pm view on Meta::CPAN
For example, I have in C<@INC> the directory
C</usr/local/lib/perl5/5.8.8>. Inside that directory, I expect to find
something like C</usr/local/lib/perl5/5.8.8/Foo/Bar.pm>, which
translates in the module C<Foo::Bar>. If I find a directory like
C</usr/local/lib/perl5/5.8.8/lib/Foo/Bar.pm>, where I created the
extra C<lib> by hand, this program guesses the module name is
C<lib::Foo::Bar>. That's not a great tragedy, but I don't have a
simple way around that right now.
=item *
App-ModuleBuildTiny
view release on metacpan or search on metacpan
lib/App/ModuleBuildTiny/Dist.pm view on Meta::CPAN
my ($data, $filename, $authors, $mergedata) = @_;
if ($mergedata->{license} && @{$mergedata->{license}} == 1) {
require Software::LicenseUtils;
Software::LicenseUtils->VERSION(0.103014);
my $spec_version = $mergedata->{'meta-spec'} && $mergedata->{'meta-spec'}{version} ? $mergedata->{'meta-spec'}{version} : 2;
my @guess = Software::LicenseUtils->guess_license_from_meta_key($mergedata->{license}[0], $spec_version);
die "Couldn't parse license from metamerge: @guess\n" if @guess > 1;
if (@guess) {
my $class = $guess[0];
require_module($class);
return $class->new({holder => join(', ', @{$authors})});
}
}
my (@license_sections) = grep { /licen[cs]e|licensing|copyright|legal|authors?\b/i } $data->pod_inside;
for my $license_section (@license_sections) {
next unless defined ( my $license_pod = $data->pod($license_section) );
require Software::LicenseUtils;
Software::LicenseUtils->VERSION(0.103014);
my $content = "=head1 LICENSE\n" . $license_pod;
my @guess = Software::LicenseUtils->guess_license_from_pod($content);
next if not @guess;
die "Couldn't parse license from $license_section in $filename: @guess\n" if @guess != 1;
my $class = $guess[0];
my ($year) = $license_pod =~ /.*? copyright .*? ([\d\-]+)/;
require_module($class);
return $class->new({holder => join(', ', @{$authors}), year => $year});
}
die "No license found in $filename\n";
App-Mowyw
view release on metacpan or search on metacpan
If you don't have Text::VimColor installed, the characters '&', '<' and '>'
will still be automatically escaped.
The only argument to 'syntax' is the language that the code is in, if you use
a value that vim doesn't know it will try to guess the language.
The standard CSS classes are:
.synComment { color: #0000FF }
.synConstant { color: #FF00FF }
.synIdentifier { color: #008B8B }
App-MrShell
view release on metacpan or search on metacpan
my ($wid, $count) = @_[ ARG0, ARG1 ];
return unless $this->{_wid}{$wid}; # sometimes we'll get a sigchild *and* a close event
# NOTE: I was getting erratic results with some fast running commands and
# guessed that I was sometimes getting the close event before the stdout
# event. Waiting through the kernel loop once is probably enough, but I
# used 3 because it does't hurt either.
if( $count > 3 ) {
my ($kid, $host, $cmdno, $lineno, @c) = @{ delete $this->{_wid}{$wid} };
( run in 4.406 seconds using v1.01-cache-2.11-cpan-39bf76dae61 )