view release on metacpan or search on metacpan
Algorithm/TrunkClassifier/ppport.h view on Meta::CPAN
to see which API elements are provided by ppport.h.
=item *
You should avoid using deprecated parts of the API. For example, using
global Perl variables without the C<PL_> prefix is deprecated. Also,
some API functions used to have a C<perl_> prefix. Using this form is
also deprecated. You can safely use the supported API, as F<ppport.h>
will provide wrappers for older Perl versions.
=item *
Algorithm/TrunkClassifier/ppport.h view on Meta::CPAN
These functions or variables will be marked C<explicit> in the list shown
by C<--list-provided>.
Depending on whether you module has a single or multiple files that
use such functions or variables, you want either C<static> or global
variants.
For a C<static> function or variable (used only in a single source
file), use:
#define NEED_function
#define NEED_variable
For a global function or variable (used in multiple source files),
use:
#define NEED_function_GLOBAL
#define NEED_variable_GLOBAL
Note that you mustn't have more than one global request for the
same function or variable in your project.
Function / Variable Static Request Global Request
-----------------------------------------------------------------------------------------
PL_signals NEED_PL_signals NEED_PL_signals_GLOBAL
Algorithm/TrunkClassifier/ppport.h view on Meta::CPAN
PERL_MAGIC_defelem|5.007002||p
PERL_MAGIC_envelem|5.007002||p
PERL_MAGIC_env|5.007002||p
PERL_MAGIC_ext|5.007002||p
PERL_MAGIC_fm|5.007002||p
PERL_MAGIC_glob|5.009005||p
PERL_MAGIC_isaelem|5.007002||p
PERL_MAGIC_isa|5.007002||p
PERL_MAGIC_mutex|5.009005||p
PERL_MAGIC_nkeys|5.007002||p
PERL_MAGIC_overload_elem|5.007002||p
Algorithm/TrunkClassifier/ppport.h view on Meta::CPAN
PERL_MAGIC_overload|5.007002||p
PERL_MAGIC_pos|5.007002||p
PERL_MAGIC_qr|5.007002||p
PERL_MAGIC_regdata|5.007002||p
PERL_MAGIC_regdatum|5.007002||p
PERL_MAGIC_regex_global|5.007002||p
PERL_MAGIC_shared_scalar|5.007003||p
PERL_MAGIC_shared|5.007003||p
PERL_MAGIC_sigelem|5.007002||p
PERL_MAGIC_sig|5.007002||p
PERL_MAGIC_substr|5.007002||p
Algorithm/TrunkClassifier/ppport.h view on Meta::CPAN
PL_expect|5.009005||p
PL_hexdigit|5.005000||p
PL_hints|5.005000||p
PL_last_in_gv|||n
PL_laststatval|5.005000||p
PL_modglobal||5.005000|n
PL_na|5.004050||pn
PL_no_modify|5.006000||p
PL_ofs_sv|||n
PL_perl_destruct_level|5.004050||p
PL_perldb|5.004050||p
Algorithm/TrunkClassifier/ppport.h view on Meta::CPAN
ck_exec|||
ck_exists|||
ck_exit|||
ck_ftst|||
ck_fun|||
ck_glob|||
ck_grep|||
ck_index|||
ck_join|||
ck_lengthconst|||
ck_lfun|||
Algorithm/TrunkClassifier/ppport.h view on Meta::CPAN
forget_pmop|||
form_nocontext|||vn
form||5.004000|v
fp_dup|||
fprintf_nocontext|||vn
free_global_struct|||
free_tied_hv_pool|||
free_tmps|||
gen_constant_list|||
get_arena|||
get_av|5.006000||p
Algorithm/TrunkClassifier/ppport.h view on Meta::CPAN
get_re_arg|||
get_sv|5.006000||p
get_vtbl||5.005030|
getcwd_sv||5.007002|
getenv_len|||
glob_2number|||
glob_2pv|||
glob_assign_glob|||
glob_assign_ref|||
gp_dup|||
gp_free|||
gp_ref|||
grok_bin|5.007003||p
grok_hex|5.007003||p
Algorithm/TrunkClassifier/ppport.h view on Meta::CPAN
incpush_if_exists|||
incpush|||
ingroup|||
init_argv_symbols|||
init_debugger|||
init_global_struct|||
init_i18nl10n||5.006000|
init_i18nl14n||5.006000|
init_ids|||
init_interp|||
init_main_stash|||
Algorithm/TrunkClassifier/ppport.h view on Meta::CPAN
magic_setcollxfrm|||
magic_setdbline|||
magic_setdefelem|||
magic_setenv|||
magic_setfm|||
magic_setglob|||
magic_sethint|||
magic_setisa|||
magic_setmglob|||
magic_setnkeys|||
magic_setpack|||
magic_setpos|||
magic_setregexp|||
magic_setsig|||
Algorithm/TrunkClassifier/ppport.h view on Meta::CPAN
sortsv||5.007003|
space_join_names_mortal|||
ss_dup|||
stack_grow|||
start_force|||
start_glob|||
start_subparse||5.004000|
stashpv_hvname_match||5.009005|
stdize_locale|||
strEQ|||
strGE|||
Algorithm/TrunkClassifier/ppport.h view on Meta::CPAN
sv_setuv_mg|5.004050||p
sv_setuv|5.004000||p
sv_tainted||5.004000|
sv_taint||5.004000|
sv_true||5.005000|
sv_unglob|||
sv_uni_display||5.007003|
sv_unmagic|||
sv_unref_flags||5.007001|
sv_unref|||
sv_untaint||5.004000|
Algorithm/TrunkClassifier/ppport.h view on Meta::CPAN
push @files, $_ unless $seen{$_}++;
}
else { warn "'$_' is not a file.\n" }
}
else {
my @new = grep { -f } glob $_
or warn "'$_' does not exist.\n";
push @files, grep { !$seen{$_}++ } @new;
}
}
}
Algorithm/TrunkClassifier/ppport.h view on Meta::CPAN
$File::Find::name =~ /($srcext)$/i
and push @files, $File::Find::name;
}, '.');
};
if ($@) {
@files = map { glob "*$_" } @srcext;
}
}
if (!@ARGV || $opt{filter}) {
my(@in, @out);
Algorithm/TrunkClassifier/ppport.h view on Meta::CPAN
@files = @in;
}
die "No input files given!\n" unless @files;
my(%files, %global, %revreplace);
%revreplace = reverse %replace;
my $filename;
my $patch_opened = 0;
for $filename (@files) {
Algorithm/TrunkClassifier/ppport.h view on Meta::CPAN
}
}
while ($c =~ /^$HS*#$HS*define$HS+(NEED_(\w+?)(_GLOBAL)?)\b/mg) {
if (exists $need{$2}) {
$file{defined $3 ? 'needed_global' : 'needed_static'}{$2}++;
}
else { warning("Possibly wrong #define $1 in $filename") }
}
for (qw(uses needs uses_todo needed_global needed_static)) {
for $func (keys %{$file{$_}}) {
push @{$global{$_}{$func}}, $filename;
}
}
$files{$filename} = \%file;
}
# Globally resolve NEED_'s
my $need;
for $need (keys %{$global{needs}}) {
if (@{$global{needs}{$need}} > 1) {
my @targets = @{$global{needs}{$need}};
my @t = grep $files{$_}{needed_global}{$need}, @targets;
@targets = @t if @t;
@t = grep /\.xs$/i, @targets;
@targets = @t if @t;
my $target = shift @targets;
$files{$target}{needs}{$need} = 'global';
for (@{$global{needs}{$need}}) {
$files{$_}{needs}{$need} = 'extern' if $_ ne $target;
}
}
}
Algorithm/TrunkClassifier/ppport.h view on Meta::CPAN
my $message = '';
if (not exists $file{uses}{$func}) {
$message = "No need to define NEED_$func if $func is never used";
}
elsif (exists $file{needs}{$func} && $file{needs}{$func} ne 'static') {
$message = "No need to define NEED_$func when already needed globally";
}
if ($message) {
diag($message);
$file{changes} += ($c =~ s/^$HS*#$HS*define$HS+NEED_$func\b.*$LF//mg);
}
}
for $func (sort keys %{$file{needed_global}}) {
my $message = '';
if (not exists $global{uses}{$func}) {
$message = "No need to define NEED_${func}_GLOBAL if $func is never used";
}
elsif (exists $file{needs}{$func}) {
if ($file{needs}{$func} eq 'extern') {
$message = "No need to define NEED_${func}_GLOBAL when already needed globally";
}
elsif ($file{needs}{$func} eq 'static') {
$message = "No need to define NEED_${func}_GLOBAL when only used in this file";
}
}
Algorithm/TrunkClassifier/ppport.h view on Meta::CPAN
my $pp = '';
for $func (sort keys %{$file{needs}}) {
my $type = $file{needs}{$func};
next if $type eq 'extern';
my $suffix = $type eq 'global' ? '_GLOBAL' : '';
unless (exists $file{"needed_$type"}{$func}) {
if ($type eq 'global') {
diag("Files [@{$global{needs}{$func}}] need $func, adding global request");
}
else {
diag("File needs $func, adding static request");
}
$pp .= "#define NEED_$func$suffix\n";
Algorithm/TrunkClassifier/ppport.h view on Meta::CPAN
/* Fetches the SV that keeps the per-interpreter data. */
#define dMY_CXT_SV \
SV *my_cxt_sv = get_sv(MY_CXT_KEY, FALSE)
#else /* >= perl5.004_68 */
#define dMY_CXT_SV \
SV *my_cxt_sv = *hv_fetch(PL_modglobal, MY_CXT_KEY, \
sizeof(MY_CXT_KEY)-1, TRUE)
#endif /* < perl5.004_68 */
/* This declaration should be used within all functions that use the
* interpreter-local data. */
Algorithm/TrunkClassifier/ppport.h view on Meta::CPAN
#ifndef PERL_MAGIC_fm
# define PERL_MAGIC_fm 'f'
#endif
#ifndef PERL_MAGIC_regex_global
# define PERL_MAGIC_regex_global 'g'
#endif
#ifndef PERL_MAGIC_isa
# define PERL_MAGIC_isa 'I'
#endif
Algorithm/TrunkClassifier/ppport.h view on Meta::CPAN
#ifndef PERL_MAGIC_defelem
# define PERL_MAGIC_defelem 'y'
#endif
#ifndef PERL_MAGIC_glob
# define PERL_MAGIC_glob '*'
#endif
#ifndef PERL_MAGIC_arylen
# define PERL_MAGIC_arylen '#'
#endif
view release on metacpan or search on metacpan
lib/Algorithm/VSM.pm view on Meta::CPAN
foreach ( sort keys %{$self->{_vocab_hist_on_disk}} ) {
printf( "%s\t%d\n", $_, $self->{_vocab_hist_on_disk}->{$_} );
}
}
if ($self->{_save_model_on_disk}) {
unlink glob "$self->{_corpus_vocab_db}.*";
unlink glob "$self->{_doc_vectors_db}.*";
unlink glob "$self->{_normalized_doc_vecs_db}.*";
tie %{$self->{_vocab_hist_on_disk}}, 'SDBM_File',
$self->{_corpus_vocab_db}, O_RDWR|O_CREAT, 0640
or die "Can't create DBM files: $!";
foreach (keys %{$self->{_vocab_hist}}) {
$self->{_vocab_hist_on_disk}->{$_} = $self->{_vocab_hist}->{$_};
lib/Algorithm/VSM.pm view on Meta::CPAN
sub _scan_directory {
my $self = shift;
my $dir = rel2abs( shift );
my $current_dir = cwd;
chdir $dir or die "Unable to change directory to $dir: $!";
foreach ( glob "*" ) {
if ( -d and !(-l) ) {
$self->_scan_directory( $_ );
chdir $dir
or die "Unable to change directory to $dir: $!";
} elsif (-r _ and
view release on metacpan or search on metacpan
* are tired of dereferencing hash-based object attributes
* wish perl could make-do with fewer $, -> and {} things
* are a little scared of using typeglobs
* want the freedom to put what you want, when you want in
the symbol table without having to deal with wierd syntax
* need to use scalar constants in your program since you don't
view release on metacpan or search on metacpan
inc/Module/Install.pm view on Meta::CPAN
@exts = $self->{admin}->load_all_extensions;
}
my %seen;
foreach my $obj ( @exts ) {
while (my ($method, $glob) = each %{ref($obj) . '::'}) {
next unless $obj->can($method);
next if $method =~ /^_/;
next if $method eq uc($method);
$seen{$method}++;
}
view release on metacpan or search on metacpan
inc/Module/AutoInstall.pm view on Meta::CPAN
my $cur = _version_of($mod);
if (_version_cmp ($cur, $arg) >= 0)
{
print "loaded. ($cur" . ( $arg ? " >= $arg" : '' ) . ")\n";
push @Existing, $mod => $arg;
$DisabledTests{$_} = 1 for map { glob($_) } @skiptests;
}
else {
if (not defined $cur) # indeed missing
{
print "missing." . ( $arg ? " (would need $arg)" : '' ) . "\n";
inc/Module/AutoInstall.pm view on Meta::CPAN
) =~ /^[Yy]/
)
)
{
push( @Missing, @required );
$DisabledTests{$_} = 1 for map { glob($_) } @skiptests;
}
elsif ( !$SkipInstall
and $default
and $mandatory
and
_prompt( qq{==> The module(s) are mandatory! Really skip?}, 'n', )
=~ /^[Nn]/ )
{
push( @Missing, @required );
$DisabledTests{$_} = 1 for map { glob($_) } @skiptests;
}
else {
$DisabledTests{$_} = 1 for map { glob($_) } @tests;
}
}
if ( @Missing and not( $CheckOnly or $UnderCPAN) ) {
require Config;
inc/Module/AutoInstall.pm view on Meta::CPAN
}
$args{test}{TESTS} ||= 't/*.t';
$args{test}{TESTS} = join( ' ',
grep { !exists( $DisabledTests{$_} ) }
map { glob($_) } split( /\s+/, $args{test}{TESTS} ) );
my $missing = join( ',', @Missing );
my $config =
join( ',', UNIVERSAL::isa( $Config, 'HASH' ) ? %{$Config} : @{$Config} )
if $Config;
view release on metacpan or search on metacpan
$ftp->login or die "Unable to anonymously login to FTP server";
$ftp->binary;
$ftp->get($ftp_path) or die "Failed to download $ftp_path";
$ftp->quit;
my ($archive) = glob("*.tar.gz");
Archive::Tar->new($archive)->extract;
unlink $archive;
my ($tool_dir) = glob "$tool-*";
chdir $tool_dir;
run( command => ["./configure", "--prefix=$share_dir"] )
or die "Failed to configure $tool";
print "Compiling $tool...\n";
run( command => [qw(make -j9)]) or die "Failed to make $tool";
$lib =~ s/##/$autotools{libtool}/;
open $LIB, ">", "lib/Alien/Autotools.pm";
print $LIB $lib };
# Update manifest:
my @share_files = map { glob catdir qw(share $_ *) } qw(bin share);
@share_files > 0 and do {
open my $MANIFEST, ">>", "MANIFEST";
print $MANIFEST map {
catfile($builder->dist_dir, $_) . "\n" } @share_files };
view release on metacpan or search on metacpan
corpus/libpalindrome/config.sub view on Meta::CPAN
| x86-* | x86_64-* | xc16x-* | xps100-* \
| xstormy16-* | xtensa*-* \
| ymp-* \
| z8k-* | z80-*)
;;
# Recognize the basic CPU types without company name, with glob match.
xtensa*)
basic_machine=$basic_machine-unknown
;;
# Recognize the various machine names and aliases which stand
# for a CPU type and a company and sometimes even an OS.
view release on metacpan or search on metacpan
1.07 2019-11-22 16:01:56 -0700
- Fix bug in blib detection (gh#13)
- Update documentation to reflect defaults for %s (gh#12, gh#13)
1.06 2018-12-15 20:34:11 -0700
- Require Archive::Tar 1.40 for pax_global_header fix
1.05 2018-08-29 16:53:39 -0400
- Documentation improvements
- Improve diagnostics for HTTP connection failures (gh#6, gh#7)
view release on metacpan or search on metacpan
0.000_009 Apr 24, 2012
- Note: Released from 'dlopen' branch
- Uses new dynamic loading mechanism via DynaLoader
0.000_008 Apr 11, 2012
- Prevent do_system from changing wd globally
0.000_007 Apr 4, 2012
- Don't rebuild library on repeated M::B::dispatch
- More bugfixes
view release on metacpan or search on metacpan
inc/Module/Install.pm view on Meta::CPAN
@exts = $admin->load_all_extensions;
}
my %seen;
foreach my $obj ( @exts ) {
while (my ($method, $glob) = each %{ref($obj) . '::'}) {
next unless $obj->can($method);
next if $method =~ /^_/;
next if $method eq uc($method);
$seen{$method}++;
}
view release on metacpan or search on metacpan
examples/java-tutorial/BUILD view on Meta::CPAN
load("@rules_java//java:defs.bzl", "java_binary")
java_binary(
name = "ProjectRunner",
srcs = glob(["src/main/java/com/example/*.java"]),
)
view release on metacpan or search on metacpan
unlink $runTests_exec;
unlink $runBench_exec;
unlink $runBenchOpenMP_exec;
# delete object files that end in .o
my @object_files = glob( catfile( $binary_dest_directory, '*.o' ) );
unlink $_ for @object_files;
};
};
view release on metacpan or search on metacpan
.travis.yml view on Meta::CPAN
- '5.14'
matrix:
allow_failures:
- perl: blead
env:
global:
- RELEASE_TESTING=1
- AUTHOR_TESTING=1
before_install:
- if [ "$TRAVIS_BRANCH" == "build" ]; then rm -f dist.ini; fi
- eval $(curl https://travis-perl.github.io/init) --auto
view release on metacpan or search on metacpan
t/alien_build_plugin_cleanse_builddir.t view on Meta::CPAN
ok (-e $build_dir, 'build dir exists');
my $alien = alien_build_ok();
ok (!-e $build_dir, 'build dir no longer exists')
or print join ', ', glob ("$build_dir/*");
done_testing();
view release on metacpan or search on metacpan
lib/Alien/Build/Plugin/Fetch/Cache.pm view on Meta::CPAN
use Alien::Build::Plugin;
use URI 1.71;
use Path::Tiny 0.100 ();
use Sereal 3.015 qw( encode_sereal decode_sereal );
use Digest::MD5;
use File::Glob qw( bsd_glob );
# ABSTRACT: Alien::Build plugin to cache files downloaded from the internet
our $VERSION = '0.05'; # VERSION
sub _local_file
{
my($uri) = @_;
Path::Tiny
->new(bsd_glob '~/.alienbuild/plugin_fetch_cache')
->child($uri->scheme)
->child($uri->host)
->child($uri->path)
->child('meta');
}
lib/Alien/Build/Plugin/Fetch/Cache.pm view on Meta::CPAN
open my $fh, '<', $res->{path};
$md5->addfile($fh);
close $fh;
}
my $data = Path::Tiny->new(bsd_glob '~/.alienbuild/plugin_fetch_cache/payload')
->child($md5->hexdigest)
->child($res->{filename});
$data->parent->mkpath;
my $res2 = {
view release on metacpan or search on metacpan
lib/Alien/Build/Plugin/Probe/OverrideCI.pm view on Meta::CPAN
install:
- cpanm -n Alien::Build::Plugin::Probe::OverrideCI
- cpanm -n --installdeps .
env:
global:
- ALIEN_BUILD_PRELOAD=Probe::OverrideCI
matrix:
- ALIEN_INSTALL_TYPE_CI=share
- ALIEN_INSTALL_TYPE_CI=system
view release on metacpan or search on metacpan
lib/Alien/Base/Wrapper.pm view on Meta::CPAN
=head2 new
my $abw = Alien::Base::Wrapper->new(@aliens);
Instead of passing the aliens you want to use into this modules import you can create
a non-global instance of C<Alien::Base::Wrapper> using the OO interface.
=head1 FUNCTIONS
=head2 cc
view release on metacpan or search on metacpan
} @{ $ret->{list} };
$build->log(".msi list (filter) " . join(" ", map $_->{filename}, @filtered_list));
# Need to skip:
#
# Reason: modify global environment
# - appendpath.msi
# - path.msi
#
# Reason: extra disk space
# - launcher.msi
view release on metacpan or search on metacpan
cp/codepress/languages/perl.js view on Meta::CPAN
Language.syntax = [
{ input : /\"(.*?)(\"|<br>|<\/P>)/g, output : '<s>"$1$2</s>' }, // strings double quote
{ input : /\'(.*?)(\'|<br>|<\/P>)/g, output : '<s>\'$1$2</s>' }, // strings single quote
{ input : /([\$\@\%][\w\.]*)/g, output : '<a>$1</a>' }, // vars
{ input : /(sub\s+)([\w\.]*)/g, output : '$1<em>$2</em>' }, // functions
{ input : /\b(abs|accept|alarm|atan2|bind|binmode|bless|caller|chdir|chmod|chomp|chop|chown|chr|chroot|close|closedir|connect|continue|cos|crypt|dbmclose|dbmopen|defined|delete|die|do|dump|each|else|elsif|endgrent|endhostent|endnetent|endprotoent|e...
{ input : /([\(\){}])/g, output : '<u>$1</u>' }, // special chars
{ input : /#(.*?)(<br>|<\/P>)/g, output : '<i>#$1</i>$2' } // comments
]
Language.snippets = []
view release on metacpan or search on metacpan
inc/Module/Install.pm view on Meta::CPAN
@exts = $self->{admin}->load_all_extensions;
}
my %seen;
foreach my $obj ( @exts ) {
while (my ($method, $glob) = each %{ref($obj) . '::'}) {
next unless $obj->can($method);
next if $method =~ /^_/;
next if $method eq uc($method);
$seen{$method}++;
}
view release on metacpan or search on metacpan
# for either Class or method.
private: []
unused_vars:
skip: 0
global:
ignore_vars: []
module: {}
version:
dir: lib
view release on metacpan or search on metacpan
# for either Class or method.
private: []
unused_vars:
skip: 0
global:
ignore_vars: []
module: {}
version:
dir: lib
view release on metacpan or search on metacpan
src/Source/FreeImage/MNGHelper.cpp view on Meta::CPAN
case TERM:
break;
case BACK:
break;
// Global "PLTE" and "tRNS" (if any). PNG "PLTE" will be of 0 byte, as it uses global data.
case PLTE: // Global
m_HasGlobalPalette = TRUE;
PLTE_file_size = mLength + 12; // (lentgh, name, array, crc) = (4, 4, mLength, 4)
PLTE_file_chunk = (BYTE*)realloc(PLTE_file_chunk, PLTE_file_size);
if(!PLTE_file_chunk) {
src/Source/FreeImage/MNGHelper.cpp view on Meta::CPAN
// Put back to original pos
io->seek_proc(handle, mOrigPos, SEEK_SET);
// write the PNG chunks
FreeImage_WriteMemory(mChunk, 1, m_TotalBytesOfChunks, hPngMemory);
// plug in global PLTE if local PLTE exists
if(m_HasGlobalPalette) {
// ensure we remove some local chunks, so that global
// "PLTE" can be inserted right before "IDAT".
mng_RemoveChunk(hPngMemory, mng_PLTE);
mng_RemoveChunk(hPngMemory, mng_tRNS);
mng_RemoveChunk(hPngMemory, mng_bKGD);
// insert global "PLTE" chunk in its entirety before "IDAT"
mng_InsertChunk(hPngMemory, mng_IDAT, PLTE_file_chunk, PLTE_file_size);
}
if(dib) FreeImage_Unload(dib);
dib = mng_LoadFromMemoryHandle(hPngMemory, flags);
view release on metacpan or search on metacpan
# Compile/Install:
say "Configuring...";
my $base_dir = $builder->base_dir;
my $share_dir = catdir( $base_dir, "share" );
my $gmp_dir = catdir( $base_dir, glob "gmp-*" );
chdir $gmp_dir;
run( command => [
"./configure", "--prefix=$share_dir", "--enable-shared"] )
or die "Failed to configure GMP";
run( command => [qw(make install)] ) or die "Failed to install GMP";
# Gather include and lib directories:
chdir $base_dir;
remove_tree($gmp_dir);
my @extra_files = ( glob( catfile qw(share include *) ),
glob( catfile qw(share lib *) ),
glob( catfile qw(share share info *) ) );
my $dest_sharedir = catdir( $builder->install_destination("lib"),
"auto", "share", "dist", "Alien-GMP" );
( inc_dir => catdir($dest_sharedir, "include"),
lib_dir => catdir($dest_sharedir, "lib"),
extra_files => \@extra_files ) } };
view release on metacpan or search on metacpan
lib/Alien/Gnuplot.pm view on Meta::CPAN
called automatically at load time. Alien::Gnuplot doesn't have any
actual plotting methods - making use of gnuplot, once it is found and
verified, is up to you or your client module.
Using Alien::Gnuplot checks for existence of the executable, verifies
that it runs properly, and sets several global variables to describe
the properties of the gnuplot it found:
=over 3
=item * C<$Alien::Gnuplot::executable>
lib/Alien/Gnuplot.pm view on Meta::CPAN
pointed to by GNUPLOT_BINARY, then the module throws an exception.
You can also verify that it has not completed successfully, by
examining $Alien::Gnuplot::version, which is undefined in case of
failure and contains the gnuplot version string on success.
If you think the global state of the gnuplot executable may have
changed, you can either reload the module or explicitly call
C<Alien::Gnuplot::load_gnuplot()> to force a fresh inspection of
the executable.
=head1 INSTALLATION STRATEGY
lib/Alien/Gnuplot.pm view on Meta::CPAN
$pl = $3;
$executable = $exec_path;
##############################
# Parse out available terminals and put them into the
# global list and hash.
@terms = ();
%terms = ();
my $reading_terms = 0;
for my $line(@lines) {
last if($line =~ m/CcColors/);
lib/Alien/Gnuplot.pm view on Meta::CPAN
$terms{$1} = $2;
}
}
##############################
# Parse out available colors and put them into that global list and hash.
@colors = ();
%colors = ();
for my $line(@lines) {
last if($line =~ m/FfFinished/);
view release on metacpan or search on metacpan
GvaScript_Builder.pm view on Meta::CPAN
my ($self) = @_;
require Pod::POM;
require Pod::POM::View::HTML;
my @podfiles = glob ("lib/Alien/GvaScript/*.pod");
my $parser = new Pod::POM;
foreach my $podfile (@podfiles) {
my $pom = $parser->parse($podfile) or die $parser->error;
$podfile =~ m[^lib/Alien/GvaScript/(.*)\.pod];
GvaScript_Builder.pm view on Meta::CPAN
# destination for wiki files
my $dir = "blib/wiki";
-d $dir or mkdir $dir or die "mkdir $dir: $!";
# list of source files
my @podfiles = glob ("lib/Alien/GvaScript/*.pod");
# convert each file
foreach my $podfile (@podfiles) {
my $parser = Pod::Simple::Wiki->new('googlecode');
view release on metacpan or search on metacpan
inc/My/Builder.pm view on Meta::CPAN
use lib "inc";
use File::Spec::Functions qw(catfile rel2abs);
use ExtUtils::Command;
use LWP::Simple qw(getstore head);
use File::Find;
use File::Glob qw(bsd_glob);
use File::Path qw();
use File::ShareDir;
use File::Temp qw(tempdir tempfile);
use Digest::SHA qw(sha1_hex);
use Archive::Extract;
inc/My/Builder.pm view on Meta::CPAN
}
}
### XXX hack for handling github tarballs
unless (-d "$build_src/cd" && -d "$build_src/im" && -d "$build_src/iup") {
for my $f (bsd_glob("$build_src/*")) {
if ($f =~ m!^\Q$build_src\E/.*?(im|cd|iup).*$!) {
print "renaming: $f $build_src/$1\n";
rename ($f, "$build_src/$1");
}
}
view release on metacpan or search on metacpan
lib/Alien/InteractiveBrokers.pm view on Meta::CPAN
my $self = {};
# Instantiate the object. sort of.
bless( $self, $class );
# Direct the global cache to us (see note above)
$CACHE = $self;
return( $self );
}
view release on metacpan or search on metacpan
inc/My/Judy/Builder.pm view on Meta::CPAN
# into depended-on- blib/* directories.
my $alien = File::Spec->catdir( $Orig_CWD, 'blib', 'arch', 'Alien', 'Judy' );
File::Path::make_path( $alien );
my @files = (
'src/Judy.h',
glob('src/obj/.libs/*'),
);
for my $file ( @files ) {
File::Copy::copy( $file, $alien );
}
view release on metacpan or search on metacpan
use File::Spec;
use_ok('Alien::Leptonica');
# for dev testing, get the headers out of the build directory
my ($built_allheaders) = glob '_alien/leptonica-*/src/allheaders.h';
my $built_dir = defined $built_allheaders && File::Spec->rel2abs(dirname($built_allheaders));
my @inc_built = defined $built_allheaders && -f $built_allheaders ? (INC => "-I$built_dir") : ();
SKIP: {
eval { load 'Inline::C' } or do {