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
#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
lib/Business/cXML.pm view on Meta::CPAN
}
=item C<B<sender_callback>( I<$sub> )>
By default, a request's From/Sender credentials are only used to guess
response credentials. If you specify a callback here, it will be invoked
immediately after XML parsing, before passing to transaction handlers, giving
you an opportunity to authenticate the caller.
Your subroutine will be passed 3 arguments:
view release on metacpan or search on metacpan
lib/BusyBird/Manual/Config.pod view on Meta::CPAN
=head1 EXAMPLES
=head2 Customize Timestamps
Status timestamps are rendered using C<time_zone>, C<time_format>, C<time_locale> parameters.
By default L<BusyBird> guesses the "correct" config for your system.
busybird->set_config(
time_zone => 'America/Los_Angeles',
time_format => '%Y-%m-%d %A %H:%M:%S %Z',
time_locale => 'en_US',
view release on metacpan or search on metacpan
BuzzSaw.spec view on Meta::CPAN
with the DBI layer. This should make things quicker
* Wed Jul 04 2012 15:18 squinney@INF.ED.AC.UK
- lcfg.yml, lib/BuzzSaw/Parser/RFC3339.pm.in: Completely reworked
the parser. This should be correct more of the time and it's
better at guessing the name/pid for programs. It should also be
slightly faster as the regular expressions are no longer
recompiled on every call to the subroutine.
* Mon Jul 02 2012 16:32 squinney@INF.ED.AC.UK
- lib/BuzzSaw/DB.pm.in: Adjusted some debugging so it is clearer
view release on metacpan or search on metacpan
* capable of those should have IVSIZE already. */
#if !defined(IVSIZE) && defined(LONGSIZE)
# define IVSIZE LONGSIZE
#endif
#ifndef IVSIZE
# define IVSIZE 4 /* A bold guess, but the best we can make. */
#endif
#ifndef UVSIZE
# define UVSIZE IVSIZE
#endif
view release on metacpan or search on metacpan
lib/Bytes/Random/Secure.pm view on Meta::CPAN
=head2 bytes_qp
my $random_qp = $random->bytes_qp( 80 );
You guessed it: Identical in function to C<random_bytes_qp>.
=head2 irand
my $unsigned_long = $random->irand;
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
script/pl2exe.pl view on Meta::CPAN
224, # size of the IMAGE_OPTIONAL_HEADER
0x010f # random flags: 0xa18e(?) for a DLL
);
$headers .= pack ('SCCL9S6L4SSL6', # IMAGE_OPTIONAL_HEADERS substruct
0x010b, # 0x0107 would be a ROM image
1,0, # linker version maj.min (I guess that's us)
$code_size,
0,0, # size of initialized/un- data
0x1000, # RVA of entry point
# (the RVA is the address when loaded,
# relative to the image base)
view release on metacpan or search on metacpan
contrib/lib/ModPerl/CScan.pm view on Meta::CPAN
for my $o (0..$#$typedefs) {
my $wh = $whited->[$o];
my $td = $typedefs->[$o];
#my $verb = $td =~ /apr_child_errfn_t/ ? 1 : 0;
#warn "$wh || $td\n" if $verb;
if ($wh =~ /,/ or not $wh =~ /\w/) { # Hard case, guessimates ...
# Determine whether the new thingies are inside parens
$wh =~ /,/g;
my $p = pos $wh;
my ($s, $e);
if (matchingbrace($wh)) { # Inside. Easy part: just split on /,/...
view release on metacpan or search on metacpan
loop:
for my $o (0..$#$typedefs) {
my $wh = $whited->[$o];
my $td = $typedefs->[$o];
if ($wh =~ /,/ or not $wh =~ /\w/) { # Hard case, guessimates ...
# Determine whether the new thingies are inside parens
$wh =~ /,/g;
my $p = pos $wh;
my ($s, $e);
if (matchingbrace($wh)) { # Inside. Easy part: just split on /,/...
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
lib/C/TinyCompiler.pm view on Meta::CPAN
=item Unable to relocate: <message>
The last step in converting your C code to machine-executable code is relocating
the bytecode. This could fail, though I do not understand compilers well enough
to explain why. If I had to guess, I would say you probably ran out of memory.
(Sorry I cannot provide more insight into how to fix this sort of problem.
Feedback for a better explanation would be much appreciated. :-)
=back
view release on metacpan or search on metacpan
src/sparse-0.4.4/perl/t/include/exec/exec-all.h view on Meta::CPAN
#define DISAS_TB_JUMP 3 /* only pc was modified statically */
struct TranslationBlock;
typedef struct TranslationBlock TranslationBlock;
/* XXX: make safe guess about sizes */
#define MAX_OP_PER_INSTR 208
#if HOST_LONG_BITS == 32
#define MAX_OPC_PARAM_PER_ARG 2
#else
src/sparse-0.4.4/perl/t/include/exec/exec-all.h view on Meta::CPAN
#define OPC_BUF_SIZE 640
#define OPC_MAX_SIZE (OPC_BUF_SIZE - MAX_OP_PER_INSTR)
/* Maximum size a TCG op can expand to. This is complicated because a
single op may require several host instructions and register reloads.
For now take a wild guess at 192 bytes, which should allow at least
a couple of fixup instructions per argument. */
#define TCG_MAX_OP_SIZE 192
#define OPPARAM_BUF_SIZE (OPC_BUF_SIZE * MAX_OPC_PARAM)
view release on metacpan or search on metacpan
lib/CAD/Drawing/IO/Tk.pm view on Meta::CPAN
# OKAY, so we've got 4 zoom actions and we don't get text or images
# for free.
# this takes away all of our fun of having sizable texts (hmm. I
# guess we could create this font from anywhere?)
# XXX this is going to have some odd behaviour for now, but it isn't
# worth trying to make a word-processor widget behave like scalable
# text.
$textsize = $text_base;
view release on metacpan or search on metacpan
lib/CAD/Firemen/Common.pm view on Meta::CPAN
=head2 getInstallationConfigCdb
Uses getInstallationConfigPath() to return the full path to the related config.cdb.
You may specify the installation path to get the related config.pro. If not given, it uses
getInstallationPath() to guess or ask one.
=head2 getInstallationConfigPro
Uses getInstallationConfigPath() to return the full path to the related config.pro.
You may specify the installation path to get the related config.pro. If not given, it uses
getInstallationPath() to guess or ask one.
=head2 sharedDir
Returns the path to the shared directory where all modules and scripts of this
distribution places their files.
view release on metacpan or search on metacpan
lib/CAM/PDF.pm view on Meta::CPAN
{
$stringwidth = $w;
}
}
$lines ||= 1;
# Initial guess
$fontsize = ($dy - 2 * $border) / ($lines * 1.5);
my $fontwidth = $fontsize * $stringwidth;
my $maxwidth = $dx - 2 * $border;
if ($fontwidth > $maxwidth)
{
lib/CAM/PDF.pm view on Meta::CPAN
# TODO: wrap the field with wrapString()??
# Shawn Dawson of Silent Solutions pointed out that this does not auto-wrap the input text
my $linebreaks = $text =~ s/ \\n /\) Tj T* \(/gxms;
# Total guess work:
# line height is either 150% of fontsize or thrice
# the corner offset
$tl = $fontsize ? $fontsize * 1.5 : $ty * 3;
# Bottom aligned
view release on metacpan or search on metacpan
lib/CAM/PDFTaxforms.pm view on Meta::CPAN
$lines++;
my $w = $self->getStringWidth($fontmetrics, $line);
$stringwidth = $w if ($w && $w > $stringwidth);
}
$lines ||= 1;
# Initial guess
$fontsize = ($dy - 2 * $border) / ($lines * 1.5);
my $fontwidth = $fontsize * $stringwidth;
my $maxwidth = $dx - 2 * $border;
$fontsize *= $maxwidth / $fontwidth if ($fontwidth > $maxwidth);
$da =~ s/ \/$fontname\s+0\s+Tf\b /\/$fontname $fontsize Tf/gxms;
lib/CAM/PDFTaxforms.pm view on Meta::CPAN
# TODO: wrap the field with wrapString()??
# Shawn Dawson of Silent Solutions pointed out that this does not auto-wrap the input text
my $linebreaks = $text =~ s/ \\n /\) Tj T* \(/gxms;
# Total guess work:
# line height is either 150% of fontsize or thrice
# the corner offset
$tl = $fontsize ? $fontsize * 1.5 : $ty * 3;
# Bottom aligned
view release on metacpan or search on metacpan
easyxs/ppport.h view on Meta::CPAN
#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
lib/CBOR/PP/Encode.pm view on Meta::CPAN
Note that there is no “right way†to determine whether an arbitrary
Perl (non-reference) scalar should be encoded as a string or as a number.
The above seems a reasonable enough approach.
=item * UTF8-flagged strings are encoded as text; others are encoded as
binary. This is a “best-guess†merely; Perl’s UTF8 flag doesn’t reliably
indicate whether a given string is a text or a byte string.
=item * undef, Types::Serialiser::true(), and Types::Serialiser::false()
are encoded as null, true, and false, respectively.
view release on metacpan or search on metacpan
=head2 PERL -> CBOR
The mapping from Perl to CBOR is slightly more difficult, as Perl is a
typeless language. That means this module can only guess which CBOR type
is meant by a perl value.
=over 4
=item hash references
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
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
sub deliverFile {
my $o = shift;
my $request = shift;
my $file = shift;
my $contentType = shift // $o->guessContentType($file);
my $bytes = $o->readFile($file) // return $request->reply404;
return $request->reply(200, 'OK', {'Content-Type' => $contentType}, $bytes);
}
# Guesses the content type from the extension
sub guessContentType {
my $o = shift;
my $file = shift;
my $extension = $file =~ /\.([A-Za-z0-9]*)$/ ? lc($1) : '';
return $o->{mimeTypesByExtension}->{$extension} // 'application/octet-stream';
$o->{ui}->progress('MODIFY +', scalar @{$modifications->additions}, ' -', scalar @{$modifications->removals}, ' on ', $o->{url});
return $o->{store}->modify($modifications, $keyPair);
}
# Displays a record, and tries to guess the byte interpretation
package CDS::UI::Record;
sub display {
my $class = shift;
my $ui = shift;
$context =~ /(^| )key( |$)/ ? $o->hexValue($bytes) :
$context =~ /(^| )signature( |$)/ ? $o->hexValue($bytes) :
$context =~ /(^| )revision( |$)/ ? $o->revisionValue($bytes) :
$context =~ /(^| )date( |$)/ ? $o->dateValue($bytes) :
$context =~ /(^| )expires( |$)/ ? $o->dateValue($bytes) :
$o->guessValue($bytes);
push @value, ' ', $o->{ui}->blue($hash->hex), $o->{onStore} if $hash && ($bytes && length $bytes != 32);
$o->{ui}->line(@value);
# Children
my $length = length $bytes;
return '#'.unpack('H*', substr($bytes, 0, $length)) if $length <= 64;
return '#'.unpack('H*', substr($bytes, 0, 64)), '…', $o->{ui}->gray(' (', $length, ' bytes)');
}
sub guessValue {
my $o = shift;
my $bytes = shift;
my $length = length $bytes;
my $text = $length > 64 ? substr($bytes, 0, 64).'…' : $bytes;
view release on metacpan or search on metacpan
lib/CGI/Alert.pm view on Meta::CPAN
# Not a CODE ref or string
push @warnings, "[Yo! What is \$Browser_Text? It's '$what', and I only grok 'CODE' or '' (strings)]";
}
}
else {
# $Browser_Text undefined - I guess we just show nothing to user?
}
# Generate a message body for the email we're going to send out
my @text = ("The script died with:",
view release on metacpan or search on metacpan
lib/CGI/Application/Dispatch.pm view on Meta::CPAN
}
# Apache will report $errno in access.log
my $header .= "Status: $errno $status_lines{$errno}\n";
# try to guess, what a crap we get here
$header .=
$output =~ /<html/i
? "Content-type: text/html\n\n"
: "Content-type: text/plain\n\n";
view release on metacpan or search on metacpan
caf_project/Example/common-modules/Example.pm view on Meta::CPAN
# (1, $user) --> user was found, password given correct
#
# ** (1, undef) --> not possible! this will never happen **
#
# Note that you are responsible for creating a login.html
# HTML::Template file (or just plain HTML file I guess
# but that's a dumb idea) that is on the template search path
# that will provide something logically equivalent to username
# and password form fields, that you will use here. You can
# name them what you want to here; Framework.pm makes
# no assumptions regarding what they should be called.
caf_project/Example/common-modules/Example.pm view on Meta::CPAN
# (1, $user) --> user was found, password given correct
#
# ** (1, undef) --> not possible! this will never happen **
#
# Note that you are responsible for creating a relogin.html
# HTML::Template file (or just plain HTML file I guess
# but that's a dumb idea) that is on the template search path
# that will provide something logically equivalent to a password
# form field, that you will use here. You can name them what
# you want to here; Framework.pm makes no assumptions
# regarding what they should be called.
view release on metacpan or search on metacpan
lib/CGI/Application/Plugin/AnyTemplate.pm view on Meta::CPAN
if (exists $plugin_config->{'string'}) {
$string_ref = $plugin_config->{'string'} || '';
$string_ref = \$string_ref unless ref $string_ref;
}
# if no string, then guess template filename
my $filename;
unless ($string_ref) {
$filename = $self->_guess_template_filename($plugin_config, \%driver_config, $type, $self->{'webapp'}->get_current_runmode);
}
# call load_tmpl hook
my %tmpl_params;
lib/CGI/Application/Plugin/AnyTemplate.pm view on Meta::CPAN
croak "CAP::AnyTemplate: template driver $module could not be found: $@";
}
return $module;
}
sub _guess_template_filename {
my ($self, $plugin_config, $driver_config, $type, $crm) = @_;
my $filename;
if (exists $plugin_config->{'file'}) {
view release on metacpan or search on metacpan
lib/CGI/Application/Plugin/Authentication/Driver/DBI.pm view on Meta::CPAN
Note: This option is only useful if you also specify the COLUMNS option.
=head1 ENCODED PASSWORDS
It is quite common to store passwords in a database in some form that makes them hard
(or virtually impossible) to guess. Most of the time one way encryption techniques
like Unix crypt or MD5 hashes are used to store the password securely (I would recommend
using MD5 or SHA1 over Unix crypt). If you look at the examples listed above, you can
see that you can mark your columns with an encoding type. Here is another example:
CONSTRAINTS => {