Result:
found more than 916 distributions - search limited to the first 2001 files matching your query
( run in 0.467 )
Alien-XGBoost
view release on metacpan or search on metacpan
xgboost/R-package/R/callbacks.R view on Meta::CPAN
if (is.null(env$bst) && is.null(env$bst_folds))
stop("Parent frame has neither 'bst' nor 'bst_folds'")
# Some parameters are not allowed to be changed,
# since changing them would simply wreck some chaos
not_allowed <- pnames %in%
c('num_class', 'num_output_group', 'size_leaf_vector', 'updater_seq')
if (any(not_allowed))
stop('Parameters ', paste(pnames[not_allowed]), " cannot be changed during boosting.")
for (n in pnames) {
p <- new_params[[n]]
if (is.function(p)) {
if (length(formals(p)) != 2)
Alien-boost-mini
view release on metacpan or search on metacpan
include/boost/mpl/aux_/preprocessed/bcc/list.hpp
include/boost/mpl/aux_/preprocessed/bcc/list_c.hpp
include/boost/mpl/aux_/preprocessed/bcc/map.hpp
include/boost/mpl/aux_/preprocessed/bcc/minus.hpp
include/boost/mpl/aux_/preprocessed/bcc/modulus.hpp
include/boost/mpl/aux_/preprocessed/bcc/not_equal_to.hpp
include/boost/mpl/aux_/preprocessed/bcc/or.hpp
include/boost/mpl/aux_/preprocessed/bcc/placeholders.hpp
include/boost/mpl/aux_/preprocessed/bcc/plus.hpp
include/boost/mpl/aux_/preprocessed/bcc/quote.hpp
include/boost/mpl/aux_/preprocessed/bcc/reverse_fold_impl.hpp
include/boost/mpl/aux_/preprocessed/bcc551/list.hpp
include/boost/mpl/aux_/preprocessed/bcc551/list_c.hpp
include/boost/mpl/aux_/preprocessed/bcc551/map.hpp
include/boost/mpl/aux_/preprocessed/bcc551/minus.hpp
include/boost/mpl/aux_/preprocessed/bcc551/modulus.hpp
include/boost/mpl/aux_/preprocessed/bcc551/not_equal_to.hpp
include/boost/mpl/aux_/preprocessed/bcc551/or.hpp
include/boost/mpl/aux_/preprocessed/bcc551/placeholders.hpp
include/boost/mpl/aux_/preprocessed/bcc551/plus.hpp
include/boost/mpl/aux_/preprocessed/bcc551/quote.hpp
include/boost/mpl/aux_/preprocessed/bcc551/reverse_fold_impl.hpp
include/boost/mpl/aux_/preprocessed/bcc_pre590/list.hpp
include/boost/mpl/aux_/preprocessed/bcc_pre590/list_c.hpp
include/boost/mpl/aux_/preprocessed/bcc_pre590/map.hpp
include/boost/mpl/aux_/preprocessed/bcc_pre590/minus.hpp
include/boost/mpl/aux_/preprocessed/bcc_pre590/modulus.hpp
include/boost/mpl/aux_/preprocessed/bcc_pre590/not_equal_to.hpp
include/boost/mpl/aux_/preprocessed/bcc_pre590/or.hpp
include/boost/mpl/aux_/preprocessed/bcc_pre590/placeholders.hpp
include/boost/mpl/aux_/preprocessed/bcc_pre590/plus.hpp
include/boost/mpl/aux_/preprocessed/bcc_pre590/quote.hpp
include/boost/mpl/aux_/preprocessed/bcc_pre590/reverse_fold_impl.hpp
include/boost/mpl/aux_/preprocessed/dmc/list.hpp
include/boost/mpl/aux_/preprocessed/dmc/list_c.hpp
include/boost/mpl/aux_/preprocessed/dmc/map.hpp
include/boost/mpl/aux_/preprocessed/dmc/minus.hpp
include/boost/mpl/aux_/preprocessed/dmc/modulus.hpp
include/boost/mpl/aux_/preprocessed/dmc/not_equal_to.hpp
include/boost/mpl/aux_/preprocessed/dmc/or.hpp
include/boost/mpl/aux_/preprocessed/dmc/placeholders.hpp
include/boost/mpl/aux_/preprocessed/dmc/plus.hpp
include/boost/mpl/aux_/preprocessed/dmc/quote.hpp
include/boost/mpl/aux_/preprocessed/dmc/reverse_fold_impl.hpp
include/boost/mpl/aux_/preprocessed/gcc/list.hpp
include/boost/mpl/aux_/preprocessed/gcc/list_c.hpp
include/boost/mpl/aux_/preprocessed/gcc/map.hpp
include/boost/mpl/aux_/preprocessed/gcc/minus.hpp
include/boost/mpl/aux_/preprocessed/gcc/modulus.hpp
include/boost/mpl/aux_/preprocessed/gcc/not_equal_to.hpp
include/boost/mpl/aux_/preprocessed/gcc/or.hpp
include/boost/mpl/aux_/preprocessed/gcc/placeholders.hpp
include/boost/mpl/aux_/preprocessed/gcc/plus.hpp
include/boost/mpl/aux_/preprocessed/gcc/quote.hpp
include/boost/mpl/aux_/preprocessed/gcc/reverse_fold_impl.hpp
include/boost/mpl/aux_/preprocessed/msvc60/list.hpp
include/boost/mpl/aux_/preprocessed/msvc60/list_c.hpp
include/boost/mpl/aux_/preprocessed/msvc60/map.hpp
include/boost/mpl/aux_/preprocessed/msvc60/minus.hpp
include/boost/mpl/aux_/preprocessed/msvc60/modulus.hpp
include/boost/mpl/aux_/preprocessed/msvc60/not_equal_to.hpp
include/boost/mpl/aux_/preprocessed/msvc60/or.hpp
include/boost/mpl/aux_/preprocessed/msvc60/placeholders.hpp
include/boost/mpl/aux_/preprocessed/msvc60/plus.hpp
include/boost/mpl/aux_/preprocessed/msvc60/quote.hpp
include/boost/mpl/aux_/preprocessed/msvc60/reverse_fold_impl.hpp
include/boost/mpl/aux_/preprocessed/msvc70/list.hpp
include/boost/mpl/aux_/preprocessed/msvc70/list_c.hpp
include/boost/mpl/aux_/preprocessed/msvc70/map.hpp
include/boost/mpl/aux_/preprocessed/msvc70/minus.hpp
include/boost/mpl/aux_/preprocessed/msvc70/modulus.hpp
include/boost/mpl/aux_/preprocessed/msvc70/not_equal_to.hpp
include/boost/mpl/aux_/preprocessed/msvc70/or.hpp
include/boost/mpl/aux_/preprocessed/msvc70/placeholders.hpp
include/boost/mpl/aux_/preprocessed/msvc70/plus.hpp
include/boost/mpl/aux_/preprocessed/msvc70/quote.hpp
include/boost/mpl/aux_/preprocessed/msvc70/reverse_fold_impl.hpp
include/boost/mpl/aux_/preprocessed/mwcw/list.hpp
include/boost/mpl/aux_/preprocessed/mwcw/list_c.hpp
include/boost/mpl/aux_/preprocessed/mwcw/map.hpp
include/boost/mpl/aux_/preprocessed/mwcw/minus.hpp
include/boost/mpl/aux_/preprocessed/mwcw/modulus.hpp
include/boost/mpl/aux_/preprocessed/mwcw/not_equal_to.hpp
include/boost/mpl/aux_/preprocessed/mwcw/or.hpp
include/boost/mpl/aux_/preprocessed/mwcw/placeholders.hpp
include/boost/mpl/aux_/preprocessed/mwcw/plus.hpp
include/boost/mpl/aux_/preprocessed/mwcw/quote.hpp
include/boost/mpl/aux_/preprocessed/mwcw/reverse_fold_impl.hpp
include/boost/mpl/aux_/preprocessed/no_ctps/list.hpp
include/boost/mpl/aux_/preprocessed/no_ctps/list_c.hpp
include/boost/mpl/aux_/preprocessed/no_ctps/map.hpp
include/boost/mpl/aux_/preprocessed/no_ctps/minus.hpp
include/boost/mpl/aux_/preprocessed/no_ctps/modulus.hpp
include/boost/mpl/aux_/preprocessed/no_ctps/not_equal_to.hpp
include/boost/mpl/aux_/preprocessed/no_ctps/or.hpp
include/boost/mpl/aux_/preprocessed/no_ctps/placeholders.hpp
include/boost/mpl/aux_/preprocessed/no_ctps/plus.hpp
include/boost/mpl/aux_/preprocessed/no_ctps/quote.hpp
include/boost/mpl/aux_/preprocessed/no_ctps/reverse_fold_impl.hpp
include/boost/mpl/aux_/preprocessed/no_ttp/list.hpp
include/boost/mpl/aux_/preprocessed/no_ttp/list_c.hpp
include/boost/mpl/aux_/preprocessed/no_ttp/map.hpp
include/boost/mpl/aux_/preprocessed/no_ttp/minus.hpp
include/boost/mpl/aux_/preprocessed/no_ttp/modulus.hpp
include/boost/mpl/aux_/preprocessed/no_ttp/not_equal_to.hpp
include/boost/mpl/aux_/preprocessed/no_ttp/or.hpp
include/boost/mpl/aux_/preprocessed/no_ttp/placeholders.hpp
include/boost/mpl/aux_/preprocessed/no_ttp/plus.hpp
include/boost/mpl/aux_/preprocessed/no_ttp/quote.hpp
include/boost/mpl/aux_/preprocessed/no_ttp/reverse_fold_impl.hpp
include/boost/mpl/aux_/preprocessed/plain/list.hpp
include/boost/mpl/aux_/preprocessed/plain/list_c.hpp
include/boost/mpl/aux_/preprocessed/plain/map.hpp
include/boost/mpl/aux_/preprocessed/plain/minus.hpp
include/boost/mpl/aux_/preprocessed/plain/modulus.hpp
include/boost/mpl/aux_/preprocessed/plain/not_equal_to.hpp
include/boost/mpl/aux_/preprocessed/plain/or.hpp
include/boost/mpl/aux_/preprocessed/plain/placeholders.hpp
include/boost/mpl/aux_/preprocessed/plain/plus.hpp
include/boost/mpl/aux_/preprocessed/plain/quote.hpp
include/boost/mpl/aux_/preprocessed/plain/reverse_fold_impl.hpp
include/boost/preprocessor/comparison/equal.hpp
include/boost/preprocessor/comparison/greater.hpp
include/boost/preprocessor/comparison/greater_equal.hpp
include/boost/preprocessor/comparison/less.hpp
include/boost/preprocessor/comparison/less_equal.hpp
include/boost/preprocessor/comparison/not_equal.hpp
include/boost/preprocessor/config/config.hpp
include/boost/preprocessor/config/limits.hpp
include/boost/preprocessor/control.hpp
include/boost/preprocessor/control/deduce_d.hpp
include/boost/preprocessor/control/detail/dmc/while.hpp
Alien-cares
view release on metacpan or search on metacpan
libcares/CHANGES.0 view on Meta::CPAN
with the low-level curl debug memory tracking 'feature' to allow decoupled
setting from --enable-debug, allowing again to build c-ares independently
out of the CVS tree.
For the c-ares library option --enable-debug enables debug build features
which are _not_ related with memory tracking. For the c-ares library when
--enable-debug is given it does not enable the memory tracking feature. If
you wish to enable the curl debug memory tracking you must use configure
option --enable-curldebug explicitily to do so.
Internally, definition of preprocessor symbol DEBUGBUILD restricts code
Alien-catch
view release on metacpan or search on metacpan
src/catch.hpp view on Meta::CPAN
};
}
#endif // CATCH_CONFIG_ENABLE_TUPLE_STRINGMAKER
namespace Catch {
struct not_this_one {}; // Tag type for detecting which begin/ end are being selected
// Import begin/ end from std here so they are considered alongside the fallback (...) overloads in this namespace
using std::begin;
using std::end;
not_this_one begin( ... );
not_this_one end( ... );
template <typename T>
struct is_range {
static const bool value =
!std::is_same<decltype(begin(std::declval<T>())), not_this_one>::value &&
!std::is_same<decltype(end(std::declval<T>())), not_this_one>::value;
};
#if defined(_MANAGED) // Managed types are never ranges
template <typename T>
struct is_range<T^> {
src/catch.hpp view on Meta::CPAN
toLowerInPlace( lc );
return lc;
}
std::string trim( std::string const& str ) {
static char const* whitespaceChars = "\n\r\t ";
std::string::size_type start = str.find_first_not_of( whitespaceChars );
std::string::size_type end = str.find_last_not_of( whitespaceChars );
return start != std::string::npos ? str.substr( start, 1+end-start ) : std::string();
}
bool replaceInPlace( std::string& str, std::string const& replaceThis, std::string const& withThis ) {
src/catch.hpp view on Meta::CPAN
ReusableStringStream rss;
rss << std::setprecision( precision )
<< std::fixed
<< value;
std::string d = rss.str();
std::size_t i = d.find_last_not_of( '0' );
if( i != std::string::npos && i != d.size()-1 ) {
if( d[i] == '.' )
i++;
d = d.substr( 0, i+1 );
}
Alien-libFLAC
view release on metacpan or search on metacpan
xt/boilerplate.t view on Meta::CPAN
use warnings;
use Test::More;
plan tests => 3;
sub not_in_file_ok {
my ($filename, %regex) = @_;
open( my $fh, '<', $filename )
or die "couldn't open $filename for reading: $!";
my %violated;
xt/boilerplate.t view on Meta::CPAN
}
}
sub module_boilerplate_ok {
my ($module) = @_;
not_in_file_ok($module =>
'the great new $MODULENAME' => qr/ - The great new /,
'boilerplate description' => qr/Quick summary of what the module/,
'stub function definition' => qr/function[12]/,
);
}
TODO: {
local $TODO = "Need to replace the boilerplate text";
not_in_file_ok(README =>
"The README is used..." => qr/The README is used/,
"'version information here'" => qr/to provide version information/,
);
not_in_file_ok(Changes =>
"placeholder date/time" => qr(Date/time)
);
module_boilerplate_ok('lib/Alien/libFLAC.pm');
Alien-libextism
view release on metacpan or search on metacpan
xt/boilerplate.t view on Meta::CPAN
use warnings;
use Test::More;
plan tests => 3;
sub not_in_file_ok {
my ($filename, %regex) = @_;
open( my $fh, '<', $filename )
or die "couldn't open $filename for reading: $!";
my %violated;
xt/boilerplate.t view on Meta::CPAN
}
}
sub module_boilerplate_ok {
my ($module) = @_;
not_in_file_ok($module =>
'the great new $MODULENAME' => qr/ - The great new /,
'boilerplate description' => qr/Quick summary of what the module/,
'stub function definition' => qr/function[12]/,
);
}
TODO: {
local $TODO = "Need to replace the boilerplate text";
not_in_file_ok(README =>
"The README is used..." => qr/The README is used/,
"'version information here'" => qr/to provide version information/,
);
not_in_file_ok(Changes =>
"placeholder date/time" => qr(Date/time)
);
module_boilerplate_ok('lib/Alien/libextism.pm');
Alien-libpanda
view release on metacpan or search on metacpan
1.0.5 08.09.2017
- string::append now can use COW in case of empty string
1.0.4 07.05.2017
- shared_ptr::operator bool is explicit now
1.0.3 16.05.2017
- fix default pos value for find_last_of, find_last_not_of
1.0.2 16.05.2017
- bugfix for stoX group of functions in case of no pos argument
1.0.1 15.05.2017
- do not bootstrap so library (no XS code inside), it will be loaded automatically because of "-l" linker flag
1.0.0 11.05.2017
Alien-libsecp256k1
view release on metacpan or search on metacpan
libsecp256k1/include/secp256k1_extrakeys.h view on Meta::CPAN
*
* The tweaked pubkey is represented by its 32-byte x-only serialization and
* its pk_parity, which can both be obtained by converting the result of
* tweak_add to a secp256k1_xonly_pubkey.
*
* Note that this alone does _not_ verify that the tweaked pubkey is a
* commitment. If the tweak is not chosen in a specific way, the tweaked pubkey
* can easily be the result of a different internal_pubkey and tweak.
*
* Returns: 0 if the arguments are invalid or the tweaked pubkey is not the
* result of tweaking the internal_pubkey with tweak32. 1 otherwise.
Alien-uv
view release on metacpan or search on metacpan
libuv/src/unix/udp.c view on Meta::CPAN
assert(handle->send_queue_count == 0);
/* Now tear down the handle. */
handle->recv_cb = NULL;
handle->alloc_cb = NULL;
/* but _do not_ touch close_cb */
}
static void uv__udp_run_completed(uv_udp_t* handle) {
uv_udp_send_t* req;
AlignDB-IntSpan
view release on metacpan or search on metacpan
lib/AlignDB/IntSpan.pm view on Meta::CPAN
use Scalar::Util;
use Scalar::Util::Numeric;
use overload (
q{0+} => sub { Carp::confess "Can't numerify an AlignDB::IntSpan\n" },
q{bool} => q{is_not_empty},
q{""} => q{as_string},
# use Perl standard behaviours for other operations
fallback => 1,
);
lib/AlignDB/IntSpan.pm view on Meta::CPAN
my $self = shift;
my $result = $self->edge_size == 0 ? 1 : 0;
return $result;
}
sub is_not_empty {
my $self = shift;
return !$self->is_empty;
}
sub is_neg_inf {
lib/AlignDB/IntSpan.pm view on Meta::CPAN
#@returns AlignDB::IntSpan
sub cover {
my $self = shift;
my $cover = Scalar::Util::blessed($self)->new;
if ( $self->is_not_empty ) {
$cover->add_pair( $self->min, $self->max );
}
return $cover;
}
lib/AlignDB/IntSpan.pm view on Meta::CPAN
=head2 is_empty
Return true if the set is empty.
=head2 is_not_empty
Return true if the set is not empty.
=head2 is_neg_inf
AlignDB-IntSpanXS
view release on metacpan or search on metacpan
benchmark/test_ai.pl view on Meta::CPAN
print Dump {
edge_size => $itx->edge_size,
edges => [ $itx->edges ],
ranges => [ $itx->ranges ],
is_empty => $itx->is_empty,
is_not_empty => $itx->is_not_empty,
as_string => $itx->as_string,
};
for ( -5, 29, 100 ) {
printf "val %d contain %d\n", $_, $itx->contains($_);
Alt-Acme-Math-XS-CPP
view release on metacpan or search on metacpan
inc/Inline.pm view on Meta::CPAN
my @pkgparts = split(/::/, $o->{API}{pkg});
my $realname = File::Spec->catfile(@pkgparts) . '.pm';
my $realname_unix = File::Spec::Unix->catfile(@pkgparts) . '.pm';
my $realpath = $INC{$realname_unix}
or croak M27_module_not_indexed($realname_unix);
my ($volume,$dir,$file) = File::Spec->splitpath($realpath);
my @dirparts = File::Spec->splitdir($dir);
pop @dirparts unless $dirparts[-1];
push @dirparts, $file;
inc/Inline.pm view on Meta::CPAN
local ($/, *CODE);
open CODE, "< $code" or croak M06_code_file_failed_open($code);
$o->{API}{code} = <CODE>;
}
else {
croak M07_code_file_does_not_exist($code);
}
}
else {
$o->{API}{code} = $code;
}
inc/Inline.pm view on Meta::CPAN
croak M59_bad_inline_file($lang) unless $langfile =~ /^[A-Z]\w*$/;
croak M60_no_inline_files()
unless (defined $INC{File::Spec::Unix->catfile("Inline","Files.pm")} and
$Inline::Files::VERSION =~ /^\d\.\d\d$/ and
$Inline::Files::VERSION ge '0.51');
croak M61_not_parsed() unless $lang = Inline::Files::get_filename($pkg);
{
no strict 'refs';
local $/;
$Inline::FILE = \*{"${pkg}::$langfile"};
# open $Inline::FILE;
inc/Inline.pm view on Meta::CPAN
#==============================================================================
sub install {
my ($module, $DIRECTORY);
my $o = shift;
croak M64_install_not_c($o->{API}{language_id})
unless uc($o->{API}{language_id}) =~ /^(C|CPP|Java|Python|Ruby|Lisp|Pdlpp)$/ ;
croak M36_usage_install_main()
if ($o->{API}{pkg} eq 'main');
croak M37_usage_install_auto()
if $o->{CONFIG}{AUTONAME};
inc/Inline.pm view on Meta::CPAN
my $o = shift;
my @configs;
for my $mod (@{$o->{CONFIG}{WITH}}) {
my $ref = eval { $mod->Inline($o->{API}{language}); };
croak M25_no_WITH_support($mod, $@) if $@;
croak M65_WITH_not_lang($mod, $o->{API}{language}) unless $ref;
push @configs, %$ref;
}
return @configs;
}
inc/Inline.pm view on Meta::CPAN
END
#'
}
sub M07_code_file_does_not_exist {
my ($file) = @_;
return <<END;
Inline assumes '$file' is a filename,
and that file does not exist.
inc/Inline.pm view on Meta::CPAN
Specifying VERSION option without NAME option is not permitted.
END
}
sub M27_module_not_indexed {
my ($mod) = @_;
return <<END;
You are attempting to load an extension for '$mod',
but there is no entry for that module in %INC.
inc/Inline.pm view on Meta::CPAN
You need to explicitly 'use Inline::Files;' before your 'use Inline'.
END
}
sub M61_not_parsed {
return <<END;
It does not appear that your program has been properly parsed by Inline::Files.
END
}
inc/Inline.pm view on Meta::CPAN
You may need to reinstall this module.
END
}
sub M64_install_not_c {
my ($lang) = @_;
return <<END;
Invalid attempt to install an Inline module using the '$lang' language.
Only C and CPP (C++) based modules are currently supported.
END
}
sub M65_WITH_not_lang {
my ($mod, $lang) = @_;
return <<END;
$mod gave no 'with' hints for $lang.
END
}
Alt-Acme-Math-XS-ModuleBuild
view release on metacpan or search on metacpan
inc/Inline.pm view on Meta::CPAN
my @pkgparts = split(/::/, $o->{API}{pkg});
my $realname = File::Spec->catfile(@pkgparts) . '.pm';
my $realname_unix = File::Spec::Unix->catfile(@pkgparts) . '.pm';
my $realpath = $INC{$realname_unix}
or croak M27_module_not_indexed($realname_unix);
my ($volume,$dir,$file) = File::Spec->splitpath($realpath);
my @dirparts = File::Spec->splitdir($dir);
pop @dirparts unless $dirparts[-1];
push @dirparts, $file;
inc/Inline.pm view on Meta::CPAN
local ($/, *CODE);
open CODE, "< $code" or croak M06_code_file_failed_open($code);
$o->{API}{code} = <CODE>;
}
else {
croak M07_code_file_does_not_exist($code);
}
}
else {
$o->{API}{code} = $code;
}
inc/Inline.pm view on Meta::CPAN
croak M59_bad_inline_file($lang) unless $langfile =~ /^[A-Z]\w*$/;
croak M60_no_inline_files()
unless (defined $INC{File::Spec::Unix->catfile("Inline","Files.pm")} and
$Inline::Files::VERSION =~ /^\d\.\d\d$/ and
$Inline::Files::VERSION ge '0.51');
croak M61_not_parsed() unless $lang = Inline::Files::get_filename($pkg);
{
no strict 'refs';
local $/;
$Inline::FILE = \*{"${pkg}::$langfile"};
# open $Inline::FILE;
inc/Inline.pm view on Meta::CPAN
#==============================================================================
sub install {
my ($module, $DIRECTORY);
my $o = shift;
croak M64_install_not_c($o->{API}{language_id})
unless uc($o->{API}{language_id}) =~ /^(C|CPP|Java|Python|Ruby|Lisp|Pdlpp)$/ ;
croak M36_usage_install_main()
if ($o->{API}{pkg} eq 'main');
croak M37_usage_install_auto()
if $o->{CONFIG}{AUTONAME};
inc/Inline.pm view on Meta::CPAN
my $o = shift;
my @configs;
for my $mod (@{$o->{CONFIG}{WITH}}) {
my $ref = eval { $mod->Inline($o->{API}{language}); };
croak M25_no_WITH_support($mod, $@) if $@;
croak M65_WITH_not_lang($mod, $o->{API}{language}) unless $ref;
push @configs, %$ref;
}
return @configs;
}
inc/Inline.pm view on Meta::CPAN
END
#'
}
sub M07_code_file_does_not_exist {
my ($file) = @_;
return <<END;
Inline assumes '$file' is a filename,
and that file does not exist.
inc/Inline.pm view on Meta::CPAN
Specifying VERSION option without NAME option is not permitted.
END
}
sub M27_module_not_indexed {
my ($mod) = @_;
return <<END;
You are attempting to load an extension for '$mod',
but there is no entry for that module in %INC.
inc/Inline.pm view on Meta::CPAN
You need to explicitly 'use Inline::Files;' before your 'use Inline'.
END
}
sub M61_not_parsed {
return <<END;
It does not appear that your program has been properly parsed by Inline::Files.
END
}
inc/Inline.pm view on Meta::CPAN
You may need to reinstall this module.
END
}
sub M64_install_not_c {
my ($lang) = @_;
return <<END;
Invalid attempt to install an Inline module using the '$lang' language.
Only C and CPP (C++) based modules are currently supported.
END
}
sub M65_WITH_not_lang {
my ($mod, $lang) = @_;
return <<END;
$mod gave no 'with' hints for $lang.
END
}
Alt-Acme-Math-XS-ModuleInstall
view release on metacpan or search on metacpan
inc/Inline.pm view on Meta::CPAN
my @pkgparts = split(/::/, $o->{API}{pkg});
my $realname = File::Spec->catfile(@pkgparts) . '.pm';
my $realname_unix = File::Spec::Unix->catfile(@pkgparts) . '.pm';
my $realpath = $INC{$realname_unix}
or croak M27_module_not_indexed($realname_unix);
my ($volume,$dir,$file) = File::Spec->splitpath($realpath);
my @dirparts = File::Spec->splitdir($dir);
pop @dirparts unless $dirparts[-1];
push @dirparts, $file;
inc/Inline.pm view on Meta::CPAN
local ($/, *CODE);
open CODE, "< $code" or croak M06_code_file_failed_open($code);
$o->{API}{code} = <CODE>;
}
else {
croak M07_code_file_does_not_exist($code);
}
}
else {
$o->{API}{code} = $code;
}
inc/Inline.pm view on Meta::CPAN
croak M59_bad_inline_file($lang) unless $langfile =~ /^[A-Z]\w*$/;
croak M60_no_inline_files()
unless (defined $INC{File::Spec::Unix->catfile("Inline","Files.pm")} and
$Inline::Files::VERSION =~ /^\d\.\d\d$/ and
$Inline::Files::VERSION ge '0.51');
croak M61_not_parsed() unless $lang = Inline::Files::get_filename($pkg);
{
no strict 'refs';
local $/;
$Inline::FILE = \*{"${pkg}::$langfile"};
# open $Inline::FILE;
inc/Inline.pm view on Meta::CPAN
#==============================================================================
sub install {
my ($module, $DIRECTORY);
my $o = shift;
croak M64_install_not_c($o->{API}{language_id})
unless uc($o->{API}{language_id}) =~ /^(C|CPP|Java|Python|Ruby|Lisp|Pdlpp)$/ ;
croak M36_usage_install_main()
if ($o->{API}{pkg} eq 'main');
croak M37_usage_install_auto()
if $o->{CONFIG}{AUTONAME};
inc/Inline.pm view on Meta::CPAN
my $o = shift;
my @configs;
for my $mod (@{$o->{CONFIG}{WITH}}) {
my $ref = eval { $mod->Inline($o->{API}{language}); };
croak M25_no_WITH_support($mod, $@) if $@;
croak M65_WITH_not_lang($mod, $o->{API}{language}) unless $ref;
push @configs, %$ref;
}
return @configs;
}
inc/Inline.pm view on Meta::CPAN
END
#'
}
sub M07_code_file_does_not_exist {
my ($file) = @_;
return <<END;
Inline assumes '$file' is a filename,
and that file does not exist.
inc/Inline.pm view on Meta::CPAN
Specifying VERSION option without NAME option is not permitted.
END
}
sub M27_module_not_indexed {
my ($mod) = @_;
return <<END;
You are attempting to load an extension for '$mod',
but there is no entry for that module in %INC.
inc/Inline.pm view on Meta::CPAN
You need to explicitly 'use Inline::Files;' before your 'use Inline'.
END
}
sub M61_not_parsed {
return <<END;
It does not appear that your program has been properly parsed by Inline::Files.
END
}
inc/Inline.pm view on Meta::CPAN
You may need to reinstall this module.
END
}
sub M64_install_not_c {
my ($lang) = @_;
return <<END;
Invalid attempt to install an Inline module using the '$lang' language.
Only C and CPP (C++) based modules are currently supported.
END
}
sub M65_WITH_not_lang {
my ($mod, $lang) = @_;
return <<END;
$mod gave no 'with' hints for $lang.
END
}
Alt-CWB-CL-ambs
view release on metacpan or search on metacpan
croak_on_error(int error_code) {
croak("%s (aborted)", cwb_cl_error_message(error_code));
}
static int
not_here(s)
char *s;
{
croak("%s not implemented on this architecture", s);
return -1;
}
Alt-CWB-ambs
view release on metacpan or search on metacpan
t/11_cwb_file.t view on Meta::CPAN
test_read_write_file(".bz2", 0); # 1-argument form, T18
test_read_write_file(".bz2", 1); # 2-argument form
}
## test that reading non-existent compressed file fails immediately
eval { CWB::OpenFile("data/files/does_not_exist.gz") };
like($@, qr/does not exist/, "error condition when opening non-existent .gz file"); # T21
## check if specified tool is available in user's path
sub is_available {
my $cmd = shift;
Alt-Crypt-OpenSSL-PKCS12-Broadbean
view release on metacpan or search on metacpan
__ASSERT_|5.019007|5.008008|p
ASSERT_CURPAD_ACTIVE|5.008001||Viu
ASSERT_CURPAD_LEGAL|5.008001||Viu
ASSERT_IS_LITERAL|||Viu
ASSERT_IS_PTR|||Viu
assert_not_glob|5.009004||Viu
ASSERT_NOT_PTR|5.035004||Viu
assert_not_ROK|5.008001||Viu
assert_uft8_cache_coherent|5.013003||Viu
assignment_type|5.021005||Viu
ASSUME|5.019006|5.003007|p
atfork_lock|5.007003|5.007003|nu
atfork_unlock|5.007003|5.007003|nu
noperl_die|5.021006||vVniu
NORETURN_FUNCTION_END|5.009003||Viu
NORMAL|5.003007||Viu
NOSTR|5.027010||Viu
NO_TAINT_SUPPORT|5.017006||Viu
not_a_number|5.005000||Viu
NOTE3|5.027001||Viu
NOTHING|5.003007||Viu
NOTHING_t8|5.035004||Viu
NOTHING_t8_p8|5.033003||Viu
NOTHING_t8_pb|5.033003||Viu
NOTHING_tb|5.035004||Viu
NOTHING_tb_p8|5.033003||Viu
NOTHING_tb_pb|5.033003||Viu
nothreadhook|5.008000|5.008000|
notify_parser_that_changed_to_utf8|5.025010||Viu
not_incrementable|5.021002||Viu
NOT_IN_PAD|5.005000||Viu
NOT_REACHED|5.019006|5.003007|poVnu
NPOSIXA|5.017003||Viu
NPOSIXA_t8|5.035004||Viu
NPOSIXA_t8_p8|5.033003||Viu
WHILEM_t8_pb|5.033003||Viu
WHILEM_tb|5.035004||Viu
WHILEM_tb_p8|5.033003||Viu
WHILEM_tb_pb|5.033003||Viu
WIDEST_UTYPE|5.015004|5.003007|poVnu
win32_croak_not_implemented|5.017006||Vniu
WIN32SCK_IS_STDSCK|5.007001||Viu
win32_setlocale|5.027006||Viu
withinCOUNT|5.031004||Viu
withinCOUNT_KNOWN_VALID|5.033005||Viu
WITH_LC_NUMERIC_SET_TO_NEEDED|5.031003|5.031003|
# include <patchlevel.h>
# endif
# if ! defined(PERL_VERSION) \
&& ! defined(PERL_VERSION_MAJOR) \
&& ( ! defined(SUBVERSION) || ! defined(PATCHLEVEL) )
# include <could_not_find_Perl_patchlevel.h>
# endif
#endif
#ifdef PERL_VERSION_MAJOR
# define D_PPP_MAJOR PERL_VERSION_MAJOR
Alt-Devel-GlobalDestruction-XS-Inline
view release on metacpan or search on metacpan
inc/Inline.pm view on Meta::CPAN
my @pkgparts = split(/::/, $o->{API}{pkg});
my $realname = File::Spec->catfile(@pkgparts) . '.pm';
my $realname_unix = File::Spec::Unix->catfile(@pkgparts) . '.pm';
my $realpath = $INC{$realname_unix}
or croak M27_module_not_indexed($realname_unix);
my ($volume,$dir,$file) = File::Spec->splitpath($realpath);
my @dirparts = File::Spec->splitdir($dir);
pop @dirparts unless $dirparts[-1];
push @dirparts, $file;
inc/Inline.pm view on Meta::CPAN
local ($/, *CODE);
open CODE, "< $code" or croak M06_code_file_failed_open($code);
$o->{API}{code} = <CODE>;
}
else {
croak M07_code_file_does_not_exist($code);
}
}
else {
$o->{API}{code} = $code;
}
inc/Inline.pm view on Meta::CPAN
croak M59_bad_inline_file($lang) unless $langfile =~ /^[A-Z]\w*$/;
croak M60_no_inline_files()
unless (defined $INC{File::Spec::Unix->catfile("Inline","Files.pm")} and
$Inline::Files::VERSION =~ /^\d\.\d\d$/ and
$Inline::Files::VERSION ge '0.51');
croak M61_not_parsed() unless $lang = Inline::Files::get_filename($pkg);
{
no strict 'refs';
local $/;
$Inline::FILE = \*{"${pkg}::$langfile"};
# open $Inline::FILE;
inc/Inline.pm view on Meta::CPAN
#==============================================================================
sub install {
my ($module, $DIRECTORY);
my $o = shift;
croak M64_install_not_c($o->{API}{language_id})
unless uc($o->{API}{language_id}) =~ /^(C|CPP|Java|Python|Ruby|Lisp|Pdlpp)$/ ;
croak M36_usage_install_main()
if ($o->{API}{pkg} eq 'main');
croak M37_usage_install_auto()
if $o->{CONFIG}{AUTONAME};
inc/Inline.pm view on Meta::CPAN
my $o = shift;
my @configs;
for my $mod (@{$o->{CONFIG}{WITH}}) {
my $ref = eval { $mod->Inline($o->{API}{language}); };
croak M25_no_WITH_support($mod, $@) if $@;
croak M65_WITH_not_lang($mod, $o->{API}{language}) unless $ref;
push @configs, %$ref;
}
return @configs;
}
inc/Inline.pm view on Meta::CPAN
END
#'
}
sub M07_code_file_does_not_exist {
my ($file) = @_;
return <<END;
Inline assumes '$file' is a filename,
and that file does not exist.
inc/Inline.pm view on Meta::CPAN
Specifying VERSION option without NAME option is not permitted.
END
}
sub M27_module_not_indexed {
my ($mod) = @_;
return <<END;
You are attempting to load an extension for '$mod',
but there is no entry for that module in %INC.
inc/Inline.pm view on Meta::CPAN
You need to explicitly 'use Inline::Files;' before your 'use Inline'.
END
}
sub M61_not_parsed {
return <<END;
It does not appear that your program has been properly parsed by Inline::Files.
END
}
inc/Inline.pm view on Meta::CPAN
You may need to reinstall this module.
END
}
sub M64_install_not_c {
my ($lang) = @_;
return <<END;
Invalid attempt to install an Inline module using the '$lang' language.
Only C and CPP (C++) based modules are currently supported.
END
}
sub M65_WITH_not_lang {
my ($mod, $lang) = @_;
return <<END;
$mod gave no 'with' hints for $lang.
END
}
Alt-IO-All-new
view release on metacpan or search on metacpan
inc/Pegex/Optimizer.pm view on Meta::CPAN
my $result;
if ($result = $self->$method($ref, $parent)) {
$self->trace("got_$ref$note");
}
else {
$self->trace("not_$ref$note");
}
return $result;
}
}
Alt-Math-Prime-FastSieve-Inline
view release on metacpan or search on metacpan
inc/Inline.pm view on Meta::CPAN
my @pkgparts = split(/::/, $o->{API}{pkg});
my $realname = File::Spec->catfile(@pkgparts) . '.pm';
my $realname_unix = File::Spec::Unix->catfile(@pkgparts) . '.pm';
my $realpath = $INC{$realname_unix}
or croak M27_module_not_indexed($realname_unix);
my ($volume,$dir,$file) = File::Spec->splitpath($realpath);
my @dirparts = File::Spec->splitdir($dir);
pop @dirparts unless $dirparts[-1];
push @dirparts, $file;
inc/Inline.pm view on Meta::CPAN
local ($/, *CODE);
open CODE, "< $code" or croak M06_code_file_failed_open($code);
$o->{API}{code} = <CODE>;
}
else {
croak M07_code_file_does_not_exist($code);
}
}
else {
$o->{API}{code} = $code;
}
inc/Inline.pm view on Meta::CPAN
croak M59_bad_inline_file($lang) unless $langfile =~ /^[A-Z]\w*$/;
croak M60_no_inline_files()
unless (defined $INC{File::Spec::Unix->catfile("Inline","Files.pm")} and
$Inline::Files::VERSION =~ /^\d\.\d\d$/ and
$Inline::Files::VERSION ge '0.51');
croak M61_not_parsed() unless $lang = Inline::Files::get_filename($pkg);
{
no strict 'refs';
local $/;
$Inline::FILE = \*{"${pkg}::$langfile"};
# open $Inline::FILE;
inc/Inline.pm view on Meta::CPAN
#==============================================================================
sub install {
my ($module, $DIRECTORY);
my $o = shift;
croak M64_install_not_c($o->{API}{language_id})
unless uc($o->{API}{language_id}) =~ /^(C|CPP|Java|Python|Ruby|Lisp|Pdlpp)$/ ;
croak M36_usage_install_main()
if ($o->{API}{pkg} eq 'main');
croak M37_usage_install_auto()
if $o->{CONFIG}{AUTONAME};
inc/Inline.pm view on Meta::CPAN
my $o = shift;
my @configs;
for my $mod (@{$o->{CONFIG}{WITH}}) {
my $ref = eval { $mod->Inline($o->{API}{language}); };
croak M25_no_WITH_support($mod, $@) if $@;
croak M65_WITH_not_lang($mod, $o->{API}{language}) unless $ref;
push @configs, %$ref;
}
return @configs;
}
inc/Inline.pm view on Meta::CPAN
END
#'
}
sub M07_code_file_does_not_exist {
my ($file) = @_;
return <<END;
Inline assumes '$file' is a filename,
and that file does not exist.
inc/Inline.pm view on Meta::CPAN
Specifying VERSION option without NAME option is not permitted.
END
}
sub M27_module_not_indexed {
my ($mod) = @_;
return <<END;
You are attempting to load an extension for '$mod',
but there is no entry for that module in %INC.
inc/Inline.pm view on Meta::CPAN
You need to explicitly 'use Inline::Files;' before your 'use Inline'.
END
}
sub M61_not_parsed {
return <<END;
It does not appear that your program has been properly parsed by Inline::Files.
END
}
inc/Inline.pm view on Meta::CPAN
You may need to reinstall this module.
END
}
sub M64_install_not_c {
my ($lang) = @_;
return <<END;
Invalid attempt to install an Inline module using the '$lang' language.
Only C and CPP (C++) based modules are currently supported.
END
}
sub M65_WITH_not_lang {
my ($mod, $lang) = @_;
return <<END;
$mod gave no 'with' hints for $lang.
END
}
Alt-Sub-Delete-NewPackageSeparator
view release on metacpan or search on metacpan
t/Test/More.pm view on Meta::CPAN
$tb->_unoverload_str(\$e1, \$e2);
# Either they're both references or both not.
my $same_ref = !(!ref $e1 xor !ref $e2);
my $not_ref = (!ref $e1 and !ref $e2);
if( defined $e1 xor defined $e2 ) {
$ok = 0;
}
elsif ( $e1 == $DNE xor $e2 == $DNE ) {
$ok = 0;
}
elsif ( $same_ref and ($e1 eq $e2) ) {
$ok = 1;
}
elsif ( $not_ref ) {
push @Data_Stack, { type => '', vals => [$e1, $e2] };
$ok = 0;
}
else {
if( $Refs_Seen{$e1} ) {
AltaVista-PerlSDK
view release on metacpan or search on metacpan
#endif
#include "avs.h"
static int
not_here(s)
char *s;
{
croak("%s not implemented on this architecture", s);
return -1;
}
case 'A':
if (strEQ(name, "AVS_ADDDOC_IO_ERR"))
#ifdef AVS_ADDDOC_IO_ERR
return AVS_ADDDOC_IO_ERR;
#else
goto not_there;
#endif
if (strEQ(name, "AVS_BADARGS_ERR"))
#ifdef AVS_BADARGS_ERR
return AVS_BADARGS_ERR;
#else
goto not_there;
#endif
if (strEQ(name, "AVS_CHARSET_ASCII8"))
#ifdef AVS_CHARSET_ASCII8
return AVS_CHARSET_ASCII8;
#else
goto not_there;
#endif
if (strEQ(name, "AVS_CHARSET_LATIN1"))
#ifdef AVS_CHARSET_LATIN1
return AVS_CHARSET_LATIN1;
#else
goto not_there;
#endif
if (strEQ(name, "AVS_CHARSET_UTF8"))
#ifdef AVS_CHARSET_UTF8
return AVS_CHARSET_UTF8;
#else
goto not_there;
#endif
if (strEQ(name, "AVS_COMPACT_IO_ERR"))
#ifdef AVS_COMPACT_IO_ERR
return AVS_COMPACT_IO_ERR;
#else
goto not_there;
#endif
if (strEQ(name, "AVS_COUNTS_ERR"))
#ifdef AVS_COUNTS_ERR
return AVS_COUNTS_ERR;
#else
goto not_there;
#endif
if (strEQ(name, "AVS_DATE_ERR"))
#ifdef AVS_DATE_ERR
return AVS_DATE_ERR;
#else
goto not_there;
#endif
if (strEQ(name, "AVS_DOCDATA_ERR"))
#ifdef AVS_DOCDATA_ERR
return AVS_DOCDATA_ERR;
#else
goto not_there;
#endif
if (strEQ(name, "AVS_DOCID_ERR"))
#ifdef AVS_DOCID_ERR
return AVS_DOCID_ERR;
#else
goto not_there;
#endif
if (strEQ(name, "AVS_DOCLIST_ERR"))
#ifdef AVS_DOCLIST_ERR
return AVS_DOCLIST_ERR;
#else
goto not_there;
#endif
if (strEQ(name, "AVS_DOC_EXISTS"))
#ifdef AVS_DOC_EXISTS
return AVS_DOC_EXISTS;
#else
goto not_there;
#endif
if (strEQ(name, "AVS_DOC_LIMIT_ERR"))
#ifdef AVS_DOC_LIMIT_ERR
return AVS_DOC_LIMIT_ERR;
#else
goto not_there;
#endif
if (strEQ(name, "AVS_DOC_NOTFOUND"))
#ifdef AVS_DOC_NOTFOUND
return AVS_DOC_NOTFOUND;
#else
goto not_there;
#endif
if (strEQ(name, "AVS_FIELD_ERR"))
#ifdef AVS_FIELD_ERR
return AVS_FIELD_ERR;
#else
goto not_there;
#endif
if (strEQ(name, "AVS_FILTER_ERR"))
#ifdef AVS_FILTER_ERR
return AVS_FILTER_ERR;
#else
goto not_there;
#endif
if (strEQ(name, "AVS_GETDATA_ERR"))
#ifdef AVS_GETDATA_ERR
return AVS_GETDATA_ERR;
#else
goto not_there;
#endif
if (strEQ(name, "AVS_INDEX_ERR"))
#ifdef AVS_INDEX_ERR
return AVS_INDEX_ERR;
#else
goto not_there;
#endif
if (strEQ(name, "AVS_LICENSE_EXPIRED"))
#ifdef AVS_LICENSE_EXPIRED
return AVS_LICENSE_EXPIRED;
#else
goto not_there;
#endif
if (strEQ(name, "AVS_LOCK_ERR"))
#ifdef AVS_LOCK_ERR
return AVS_LOCK_ERR;
#else
goto not_there;
#endif
if (strEQ(name, "AVS_MALLOC_ERR"))
#ifdef AVS_MALLOC_ERR
return AVS_MALLOC_ERR;
#else
goto not_there;
#endif
if (strEQ(name, "AVS_MAX_BUCKETS"))
#ifdef AVS_MAX_BUCKETS
return AVS_MAX_BUCKETS;
#else
goto not_there;
#endif
if (strEQ(name, "AVS_MAX_DOCDATA"))
#ifdef AVS_MAX_DOCDATA
return AVS_MAX_DOCDATA;
#else
goto not_there;
#endif
if (strEQ(name, "AVS_MAX_DOCID"))
#ifdef AVS_MAX_DOCID
return AVS_MAX_DOCID;
#else
goto not_there;
#endif
if (strEQ(name, "AVS_MAX_TIERS"))
#ifdef AVS_MAX_TIERS
return AVS_MAX_TIERS;
#else
goto not_there;
#endif
if (strEQ(name, "AVS_MAX_WORDSIZE"))
#ifdef AVS_MAX_WORDSIZE
return AVS_MAX_WORDSIZE;
#else
goto not_there;
#endif
if (strEQ(name, "AVS_MKSTABLE_IO_ERR"))
#ifdef AVS_MKSTABLE_IO_ERR
return AVS_MKSTABLE_IO_ERR;
#else
goto not_there;
#endif
if (strEQ(name, "AVS_MKVIS_IO_ERR"))
#ifdef AVS_MKVIS_IO_ERR
return AVS_MKVIS_IO_ERR;
#else
goto not_there;
#endif
if (strEQ(name, "AVS_NOMORE_WORDS"))
#ifdef AVS_NOMORE_WORDS
return AVS_NOMORE_WORDS;
#else
goto not_there;
#endif
if (strEQ(name, "AVS_OK"))
#ifdef AVS_OK
return AVS_OK;
#else
goto not_there;
#endif
if (strEQ(name, "AVS_OPEN_ERR"))
#ifdef AVS_OPEN_ERR
return AVS_OPEN_ERR;
#else
goto not_there;
#endif
if (strEQ(name, "AVS_OPTION_RANKBYDATE"))
#ifdef AVS_OPTION_RANKBYDATE
return AVS_OPTION_RANKBYDATE;
#else
goto not_there;
#endif
if (strEQ(name, "AVS_OPTION_SEARCHBYDATE"))
#ifdef AVS_OPTION_SEARCHBYDATE
return AVS_OPTION_SEARCHBYDATE;
#else
goto not_there;
#endif
if (strEQ(name, "AVS_OPTION_SEARCHSINCE"))
#ifdef AVS_OPTION_SEARCHSINCE
return AVS_OPTION_SEARCHSINCE;
#else
goto not_there;
#endif
if (strEQ(name, "AVS_OPTION_NOBLOCK"))
#ifdef AVS_OPTION_NOBLOCK
return AVS_OPTION_NOBLOCK;
#else
goto not_there;
#endif
if (strEQ(name, "AVS_OPTION_INDEX_CJK_CHARS_AS_WORDS"))
#ifdef AVS_OPTION_INDEX_CJK_CHARS_AS_WORDS
return AVS_OPTION_INDEX_CJK_CHARS_AS_WORDS;
#else
goto not_there;
#endif
if (strEQ(name, "AVS_OPTION_NOPROXIMITY"))
#ifdef AVS_OPTION_NOPROXIMITY
return AVS_OPTION_NOPROXIMITY;
#else
goto not_there;
#endif
if (strEQ(name, "AVS_OPT_FLAGS_RANK_TO_BOOL"))
#ifdef AVS_OPT_FLAGS_RANK_TO_BOOL
return AVS_OPT_FLAGS_RANK_TO_BOOL;
#else
goto not_there;
#endif
if (strEQ(name, "AVS_PARSE_ERR"))
#ifdef AVS_PARSE_ERR
return AVS_PARSE_ERR;
#else
goto not_there;
#endif
if (strEQ(name, "AVS_PARSE_SGML"))
#ifdef AVS_PARSE_SGML
return AVS_PARSE_SGML;
#else
goto not_there;
#endif
if (strEQ(name, "AVS_RESULTNUM_ERR"))
#ifdef AVS_RESULTNUM_ERR
return AVS_RESULTNUM_ERR;
#else
goto not_there;
#endif
if (strEQ(name, "AVS_SEARCH_ERR"))
#ifdef AVS_SEARCH_ERR
return AVS_SEARCH_ERR;
#else
goto not_there;
#endif
if (strEQ(name, "AVS_STARTDOC_ERR"))
#ifdef AVS_STARTDOC_ERR
return AVS_STARTDOC_ERR;
#else
goto not_there;
#endif
if (strEQ(name, "AVS_SYNC_ERR"))
#ifdef AVS_SYNC_ERR
return AVS_SYNC_ERR;
#else
goto not_there;
#endif
if (strEQ(name, "AVS_UNK_EXCEPTION_ERR"))
#ifdef AVS_UNK_EXCEPTION_ERR
return AVS_UNK_EXCEPTION_ERR;
#else
goto not_there;
#endif
if (strEQ(name, "AVS_UPDATE_ERR"))
#ifdef AVS_UPDATE_ERR
return AVS_UPDATE_ERR;
#else
goto not_there;
#endif
if (strEQ(name, "AVS_VERSION_ERR"))
#ifdef AVS_VERSION_ERR
return AVS_VERSION_ERR;
#else
goto not_there;
#endif
break;
case 'B':
break;
case 'C':
case 'I':
if (strEQ(name, "IN"))
#ifdef IN
return IN;
#else
goto not_there;
#endif
break;
case 'J':
break;
case 'K':
case 'O':
if (strEQ(name, "OUT"))
#ifdef OUT
return OUT;
#else
goto not_there;
#endif
break;
case 'P':
break;
case 'Q':
case 'V':
if (strEQ(name, "VALTYPE_NAME_LEN"))
#ifdef VALTYPE_NAME_LEN
return VALTYPE_NAME_LEN;
#else
goto not_there;
#endif
break;
case 'W':
break;
case 'X':
break;
}
errno = EINVAL;
return 0;
not_there:
errno = ENOENT;
return 0;
}
Alter
view release on metacpan or search on metacpan
nextchar|||
ninstr|||
no_bareword_allowed|||
no_fh_allowed|||
no_op|||
not_a_number|||
nothreadhook||5.008000|
nuke_stacks|||
num_overflow|||n
offer_nice_chunk|||
oopsAV|||
# if !defined(__PATCHLEVEL_H_INCLUDED__) && !(defined(PATCHLEVEL) && defined(SUBVERSION))
# define PERL_PATCHLEVEL_H_IMPLICIT
# include <patchlevel.h>
# endif
# if !(defined(PERL_VERSION) || (defined(SUBVERSION) && defined(PATCHLEVEL)))
# include <could_not_find_Perl_patchlevel.h>
# endif
# ifndef PERL_REVISION
# define PERL_REVISION (5)
/* Replace: 1 */
# define PERL_VERSION PATCHLEVEL
Alzabo
view release on metacpan or search on metacpan
lib/Alzabo/Exceptions.pm view on Meta::CPAN
'Alzabo::Exception::NotNullable' =>
{ description => 'An exception generated when there is an attempt is made to set a non-nullable column to NULL',
isa => 'Alzabo::Exception::Params',
fields => [ 'column_name', 'table_name', 'schema_name' ],
alias => 'not_nullable_exception',
},
'Alzabo::Exception::Panic' =>
{ description => 'An exception generated when something totally unexpected happens',
isa => 'Alzabo::Exception',
Amazon-MWS
view release on metacpan or search on metacpan
lib/Amazon/MWS/Uploader.pm view on Meta::CPAN
status
listed
error_code
/],
{
status => { -not_in => [qw/deleted/] },
shop_id => $self->_unique_shop_id,
}));
my %uploaded;
while (my $row = $sth->fetchrow_hashref) {
$row->{timestamp_string} ||= 0;
Amazon-S3-FastUploader
view release on metacpan or search on metacpan
t/boilerplate.t view on Meta::CPAN
use 5.006;
use strict;
use warnings;
use Test::More tests => 3;
sub not_in_file_ok {
my ($filename, %regex) = @_;
open( my $fh, '<', $filename )
or die "couldn't open $filename for reading: $!";
my %violated;
t/boilerplate.t view on Meta::CPAN
}
}
sub module_boilerplate_ok {
my ($module) = @_;
not_in_file_ok($module =>
'the great new $MODULENAME' => qr/ - The great new /,
'boilerplate description' => qr/Quick summary of what the module/,
'stub function definition' => qr/function[12]/,
);
}
TODO: {
local $TODO = "Need to replace the boilerplate text";
not_in_file_ok(README =>
"The README is used..." => qr/The README is used/,
"'version information here'" => qr/to provide version information/,
);
not_in_file_ok(Changes =>
"placeholder date/time" => qr(Date/time)
);
module_boilerplate_ok('lib/Amazon/S3/FastUploader.pm');
Amazon-S3-Thin
view release on metacpan or search on metacpan
t/02_credentials_ecs_container.t view on Meta::CPAN
}
{
diag "returned content is not JSON";
local $ENV{AWS_CONTAINER_CREDENTIALS_RELATIVE_URI} = '/not_json';
my $ua = MockUA->new;
eval {
my $credentials = Amazon::S3::Thin::Credentials->from_ecs_container(+{ ua => $ua });
};
AmbientOrb-Serial
view release on metacpan or search on metacpan
t/boilerplate.t view on Meta::CPAN
use strict;
use warnings;
use Test::More tests => 3;
sub not_in_file_ok {
my ($filename, %regex) = @_;
open my $fh, "<", $filename
or die "couldn't open $filename for reading: $!";
my %violated;
t/boilerplate.t view on Meta::CPAN
} else {
pass("$filename contains no boilerplate text");
}
}
not_in_file_ok(README =>
"The README is used..." => qr/The README is used/,
"'version information here'" => qr/to provide version information/,
);
not_in_file_ok(Changes =>
"placeholder date/time" => qr(Date/time)
);
sub module_boilerplate_ok {
my ($module) = @_;
not_in_file_ok($module =>
'the great new $MODULENAME' => qr/ - The great new /,
'boilerplate description' => qr/Quick summary of what the module/,
'stub function definition' => qr/function[12]/,
);
}
Amethyst
view release on metacpan or search on metacpan
Amethyst/Brain/Infobot/Module/Excuse.pm view on Meta::CPAN
The new frame relay network hasn't bedded down the software loop transmitter yet.
Fanout dropping voltage too much, try cutting some of those little traces
Plate voltage too low on demodulator tube
You did wha... oh _dear_....
CPU needs bearings repacked
Too many little pins on CPU confusing it, bend back and forth until 10-20% are neatly removed. Do _not_ leave metal bits visible!
_Rosin_ core solder? But...
Software uses US measurements, but the OS is in metric...
The computer fletely, mouse and all.
Your cat tried to eat the mouse.
The Borg tried to assimilate your system. Resistance is futile.
Amon2
view release on metacpan or search on metacpan
lib/Amon2/Web/Dispatcher/Lite.pm view on Meta::CPAN
my ($klass, $c) = @_;
if (my $p = $router->match($c->request->env)) {
return $p->{code}->($c, $p);
} else {
if ($router->method_not_allowed) {
return $c->res_405();
} else {
return $c->res_404();
}
}
( run in 0.467 second using v1.01-cache-2.11-cpan-b61123c0432 )