view release on metacpan or search on metacpan
lib/App/ShellUtils.pm view on Meta::CPAN
This distribution contains the following CLI utilities:
=over
=item * L<guess-shell>
=back
=head1 HOMEPAGE
view release on metacpan or search on metacpan
local/lib/perl5/Crypt/OpenSSL/Guess.pm view on Meta::CPAN
if ($^O ne 'MSWin32' and my $prefix = `brew --prefix --installed openssl 2>@{[File::Spec->devnull]}`) {
chomp $prefix;
return $prefix;
}
my @guesses = (
'/home/linuxbrew/.linuxbrew/opt/openssl/bin/openssl' => '/home/linuxbrew/.linuxbrew/opt/openssl', # LinuxBrew openssl
'/opt/homebrew/opt/openssl/bin/openssl' => '/opt/homebrew/opt/openssl', # macOS ARM homebrew
'/usr/local/opt/openssl/bin/openssl' => '/usr/local/opt/openssl', # OSX homebrew openssl
'/usr/local/bin/openssl' => '/usr/local', # OSX homebrew openssl
'/opt/local/bin/openssl' => '/opt/local', # Macports openssl
local/lib/perl5/Crypt/OpenSSL/Guess.pm view on Meta::CPAN
'/sslexe/openssl.exe' => '/sslroot', # VMS, openssl.org
'/ssl1$exe/openssl.exe' => '/ssl1$root',# VMS, VSI or HPE install
'/ssl$exe/openssl.exe' => '/ssl$root', # VMS, HP install
);
while (my $k = shift @guesses
and my $v = shift @guesses) {
if ( -x $k ) {
return $v;
}
}
(undef, $dir) = check_no_path()
local/lib/perl5/Crypt/OpenSSL/Guess.pm view on Meta::CPAN
use Crypt::OpenSSL::Guess;
WriteMakefile(
# ...
LIBS => [openssl_lib_paths() . ' -lssl -lcrypto'],
INC => openssl_inc_paths(), # guess include path or get from $ENV{OPENSSL_PREFIX}
);
=head1 DESCRIPTION
Crypt::OpenSSL::Guess provides helpers to guess OpenSSL include path on any platforms.
Often macOS's homebrew OpenSSL cause a problem on installation due to include path is not added.
Some CPAN module provides to modify include path with configure-args, but L<Carton> or L<Module::CPANfile>
is not supported to pass configure-args to each modules. Crypt::OpenSSL::* modules should use it on your L<Makefile.PL>.
view release on metacpan or search on metacpan
lib/App/Sky/Manager.pm view on Meta::CPAN
one filename.
=item * 'section'
An optional section that will override the target section. If not specified,
the uploader will try to guess based on the file’s basename and the manager
configuration.
=item * 'target_dir'
Overrides the target directory for the upload, to ignore that dictated by
view release on metacpan or search on metacpan
bin/slaughter view on Meta::CPAN
{
#
# Portable filename construction
#
my $guess = File::Spec->catfile( $dir, "Slaughter", "Transport" );
#
# Found the module directory?
#
if ( -d $guess )
{
foreach my $pm ( sort( glob( $guess . "/*.pm" ) ) )
{
# skip the base-class
next if ( $pm =~ /revisionControl\.pm/ );
bin/slaughter view on Meta::CPAN
if ( $CONFIG{ 'prefix' } && !$CONFIG{ 'transport' } )
{
# show what is going on
$CONFIG{ 'verbose' } &&
print "Attempting to guesss transport for $CONFIG{'prefix'}\n";
# git://.... or http://.../foo.git
$CONFIG{ 'transport' } = "git"
if ( $CONFIG{ 'prefix' } =~ /(^git|\.git$)/i );
view release on metacpan or search on metacpan
lib/SVN/Dump/Replayer/Git.pm view on Meta::CPAN
close $tmp or confess $!;
$self->git_env_setup($revision);
# Some changes seem to alter no files. We can detect whether a
# commit is needed using git-status. Otherwise, if we guess wrong,
# git-commit will fail if there's nothing to commit. We bother
# checking git-commit because we do want to catch errors.
# TODO - git-status is slow after a while. Can we do something
# smart to avoid it in all cases?
view release on metacpan or search on metacpan
socialcalc/SocialCalcServersideUtilities.pm view on Meta::CPAN
CalculateCellSkipData($context, $options);
PrecomputeSheetFontsAndLayouts($context, $options);
CalculateColWidthData($context, $options);
# Make a reasonable guess about the size of our rendered sheet, then
# pre-extend that SV. This is *critical* for mod_perl performance,
# as malloc there is much slower there than the command line.
my $outstr = ("\x00" x ($context->{maxrow} * $context->{maxcol} * 100));
$outstr = '';
view release on metacpan or search on metacpan
lib/App/SourcePlot/Source.pm view on Meta::CPAN
}
elsif (@_) {
print "Passed in paramaters are being entered\n" if $locateBug;
my ($ra, $dec, $epoc, undef) = @_;
# Prevent Astro::Coords guessing between radians and degrees.
my $unit = ($ra =~ /:/ or $dec =~ /:/)
? 'sexagesimal'
: 'degrees';
if ($epoc eq 'RJ') {
view release on metacpan or search on metacpan
- Add localization with Locale::TextDomain
0.10 2019-03-30T20:59:56Z
- Add --conf, --version and --help command line parameters
- Fix and improve doc
- Add default value when defined for options guessed from Target and
MsgWriter consuming classes
- Add wikipedia_link option to revolutionarydate msgmaker
- Process wikipedia ambiguous links
- Fix another typo in TODO
- Fix typo in TODO
view release on metacpan or search on metacpan
lib/App/Sqitch/Engine/pg.pm view on Meta::CPAN
return $uri->as_string;
}
# DBD::pg and psql use fallbacks consistently, thanks to libpq. These include
# environment variables, system info (username), the password file, and the
# connection service file. Best for us not to second-guess these values,
# though we admittedly try when setting the database name in the destination
# URI for unnamed targets a few lines up from here.
sub _def_user { }
sub _def_pass { }
view release on metacpan or search on metacpan
#ifndef IVSIZE
# ifdef LONGSIZE
# define IVSIZE LONGSIZE
# else
# define IVSIZE 4 /* A bold guess, but the best we can make. */
# endif
#endif
#ifndef UVTYPE
# define UVTYPE unsigned IVTYPE
#endif
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
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
binaries is smaller.
Also, this leaves "gethostbyname" in - not only is it actually used
often, the Socket module also exposes it, so leaving it out usually
gains little. Why Socket exposes a C function that is in the core
already is anybody's guess.
ADDITIONAL RESOURCES
Some guy has made a repository on github
(<https://github.com/gh0stwizard/staticperl-modules>) with some modules
patched to build with staticperl.
view release on metacpan or search on metacpan
lib/App/SymlinkUtils.pm view on Meta::CPAN
=item * B<content_matches> => I<bool>
Whether content should match extension.
If set to true, will guess media type from content and check that file extension
exists nd matches the media type. Requires L<File::MimeInfo::Magic>, which is
only specified as a "Recommends" dependency by File-Symlink-Util distribution.
=item * B<ext_matches> => I<bool>
lib/App/SymlinkUtils.pm view on Meta::CPAN
=item * B<content_matches> => I<bool>
Whether content should match extension.
If set to true, will guess media type from content and check that file extension
exists nd matches the media type. Requires L<File::MimeInfo::Magic>, which is
only specified as a "Recommends" dependency by File-Symlink-Util distribution.
=item * B<ext_matches> => I<bool>
view release on metacpan or search on metacpan
bin/tacochan view on Meta::CPAN
);
}
sub res_404 { $_[0]->render_text(404, 'Not Found') }
sub guess_chat {
my ($self, $stuff) = @_;
if ($stuff =~ /^#/) {
# from chatname
return $skype->chat($stuff);
} elsif ($stuff =~ /^skype:/) {
bin/tacochan view on Meta::CPAN
return $c->render_text(500, 'Skype is not running')
}
my $chat = $c->req->param('chat');
my $chat_obj = $c->guess_chat($chat);
eval {
$chat_obj->alter('leave');
};
if ($@) {
return $c->render_text(403, "leave failure chat: $chat");
bin/tacochan view on Meta::CPAN
}
my $chat = $c->req->param('chat');
my $message = $c->req->param('message');
my $chat_obj = $c->guess_chat($chat);
eval {
$chat_obj->send_message($message);
};
if ($@) {
return $c->render_text(403, "message sent failure chat: $chat $message");
bin/tacochan view on Meta::CPAN
return $c->render_text(500, 'Skype is not running');
}
my $chat = $c->req->param('chat');
my $chat_obj = $c->guess_chat($chat);
return $c->render_text(200, "$chat_obj->{id}");
};
__PACKAGE__->load_plugin('Web::JSON');
view release on metacpan or search on metacpan
inc/Module/AutoInstall.pm view on Meta::CPAN
else {
print
"*** Dependencies will be installed the next time you type '$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::getcwd() );
view release on metacpan or search on metacpan
examples/complex/input/stylesheet.skx view on Meta::CPAN
<p>Here the code basically says:</p>
<ul>
<li>If there is a variable called "stylesheet" set then use it.</li>
<li>Otherwise include the "style.css" link.</li>
</ul>
<p>If you guessed you could then set a per-page stylesheet-variable you'd be correct.</p>
<p>This page contains a link to one:</p>
<pre>
title: Stylesheet Example
stylesheet: dark.css
----
view release on metacpan or search on metacpan
lib/App/ThisDist.pm view on Meta::CPAN
}
}
__DISABLED__FROM_REPO_NAME: {
last; # currently disabled
log_debug "Using CPAN::Dist::FromRepoName to guess from dir name ...";
require CPAN::Dist::FromRepoName;
my $res = CPAN::Dist::FromRepoName::extract_cpan_dist_from_repo_name($dir_basename);
if (defined $res) {
$distname = $res;
log_debug "Guessed distname=$distname from repo name '$dir_basename'";
lib/App/ThisDist.pm view on Meta::CPAN
$detailinfo->{source} = "archive";
$detailinfo->{archive_file} = $distfile;
last GUESS;
}
log_debug "Can't guess distribution, giving up";
} # GUESS
if ($detail) {
$detailinfo->{dist} = $distname;
$detailinfo->{dist_version} = $distver;
lib/App/ThisDist.pm view on Meta::CPAN
=head1 SEE ALSO
L<App::DistUtils>
C<my_dist()> from L<Dist::Util::Current> tries to guess distribution name
associated with source code file. It uses us when guessing via C<$DIST> or
F<.packlist> files fail.
=head1 AUTHOR
perlancar <perlancar@cpan.org>
view release on metacpan or search on metacpan
lib/App/TimeTracker/Command/GitHub.pm view on Meta::CPAN
=head3 repo [REQUIRED]
The name of the repository you are working on. Currently a required
entry to the config file, but we might upgrade it to a command line
param and/or try to guess it from the current working dir or your git
config.
=head3 api_uri
Optional.
view release on metacpan or search on metacpan
lib/App/TimelogTxt/Utils.pm view on Meta::CPAN
sub day_stamp
{
my ( $day ) = @_;
return today_stamp() if is_today( $day );
# Parse the string to generate a reasonable guess for the day.
return canonical_datestamp( $day ) if is_datestamp( $day );
$day = lc $day;
return unless grep { $day eq $_ } $YESTERDAY, @DAYS;
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
lib/App/WRT/Sort.pm view on Meta::CPAN
my @parts = map {
my $padded;
if (m/^\d+$/) {
# There's a year 100k bug here, but I guess I'll cross that bridge when I
# come to it:
$padded = sprintf("%05d", $_);
} else {
$padded = $_;
}
view release on metacpan or search on metacpan
lib/App/Wax.pm view on Meta::CPAN
my $name = $self->app_name;
my $message = @args ? sprintf($template, @args) : $template;
warn "$name: $level: $message", $/;
}
# return a best-effort guess at the URL's file extension based on its content
# type, e.g. ".md" or ".tar.gz", or an empty string if one can't be determined.
# XXX note: makes a network request to determine the content type
method extension ($_url) {
my ($url, $url_index) = @$_url;
my $extension = '';
view release on metacpan or search on metacpan
=head1 DESCRIPTION
C<yg> is a log viewer(filter) to show log lines vertically.
When you check apache logs, I guess you do like this
$ cat apache_log
127.0.0.1 - - [30/Sep/2012:12:34:56 +0900] "GET /foo HTTP/1.0" 200 123 "http://example.com/foo" "Mozilla/5.0"
127.0.0.1 - - [30/Sep/2012:12:34:57 +0900] "GET /bar HTTP/1.0" 301 124 "http://example.com/bar" "Mozilla/5.1"
view release on metacpan or search on metacpan
script/_chinese-zodiac-of view on Meta::CPAN
# my $self = shift;
# $self->{stream} .= join '', @_;
#}
#
## Emit a string value. YAML has many scalar styles. This routine attempts to
## guess the best style for the text.
#sub _emit_str {
# my $self = shift;
# my $type = $_[1] || 0;
#
# # Use heuristics to find the best scalar emission style.
view release on metacpan or search on metacpan
lib/App/ZofCMS/Plugin/DBIPPT.pm view on Meta::CPAN
Ok, the name C<DBIPPT> isn't the most clear choice for the name of
the plugin, but when I first wrote out the full name I realized that
the name alone defeats the purpose of the plugin - saving keystrokes -
so I shortened it from C<DBIPostProcessLargeText> to C<DBIPPT> (the C<L>
was lost in "translation" as well). If you're suffering from memory
problems, I guess one way to remember the name is "B<P>lease B<Process>
B<This>".
=head1 FIRST-LEVEL ZofCMS TEMPLATE AND MAIN CONFIG FILE KEYS
=head2 C<plugins>
view release on metacpan or search on metacpan
lib/App/a2p.pm view on Meta::CPAN
in. You may wish to remove it.
Perl differentiates numeric comparison from string comparison. Awk
has one operator for both that decides at run time which comparison to
do. A2p does not try to do a complete job of awk emulation at this
point. Instead it guesses which one you want. It's almost always
right, but it can be spoofed. All such guesses are marked with the
comment "C<#???>". You should go through and check them. You might
want to run at least once with the B<-w> switch to perl, which will
warn you if you use == where you should have used eq.
Perl does not attempt to emulate the behavior of awk in which
lib/App/a2p.pm view on Meta::CPAN
=head1 BUGS
It would be possible to emulate awk's behavior in selecting string
versus numeric operations at run time by inspection of the operands,
but it would be gross and inefficient. Besides, a2p almost always
guesses right.
Storage for the awk syntax tree is currently static, and can run out.
view release on metacpan or search on metacpan
0.003 2012-11-13 22:08:29 Europe/Berlin
[BUGS]
Corrected a minor bug in a test: I guessed the order of directory entries.
Thanks to CPAN Testers this was caught.
The POD for autotest contained duplicate entries since I typed (manually)
what Dist::Zilla adds (automatically).
view release on metacpan or search on metacpan
aclocal.m4
announce-gen
autogen.sh
bootstrap
compile
config.guess
config.h.in
config.rpath
config.status
config.sub
configure
# Note that /usr/src/redhat/BUILD/ucd-snmp-4.1.1/ov/bitmaps/UCD.20.p
# is actually C code. The heuristics determine that they're not Pascal,
# but because it ends in ".p" it's not counted as C code either.
# I believe this is actually correct behavior, because frankly it
# looks like it's automatically generated (it's a bitmap expressed as code).
# Rather than guess otherwise, we don't include it in a list of
# source files. Let's face it, someone who creates C files ending in ".p"
# and expects them to be counted by default as C files in SLOCCount needs
# their head examined. I suggest examining their head
# with a sucker rod (see syslogd(8) for more on sucker rods).