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 ;
}
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.
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
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 );
}
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 {
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,
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
view release on metacpan or search on metacpan
lib/App/Greple/wordle/word_all.pm view on Meta::CPAN
gruel
gruff
grunt
guard
guava
guess
guest
guide
guild
guile
guilt
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 / フィルター
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 _ ) {
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
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
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
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
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
view release on metacpan or search on metacpan
lib/App/MHFS.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';
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
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;
}
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,
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
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',
});
}
}
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 *
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";
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 }
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} };
view release on metacpan or search on metacpan
lib/ChordPro/Output/Markdown.pm view on Meta::CPAN
) {
$t_line = join( "", @phrases );
return md_textline($cp.$t_line);
}
unless ( $elt->{chords} ) { # i guess we have a line with no chords now...
return ($cp. md_textline( join( " ", @phrases )) );
}
if ( my $f = $::config->{settings}->{'inline-chords'} ) {
$f = '[%s]' unless $f =~ /^[^%]*\%s[^%]*$/;
view release on metacpan or search on metacpan
public/javascripts/ace/ace.js view on Meta::CPAN
});
if (!ranges.length || sameRowRanges.length == ranges.length - 1) {
var range = this.selection.getRange();
var fr = range.start.row, lr = range.end.row;
var guessRange = fr == lr;
if (guessRange) {
var max = this.session.getLength();
var line;
do {
line = this.session.getLine(lr);
} while (/[=:]/.test(line) && ++lr < max);
public/javascripts/ace/ace.js view on Meta::CPAN
if (fr < 0) fr = 0;
if (lr >= max) lr = max - 1;
}
var lines = this.session.removeFullLines(fr, lr);
lines = this.$reAlignText(lines, guessRange);
this.session.insert({row: fr, column: 0}, lines.join("\n") + "\n");
if (!guessRange) {
range.start.column = 0;
range.end.column = lines[lines.length - 1].length;
}
this.selection.setRange(range);
} else {
view release on metacpan or search on metacpan
share/public/swagger-ui/swagger-ui-bundle.js.map view on Meta::CPAN
{"version":3,"sources":["webpack:///webpack/universalModuleDefinition","webpack:///webpack/bootstrap 396b8c743e9ffbc09e47","webpack:///./node_modules/react/react.js","webpack:///./node_modules/prop-types/index.js","webpack:///./node_modules/babel-run...
view release on metacpan or search on metacpan
lib/App/Netsync/Configurator.pm view on Meta::CPAN
$defaults //= {};
{
open (my $ini,'<',$file);
my $parser = Config::Simple->new($file);
my $syntax = $parser->guess_syntax($ini);
unless (defined $syntax and $syntax eq 'ini') {
say 'The configuration file "'.$file.'" is malformed.';
return undef;
}
close $ini;
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() );