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::cwd() );
view release on metacpan or search on metacpan
Revision history for Perl extension Apache::Cookie::Encrypted.
0.03 Mon June 4 15:00:00 2001
- changed the key retrieval system. This makes this module for use with
mod_perl only. I guess I'll have to work on one for plain CGI using
CGI::Cookie just to be fair. :)
0.02 Sat June 2 23:30:00 2001
- fixed inheritance. It just wasn't working for some reason.
view release on metacpan or search on metacpan
inc/ExtUtils/AutoInstall.pm view on Meta::CPAN
_check_lock(); # check for $UnderCPAN
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;
inc/ExtUtils/AutoInstall.pm view on Meta::CPAN
_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
EmailAddress objects may be "send" or "receive" or both now
0.013 2007-12-17
declare that we require 5.008; easier than fixing tests, but patches
welcome, I guess
0.012 2007-11-12
stop brokenly reaching into guts of Config::INI::Reader object
(thanks, JCAP!)
remove spurious 'use' statement in addex program
view release on metacpan or search on metacpan
=over 4
=item uri, protocol, host, port
These are used to construct the base URL for the site. If you don't define
these, then the program will try to guess them. It will use the value of the
`uri` variable if it is defined. If not, it will use the values of the
`protocol`, `host` and `port` variables. If any of these aren't defined, it
will use the values "https", the result of calling `hostname` and no port
(which is, effectively, port 80) respectively.
view release on metacpan or search on metacpan
lib/App/ArduinoBuilder.pm view on Meta::CPAN
info ($built_sketch ? ' Success' : ' Already up-to-date');
$built_something |= $built_sketch;
$builder->run_hook('sketch.postbuild');
}
# Bug: there is a similar bug to the one in build_archive: if a source file is
# removed, we won’t remove it’s object file. I guess we could try to detect it.
# Meanwhile it’s probably acceptable to ask for a cleanup from time to time.
my @object_files = find_all_files_with_extensions(catdir($config->get('build.path'), 'sketch'), ['o']);
for my $l (@all_libs) {
push @object_files, find_all_files_with_extensions(catdir($config->get('build.path'), 'libs', $l), ['o']);
}
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
lib/App/Automaton/Plugin/Action/TedTalks.pm view on Meta::CPAN
This module is intended to be used from within the App::Automaton application.
It identifies and downloads links from the Ted Talks website www.ted.com.
This is done with the help of the www.offliberty.com service, which returns
all available links. A guess is then made to get the best quality video.
=head1 METHODS
=over 4
view release on metacpan or search on metacpan
print "It may very well be supported all the way back to ",
format_version(5.003_07), ".\n";
}
else {
print "But given the things $f depends on, it's a good",
" guess that it isn't\n",
"supported prior to ", format_version($todo), ".\n";
}
}
}
}
#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
lib/App/CELL/Guide.pm view on Meta::CPAN
App::CELL's objective is to provide a simple, straightforward way
to write and maintain localizable applications in Perl. Notice the key word
"localizable" -- the application may not, and most likely will not, be
localized in the initial stages of development, but that is the time when
localization-related design decisions need to be made. App::CELL tries to
take some of the guesswork out of those decisions.
Later, when it really is time for the application to be translated
into one or more additional languages, this becomes a relatively simple
matter of translating a bunch of text strings that are grouped together in
one or more configuration files with syntax so trivial that no technical
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
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
lib/App/CSVUtils/csv2vcf.pm view on Meta::CPAN
name => 'csv2vcf',
summary => 'Create a VCF from selected fields of the CSV',
description => <<'_',
You can set which CSV fields to use for name, cell phone, and email. If unset,
will guess from the field name. If that also fails, will warn/bail out.
_
add_args => {
name_vcf_field => {
summary => 'Select field to use as VCF N (name) field',
lib/App/CSVUtils/csv2vcf.pm view on Meta::CPAN
csv2vcf(input_filename => "addressbook.csv");
=back
You can set which CSV fields to use for name, cell phone, and email. If unset,
will guess from the field name. If that also fails, will warn/bail out.
This function is not exported.
Arguments ('*' denotes required arguments):
view release on metacpan or search on metacpan
inc/My/Module/Build.pm view on Meta::CPAN
=item I<type>
The datatype of this option, either as a word (e.g. "boolean", "integer" or
"string") or as a L<GetOpt::Long> qualifier (e.g. "!", "=s" or "=i").
The default is to guess from the name of the option: "install_foo" and
"enable_bar" are supposed to be booleans, "baz_port" an integer, and
everything else a string.
=back
inc/My/Module/Build.pm view on Meta::CPAN
=head2 Global variables
=head3 $running_under_emacs_debugger
Set by L</_massage_ARGV> if (you guessed it) we are currently running
under the Emacs debugger.
=cut
our $running_under_emacs_debugger;
view release on metacpan or search on metacpan
lib/App/CatalystStarter/Bloated.pm view on Meta::CPAN
my $dsn = shift;
return $dsn if $ARGV{'--nodsnfix'};
## unlikely but guess it could happen
l->debug("Prepended litteral 'dbi' to dsn") if $dsn =~ s/^:/dbi:/;
## if it doesn't start with dbi: by now, we'll nicely provide that
if ( lc substr( $dsn, 0, 4 ) ne "dbi:" ) {
l->debug("Prepended 'dbi:' to dsn");
view release on metacpan or search on metacpan
devel/makefile-to-debs.pl view on Meta::CPAN
# ### $filename
my $file = $module;
$file =~ s{::}{/}g;
$file .= '.pm';
my $deb = file_to_deb ($file);
print "$module $module_version builtin since $perl_version, drop to guess $deb\n";
return $deb;
}
print "$module $module_version builtin since $perl_version\n";
}
view release on metacpan or search on metacpan
Readability counts.
Special cases aren't special enough to break the rules.
Although practicality beats purity.
Errors should never pass silently.
Unless explicitly silenced.
In the face of ambiguity, refuse the temptation to guess.
There should be one-- and preferably only one --obvious way to do it.
Although that way may not be obvious at first unless you're Dutch.
Now is better than never.
Although never is often better than *right* now.
If the implementation is hard to explain, it's a bad idea.
view release on metacpan or search on metacpan
lib/Chronicle/Plugin/Snippets/Meta.pm view on Meta::CPAN
else
{
#
# Otherwise we just have the short, and
# can't guess the domain name.
#
# c.f. `domainname`.
#
$Chronicle::GLOBAL_TEMPLATE_VARS{ "build_host_short" } = $hostname;
}
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
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::cwd() );
view release on metacpan or search on metacpan
lib/App/DBBrowser/CreateDropAttach/CreateTable.pm view on Meta::CPAN
sub __edit_column_types {
my ( $sf, $sql, $data_types ) = @_;
my $tf = Term::Form->new( $sf->{i}{tf_default} );
my $ax = App::DBBrowser::Auxil->new( $sf->{i}, $sf->{o}, $sf->{d} );
my $fields;
if ( ! %$data_types && $sf->{o}{create}{data_type_guessing} ) {
$ax->print_sql_info( $ax->get_sql_info( $sql ), 'Column data types: guessing ... ' );
require SQL::Type::Guess;
my $g = SQL::Type::Guess->new();
my $header = $sql->{insert_col_names}; #
my $table = $sql->{insert_args};
my @aoh;
for my $row ( @$table ) {
push @aoh, {
map { $header->[$_] => $row->[$_] } 0 .. $#$header
};
}
$g->guess( @aoh );
my $tmp = $g->column_type;
$data_types = { map { $_ => uc( $tmp->{$_} ) } keys %$tmp };
}
if ( defined $data_types ) {
$fields = [ map { [ $_, $data_types->{$_} ] } @{$sql->{insert_col_names}} ];
view release on metacpan or search on metacpan
lib/App/DistUtils.pm view on Meta::CPAN
dist => {
summary => 'Distribution name, defaults to "this dist"',
schema => 'perl::distname::default_this_dist*',
description => <<'_',
See the <prog:this-dist> utility for how to guess for "this distribution".
_
pos => 0,
completion => sub {
require Complete::Dist;
view release on metacpan or search on metacpan
lib/App/DocKnot/Spin/Text.pm view on Meta::CPAN
sub _is_header {
my ($line) = @_;
return if $line =~ m{ \A [\w-]+: \s+ \N }xms;
}
# Whether a paragraph is a heading. This is all about heuristics and guesses,
# and there are a number of other things we could confuse for headings, so we
# have to be careful.
#
# If it's a single line and outdented from the baseline, it's probably a
# heading.
view release on metacpan or search on metacpan
lib/App/DubiousHTTP/Tests/Compressed.pm view on Meta::CPAN
Compression of Content is usueally done with a Content-Encoding header and a
value of 'gzip' (RFC1952) or 'deflate' (RFC1951). Most browsers additionally
accept RFC1950 compressed data (zlib) if 'deflate' is specified.
Some browsers also support compression with the Transfer-Encoding header,
which is actually specified in the HTTP RFC, but most browsers don't.
Some browsers just guess the encoding, e.g. accept gzip even if deflate is
specified.
And some browsers accept x-gzip and x-deflate specifications, and some even
specifications like "x gzip" or "gzip x".
Most browsers accept multiple content-encoding headers, even if it does not
make much sense to compress content twice with the same encoding.
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>.
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 {
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/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))
{