Result:
found more than 825 distributions - search limited to the first 2001 files matching your query
( run in 2.009 )
B-Hooks-OP-PPAddr
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
B-Hooks-Parser
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
B-Hooks-XSUB-CallAsOp
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
B-Lint-StrictOO
view release on metacpan or search on metacpan
lib/B/Lint/StrictOO.pm view on Meta::CPAN
my B::SVOP $method_op = $children[-1];
# Not a method call at all!
return if $invocant_op == $method_op;
my $category = guess_invocant_category( $invocant_op );
if ( _invocant_is_literal_class() == $category ) {
lint_class_method_call(
$invocant_op,
$method_op
lib/B/Lint/StrictOO.pm view on Meta::CPAN
return 0;
}
sub guess_invocant_category {
my ( $op ) = @_;
# We've been handed a B::NULL object which is a representation for
# a null pointer.
if ( ! $$op ) {
lib/B/Lint/StrictOO.pm view on Meta::CPAN
=head2 lint_class_method_call
=head2 nearby_classes_perform
=head2 guess_invocant_category
=head2 nearby_classes_in_current_file
=head2 nearby_classes_in_file
B-OPCheck
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
B-Tap
view release on metacpan or search on metacpan
lib/B/ppport.h view on Meta::CPAN
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";
}
}
}
}
lib/B/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
B-Utils
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
B-Utils1
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
BBCode-Parser
view release on metacpan or search on metacpan
* The current version of [IMG] always needs a closing [/IMG].
However, at this point I just want to get 0.30 out the door.
0.23 [2006-01-17 08:28:25 -0600]
* Rewrote part of the [LIST] tag handling to support implicit list items. It
guesstimates that each line of text is a new list item. WARNING: Using tags
within an implicit list item (e.g. [URL] or [B]) will NOT work.
* Despite previous reports to the contrary, research shows that HTML 4.01 has
absolutely no qualms about nesting block tags inside an <li>. My bad.
Further thanks to Alex Teslik for his real-world use of this module, which has
BIE-Data-HDF5
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
BPM-Engine
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() );
BSD-Process-Affinity
view release on metacpan or search on metacpan
inc/Module/Install/Makefile.pm view on Meta::CPAN
=head2 NAME
The NAME parameter is required by B<ExtUtils::MakeMaker>. If you have a
single module in your distribution, or if the module name indicated by
the current directory exists under F<lib/>, this module will use the
guessed package name as the default.
If this module can't find a default for C<NAME> it will ask you to specify
it manually.
=head2 VERSION
B<ExtUtils::MakeMaker> requires either the C<VERSION> or C<VERSION_FROM>
parameter. If this module can guess the package's C<NAME>, it will attempt
to parse the C<VERSION> from it.
If this module can't find a default for C<VERSION> it will ask you to
specify it manually.
BSD-Process
view release on metacpan or search on metacpan
http://www.landgren.net/perl/
If you (find a) use this module, I'd love to hear about it. If you
want to be informed of updates, send me a note. You know my first
name, you know my domain. Can you guess my e-mail address?
=head1 LICENSE
This library is free software; you can redistribute it and/or modify
it under the same terms as Perl itself.
BSD-Resource
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
BSD-Socket-Splice
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
BSD-devstat
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
BSD-getloadavg
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
BSON-XS
view release on metacpan or search on metacpan
bson/bson-timegm.c view on Meta::CPAN
if (yourtm.tm_isdst < 0 || mytm.tm_isdst == yourtm.tm_isdst)
break;
/*
** Right time, wrong type.
** Hunt for right time, right type.
** It's okay to guess wrong since the guess
** gets checked.
*/
sp = (const struct state *) gmtptr;
if (sp == NULL)
return WRONG;
BSON
view release on metacpan or search on metacpan
devel/bson-types-survey.md view on Meta::CPAN
* `type` - one of various constants
* `TO_JSON` - numeric value
* `to_string` – string value
* `isa_number` – a function, not a method; determines if a value is a
number or a string based on Perl's internal SV flags
* `guess_type` – a function, not a method; chooses a BSON type for a
numeric value (double, int32, int64)
It overloads string and boolean operators.
It is implemented as a Mojo::Base class.
BackPAN-Version-Discover
view release on metacpan or search on metacpan
bin/original_script.pl view on Meta::CPAN
# modules that will be skipped for various reasons. (eg, no matching dist,
# couldn't parse out needed info, core/vendor-packaged modules, etc...)
my ($dist_info, $skipped_modules) =
collect_module_dist_info( $mi_objs, \@search_dirs );
# use all this data to guess what CPAN releases are installed on this
# machine. If we can find a matching dist name and version on the backpan
# we'll assume there's a match.
#
# $bp_releases is a hash of { dist name => [ dist file paths...] }
# $no_release_matched is an array of dist names where no matches were found
bin/original_script.pl view on Meta::CPAN
return \%dist_info, \%skipped_modules;
}
# use the info we have to:
# a. guess which version of the dist is installed
# b. look for a release (dist-name + version) in the backpan index.
sub find_backpan_releases {
my ($dist_info) = @_;
# releases we were able to match are hits
bin/original_script.pl view on Meta::CPAN
# we can assume that the "installed version" of that same
# module is the version of the dist we want to find as a
# release on the backpan.
my @version_types = qw( mb_mod_inst_ver mev_mod_inst_ver cpan_mod_inst_ver mi_mod_inst_ver );
my @version_guesses;
for my $mod_data ( @{ $release_data->{module_data} } ) {
next unless $latest_dist_ver eq $mod_data->{cpan_mod_latest_ver};
push @version_guesses, grep { $_ and $_ ne 'undef' }
@{$mod_data}{@version_types};
}
@version_guesses = reverse uniq sort @version_guesses;
if ( ! @version_guesses ) {
# if we couldn't find a correlation between the dist version
# and any of the module versions, move on.
#printf "%-30s %-15s [no matching module versions]\n", $dist_name, $latest_dist_ver;
push @bp_misses, $dist_name;
next DIST;
}
#printf "%-30s %-15s [%s] ", $dist_name, $latest_dist_ver, join ' ', @version_guesses;
# maybe we have to latest CPAN version?
if( grep { $_ eq $latest_dist_ver } @version_guesses ) {
#print "[LATEST]\n";
next DIST;
}
for my $ver_guess ( @version_guesses ) {
if( my $bp_release = $bp->release( $dist_name, $ver_guess ) ) {
my $rel_path = $bp_release->path;
push @{ $bp_hits{ $dist_name } ||= [] }, "$rel_path";
#print "[FOUND: " . join( ' ', $rel_path ). "]\n";
next DIST;
}
BackupPC-XS
view release on metacpan or search on metacpan
- updates to bpc_attribCache to sanitize path names and prepending ac->currentDir
in bpc_attribCache_getDirEntries().
0.52: March 9, 2017
- updated config.guess and config.sub; fixes problem with aarch64 and ppc64le
reported by Denis Fateyev.
0.51: March 5, 2017
- added dynamic:: target to subdir Makefile.PLs to fix build issue on gentoo
Badger
view release on metacpan or search on metacpan
lib/Badger/Factory.pm view on Meta::CPAN
}
}
return $self->error_msg('no_item')
unless $item;
# use 'items' in config, or grokked from $ITEMS, or guess plural
$items = $config->{ items } || $items || plural($item);
my $ipath = $item.PATH_SUFFIX;
my $inames = $item.NAMES_SUFFIX;
my $idefault = $item.DEFAULT_SUFFIX;
lib/Badger/Factory.pm view on Meta::CPAN
1;
The C<$ITEM> and C<$ITEMS> package variables are used to define the
singular and plural names of the items that the factory is responsible for.
In this particular case, the C<$ITEMS> declaration isn't strictly
necessary because the module would correctly "guess" the plural name
C<widgets> from the singular C<widget> defined in C<$ITEM>. However,
this is only provided as a convenience for those English words that
pluralise regularly and shouldn't be relied upon to work all the time.
See the L<pluralise()|Badger::Utils/pluralise()> method in L<Badger::Utils>
for further information, and explicitly specify the plural in C<$ITEMS> if
Banal-Config
view release on metacpan or search on metacpan
lib/Banal/Config.pm view on Meta::CPAN
has 'verbose' => (is => 'rw', lazy_build=>1);
has 'debug' => (is => 'rw', lazy_build=>1);
has 'switches' => (is => 'rw', isa => 'HashRef', default=>sub{{}}); # Typically contains command line switches as produced by Getopt::Long or Getopt::Descriptive, or something that resembles it.
has 'options' => (is => 'rw', isa => 'HashRef', default=>sub{{}}); # The hash that gets passed to "new" for the actual configuration object (xcfg). The 'ConfigFile' option will default to the value of 'source' property.
has 'source' => (is => 'rw', isa => 'Str', lazy_build=>1); # The path to the configuration file. If it's not set, it will be guessed based on the name of the running process ($0). Note that this may be overriden by the "-ConfigFile" option.
has 'xcfg_class' => (is => 'rw', isa => 'Str', default=>'Banal::Config::General::Extended' );
has 'xcfg' => (
is => 'rw',
isa => 'Banal::Config::General::Extended',
lazy_build => 1,
lib/Banal/Config.pm view on Meta::CPAN
#***************************************************
#Â Less likely overrides
#***************************************************
#-----------------------------------------------
sub guess_config_file_path {
my $self = shift;
my $args = $self->switches;
$args = {%$args, @_}; # swicth overrides are possible by passing arguments to the function.
# If we have an explicit argument for the config file path, return that.
lib/Banal/Config.pm view on Meta::CPAN
}
#--------------------------------------
sub _build_source {
my $self = shift;
return $self->guess_config_file_path();
}
#--------------------------------------
sub _build_xcfg {
my $self = shift;
lib/Banal/Config.pm view on Meta::CPAN
Can be overridden.
=head2 get_default_config_file_base_name()
The default base name of the configuration file, which will be searched in several places when trying to "guess" the config file path.
This would only be needed when there is no explicit config file path given.
By default, simply calls "get_default_config_term()".
=head2 guess_config_file_path()
A call to this class method is made in order to build the default value of the "source" attribute, which will be used as the source path for the config file UNLESS one is explicetly given in the options argument to new().
The current implementation goes as follows:
- It will first try suitable "switches". If one that designates the config fie path is defined, the that one will be return. By default, here are those switches that will be checked for definedness:
lib/Banal/Config.pm view on Meta::CPAN
where $base_name is obtained by a call to get_default_config_file_base_name()
=head2 get_possible_option_names_for_config_file_path
Used by guess_config_file_path() to check for command line switches.
Currently returns the list: cfg_[%TERM%] [%TERM%]_cfg cfg
where TERM is obtained by a call to get_default_config_term()
=head2 get_possible_environment_variable_names_for_config_file_path
Used by guess_config_file_path() to check for ENVIRONMENT variables.
Currently returns the list: [%TERM%]_CFG CFG_[%TERM%]
where TERM is obtained by a call to get_default_config_term()
=head2 get_possible_config_file_paths()
Used by guess_config_file_path() after trying command line swictches and ENV variables.
At this point (when everything else is exhausted), the first file that exists in the list returned by this function will be used as the config file.
Currently returns the list:
"./test/etc/" . $base_name . ".conf", # this one is for testing purposes during "make test"
Barcode-DataMatrix
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() );
Barcode-ZBar
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
Baseball-Sabermetrics
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() );
Bash-Completion-Plugins-VimTag
view release on metacpan or search on metacpan
lib/Bash/Completion/Plugins/VimTag.pm view on Meta::CPAN
close $fh or next;
}
# Special case if the word contains one or more colons: Only return the
# part of each completion that comes after the last colon. This has to do
# with bash using the colon as a delimiter, I guess.
if ($word =~ /^(.+::?)/) {
my $prefix_length = length $1;
substr($_, 0, $prefix_length) = '' for @candidates;
}
$r->candidates(@candidates);
BeamerReveal
view release on metacpan or search on metacpan
bin/awspolly.pl view on Meta::CPAN
};
/^ogg$/ and do {
$format = 'ogg_vorbis';
last;
};
die( "Error: could not guess audio format based on output audiofilename\n" );
}
# determine engine and voice
my ( $region, $engine, $voice ) = split( /:/, $regionenginevoice );
die( "Invalid region, engine or voice format. Use <region:engine:voice>.\n" )
Beanstalk-Client
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() );
Beekeeper
view release on metacpan or search on metacpan
lib/Beekeeper/Logger.pm view on Meta::CPAN
_BUS => undef,
@_
};
unless ($self->{service}) {
# Make an educated guess based on worker class
my $service = lc $self->{worker_class};
$service =~ s/::/-/g;
$service =~ s/-worker$//;
$self->{service} = $service;
( run in 2.009 seconds using v1.01-cache-2.11-cpan-7fcb06a456a )