view release on metacpan or search on metacpan
t/02_binary_permissions.t view on Meta::CPAN
$makeinfo_path = can_run('makeinfo');
#}
ok(defined $makeinfo_path, '`makeinfo` binary path is defined');
isnt($makeinfo_path, q{}, '`makeinfo` binary path is not empty');
# split makeinfo executable file from directory containing it
(my $makeinfo_volume, my $makeinfo_directories, my $makeinfo_file) = File::Spec->splitpath($makeinfo_path);
my $makeinfo_directory = File::Spec->catpath($makeinfo_volume, $makeinfo_directories, q{});
# test makeinfo directory permissions
ok(defined $makeinfo_directory, 'Alien::Texinfo->bin_dir() is defined');
view release on metacpan or search on metacpan
inc/inc_Module-Build/Module/Build/Base.pm view on Meta::CPAN
@{ $self->rscan_dir($dir, file_qr("\\.$type\$")) } };
}
sub localize_file_path {
my ($self, $path) = @_;
return File::Spec->catfile( split m{/}, $path );
}
sub localize_dir_path {
my ($self, $path) = @_;
return File::Spec->catdir( split m{/}, $path );
}
sub fix_shebang_line { # Adapted from fixin() in ExtUtils::MM_Unix 1.35
my ($self, @files) = @_;
my $c = ref($self) ? $self->{config} : 'Module::Build::Config';
view release on metacpan or search on metacpan
xgboost/R-package/tests/testthat/test_helpers.R view on Meta::CPAN
imp.GLM <- xgb.importance(model = mbst.GLM)
expect_equal(dim(imp.GLM), c(12, 3))
expect_equal(imp.GLM$Class, rep(0:2, each=4))
})
test_that("xgb.model.dt.tree and xgb.importance work with a single split model", {
bst1 <- xgboost(data = sparse_matrix, label = label, max_depth = 1,
eta = 1, nthread = 2, nrounds = 1, verbose = 0,
objective = "binary:logistic")
expect_error(dt <- xgb.model.dt.tree(model = bst1), regexp = NA) # no error
expect_equal(nrow(dt), 3)
view release on metacpan or search on metacpan
inc/Alien/make/Module/Build.pm view on Meta::CPAN
);
open( my $stamp, ">", $buildstamp ) or die "Unable to touch .build-stamp file - $!";
}
my @module_file = split m/::/, $self->module_name . ".pm";
my $srcfile = File::Spec->catfile( $self->base_dir, "lib", @module_file );
my $dstfile = File::Spec->catfile( $blib, "lib", @module_file );
unless( $self->up_to_date( $srcfile, $dstfile ) ) {
my %replace = (
view release on metacpan or search on metacpan
inc/Alien/make/Module/Build.pm view on Meta::CPAN
);
open( my $stamp, ">", $buildstamp ) or die "Unable to touch .build-stamp file - $!";
}
my @module_file = split m/::/, $self->module_name . ".pm";
my $srcfile = File::Spec->catfile( $self->base_dir, "lib", @module_file );
my $dstfile = File::Spec->catfile( $blib, "lib", @module_file );
unless( $self->up_to_date( $srcfile, $dstfile ) ) {
my %replace = (
view release on metacpan or search on metacpan
inc/Alien/make/Module/Build.pm view on Meta::CPAN
);
open( my $stamp, ">", $buildstamp ) or die "Unable to touch .build-stamp file - $!";
}
my @module_file = split m/::/, $self->module_name . ".pm";
my $srcfile = File::Spec->catfile( $self->base_dir, "lib", @module_file );
my $dstfile = File::Spec->catfile( $blib, "lib", @module_file );
unless( $self->up_to_date( $srcfile, $dstfile ) ) {
my %replace = (
view release on metacpan or search on metacpan
inc/Alien/make/Module/Build.pm view on Meta::CPAN
);
open( my $stamp, ">", $buildstamp ) or die "Unable to touch .build-stamp file - $!";
}
my @module_file = split m/::/, $self->module_name . ".pm";
my $srcfile = File::Spec->catfile( $self->base_dir, "lib", @module_file );
my $dstfile = File::Spec->catfile( $blib, "lib", @module_file );
unless( $self->up_to_date( $srcfile, $dstfile ) ) {
my %replace = (
view release on metacpan or search on metacpan
lib/Tickit/Widget/Static.pm view on Meta::CPAN
my ( $text ) = @_;
my $waslines = $self->lines;
my $wascols = $self->cols;
@_lines = split m/\n/, $text;
# split on empty string returns empty list
@_lines = ( "" ) if !@_lines;
$self->resized if $self->lines != $waslines or $self->cols != $wascols;
view release on metacpan or search on metacpan
lib/AnyEvent/DAAP/Server/Track/File/MP3.pm view on Meta::CPAN
$self->dmap_itemname( $tag->{TITLE} || basename($file, ".mp3") );
$self->daap_songalbum( $tag->{ALBUM} );
$self->daap_songartist( $tag->{ARTIST} );
$self->daap_songcomment( $tag->{COMMENT} );
$self->daap_songyear( $tag->{YEAR} || undef );
my ($number, $count) = split m{/}, ($tag->{TRACKNUM} || "");
$self->daap_songtrackcount( $count || 0);
$self->daap_songtracknumber( $number || 0 );
# from blech:
# if ($rtag->{TCP} || $rtag->{TCMP}) {
view release on metacpan or search on metacpan
lib/AnyEvent/GnuPG.pm view on Meta::CPAN
$proc->finish;
$self->_end_gnupg(
sub {
if ( $version =~ m{\d(?:\.\d)*} ) {
$cv->send( split m{\.} => $& );
}
else {
$cv->croak(
"cannot obtain version number from string: '$version'");
}
view release on metacpan or search on metacpan
inc/Test/HTTP/AnyEvent/Server.pm view on Meta::CPAN
my $len = sysread $rh, $buf, 65536;
AE::log fatal =>
"couldn't sysread() from pipe: $!"
if not defined $len or not $len;
my ($address, $port) = split m{\t}x, $buf;
$self->set_address($address);
$self->set_port($port);
$self->set_forked_pid($pid);
AE::log info =>
"forked as $pid and bound to http://$address:$port/";
view release on metacpan or search on metacpan
lib/AnyEvent/PgRecvlogical.pm view on Meta::CPAN
my $LSNStr = Str->where(sub { m{[0-9A-F]{1,8}/[0-9A-F]{1,8}} })
->plus_coercions(Int() => sub { sprintf '%X/%X', (($_ >> 32) & 0xffff_ffff), ($_ & 0xffff_ffff) });
my $LSN = Int->plus_coercions(
$LSNStr => sub {
my ($h, $l) = map { hex } split m{/}; ($h << 32) | $l;
}
);
=head1 ATTRIBUTES
view release on metacpan or search on metacpan
AuthCookieURL.pm view on Meta::CPAN
my $debug = $r->dir_config( DEBUG ) || 0;
$r->log_error('TRANS:Requested URI = \'' . $r->the_request() . "'" ) if $debug >= 3;
my ( undef, $session, $rest ) = split m[/+], $r->uri, 3;
$rest ||= '';
my $prefix = $r->dir_config('SessionPrefix') || 'Session-';
# This way simply adding the PerlTransHandler is enough to enable URL munging
view release on metacpan or search on metacpan
$parts->{data} = '';
# Tokens and data if present
if (defined $extra) {
if ($extra =~ m/!/) {
($parts->{tokens},$parts->{data}) = split m/!/, $extra, 2;
}
else {
$parts->{data} = $extra;
}
}
view release on metacpan or search on metacpan
CVS/HTML.pm view on Meta::CPAN
my $link = qq(<a class=$css_class{path_link} href=$rpath>top</a>);
$link .= qq(:: <a class=$css_class{path_link} href=$rpath/$cvsroot>$cvsroot</a>);
my $parents;
foreach ( split m#/#, $filename ) {
next unless $_;
$link .= qq(:: <a class=$css_class{path_link} href="$rpath/$cvsroot$parents/$_">$_</a>);
$parents .= qq(/$_) if $_;
}
view release on metacpan or search on metacpan
lib/Apache/SSI.pm view on Meta::CPAN
sub get_output {
my $self = shift;
my $out = '';
my $ssi;
my @parts = split m/(<!--#.*?-->)/s, $self->{'text'};
while (@parts) {
$out .= ('', shift @parts)[1-$self->{'suspend'}[0]];
last unless @parts;
$ssi = shift @parts;
# There's some weird 'uninitialized' warning on the next line, but I can't find it.
lib/Apache/SSI.pm view on Meta::CPAN
sub output {
my $self = shift;
my @parts = split m/(<!--#.*?-->)/s, $self->{'text'};
while (@parts) {
$self->{_r}->print( ('', shift @parts)[1-$self->{'suspend'}[0]] );
last unless @parts;
my $ssi = shift @parts;
if ($ssi =~ m/^<!--#(.*)-->$/s) {
view release on metacpan or search on metacpan
lib/Apache/SdnFw/js/tinymce/changelog.txt view on Meta::CPAN
Fixed bug where cloning formats in cells didn't work properly on IE.
Fixed bug where IE6 would produce a horizontal scroll bar.
Fixed so remove jQuery method removes the TinyMCE instance as well as the specified textarea.
Fixed so selected rows and cells gets updated using the row/cell properties dialogs.
Version 3.3b2 (2010-02-04)
Fixed bug where sometimes img elements would be removed by split method in DOMUtils.
Fixed bug where merging of span elements could occur on bookmark nodes.
Fixed bug where classes wasn't properly removed when removeformat was used on IE 6.
Fixed bug where multiple calls to an tinyMCE.init with mode set to exact could produce the same unique ID.
Fixed bug with the IE selection implementation when it was feeded an document range.
Fixed bug where block elements formatting wasn't properly removed by removeformat on all browsers.
lib/Apache/SdnFw/js/tinymce/changelog.txt view on Meta::CPAN
Added new functionality to paste plugin contributed by Scott Eade aka monkeybrain.
Added new paste_block_drop option to the paste plugin this is disabled by default and will block any drag/drop event.
Added new bind/unbind methods to DOMUtils these works like Event.add/Event.remove but is easier to access.
Added new paste_dialog_width/paste_dialog_height options to paste pluign. Enables you to change the dialog sizes.
Fixed bug on IE 8 where it would sometimes produce a "1 item remaining" status message that would never finish.
Fixed bug on Safari 4 beta that would produce DOM Range exceptions on the DOMUtils split method since the browser has a bug.
Fixed bug where the paste plugin could accidentally think that some word sentences was supposed to be list elements.
Fixed bug where paste plugin would produce one extra empty undo level on some browsers.
Fixed bug where spans wasn't produced correctly on new line when the keep_styles option was enabled.
Fixed bug where the caret would be placed at the beginning of contents in IE 8 if you selected colors from the color pickers.
Fixed so the Event class is a normal class instead of a static one. The tinymce.dom.Event is now a global instance of that class.
view release on metacpan or search on metacpan
lib/Apache/iTunes.pm view on Meta::CPAN
sub handler
{
my $r = shift;
my( undef, $command, @path_info )= split m|/|, ( $r->path_info || '' );
$command = '' unless $command; # silence warning
@path_info = map { unescape_uri( $_ ) } @path_info;
my %params = $r->args;
view release on metacpan or search on metacpan
lib/Apache2/ClickPath.pm view on Meta::CPAN
if( $el ) {
local $_;
my $args;
($ref, $args)=split /\?/, $ref, 2;
my @uri=split m!/+!, $ref;
my %args=map {
my ($k, $v)=split /=/;
length( $k ) ? ($k=>$v) : ();
} split /[;&]/, $args;
view release on metacpan or search on metacpan
lib/Apache2/DirBasedHandler.pm view on Meta::CPAN
my $uri = $r->uri;
# replace multiple slashes with single slashes
$uri =~ s/\/+/\//gixm;
# strip the location off the start of the uri
$uri =~ s/^$loc\/?//xm;
my @split_uri = split m{/}xm, $uri;
return \@split_uri;
}
sub uri_to_function {
view release on metacpan or search on metacpan
lib/Apache2/S3.pm view on Meta::CPAN
foreach my $base (sort { length $b <=> length $a } keys %map)
{
$uri =~ s|^($base/*)|| or next;
my $stripped = $1;
my ($bucket, $keyId, $keySecret) = split m|/|, $map{$base};
$keyId ||= $r->dir_config("S3Key");
$keySecret ||= $r->dir_config("S3Secret");
my $is_dir = $uri =~ m,(^|/)$,;
my $path = "/$bucket/".($is_dir ? "" : $uri);
view release on metacpan or search on metacpan
lib/App/AutoCRUD/Controller/Table.pm view on Meta::CPAN
# in case of multi-columns keys, the form needs to add special fields
# and to ignore regular fields for those columns
my $where = $self->context->req_data->{where} || {};
my @multi_cols_keys = grep m[$sep], keys %$where;
$data->{multi_cols_keys} = \@multi_cols_keys;
$data->{ignore_col}{$_} = 1 foreach map {split m[$sep]} @multi_cols_keys;
}
}
1;
view release on metacpan or search on metacpan
lib/App/BoolFindGrep/Bool.pm view on Meta::CPAN
s{\N{SPACE}*\N{LINE FEED}+\N{SPACE}*}
{\N{LINE FEED}}gmsx;
} ## end foreach (@expression)
my @token = map { split m{\N{LINE FEED}}msx } @expression;
@token = grep { defined && $_ ne q() } @token;
foreach my $token (@token) {
if ( $token eq qq(\N{LEFT PARENTHESIS})
|| $token eq qq(\N{RIGHT PARENTHESIS}) )
view release on metacpan or search on metacpan
lib/App/CPANIDX/HTTP/Server.pm view on Meta::CPAN
my $cgi = shift;
my $path = $cgi->path_info();
$path =~ s!/+!/!g;
warn $path, "\n";
my ($root,$enc,$type,$search) = grep { $_ } split m#/#, $path;
if ( $root eq 'cpanidx' and $enc and $type ) {
$search = '0' if $type =~ /^next/ and !$search;
my @results = $self->_search_db( $type, $search );
$enc = 'yaml' unless $enc and grep { lc($enc) eq $_ } App::CPANIDX::Renderer->renderers();
view release on metacpan or search on metacpan
bin/cpanidx-fcgi view on Meta::CPAN
my $request = FCGI::Request( \*STDIN, \*STDOUT, \*STDERR,
\%ENV, $socket );
FCGI: while( $request->Accept() >= 0 ) {
my $path = $ENV{'REQUEST_URI'};
my ($root,$enc,$type,$search) = grep { $_ } split m#/#, $path;
$search = '0' if $type =~ /^next/ and !$search;
my @results = _search_db( $type, $search );
#$enc = 'yaml' unless $enc and $enc =~ /^(yaml|json|xml|html)$/i;
$enc = 'yaml' unless $enc and grep { lc($enc) eq $_ } App::CPANIDX::Renderer->renderers();
my $ren = App::CPANIDX::Renderer->new( \@results, $enc );
view release on metacpan or search on metacpan
inc/My/Module/Build.pm view on Meta::CPAN
=cut
sub package2filename {
my ($self, $package) = @_;
my @components = split m/::/, $package;
$components[$#components] .= ".pm";
return catfile(@components);
}
=item I<process_Inline_C_file($filename, @preload_modules)>
inc/My/Module/Build.pm view on Meta::CPAN
die "Failed to steal the YAML node" unless defined $node;
$node->{no_index} = $self->{properties}->{add_to_no_index} || {};
$node->{no_index}->{directory} ||= [];
unshift(@{$node->{no_index}->{directory}}, qw(examples inc t),
(map { File::Spec::Unix->catdir("lib", split m/::/) }
(@{$node->{no_index}->{namespace} || []})));
foreach my $package (keys %{$node->{provides}}) {
delete $node->{provides}->{$package} if
(grep {$package =~ m/^\Q$_\E/}
view release on metacpan or search on metacpan
script/cdnextsibling-backend view on Meta::CPAN
our $VERSION = '0.013'; # VERSION
# FRAGMENT id=shcompgen-hint completer=1 for=cdprevsibling
my $cwd = $ENV{PWD} || cwd();
my @cwd_elems = split m!/+!, $cwd;
my $cmd = $0 =~ /cdprev/ ? 'cdprevsibling' : 'cdnextsibling';
my $sort_files_opts = $ENV{CDPREVNEXTSIBLING_SORT_FILES_OPTS} // '--by-field=name';
my %opts = (
num => 1,
level => 1,
view release on metacpan or search on metacpan
lib/App/Charon/Web.pm view on Meta::CPAN
);
sub BUILDARGS {
my ($self, %params) = @_;
$params{query_param_auth} = [split m/=/, $params{query_param_auth}, 2]
if exists $params{query_param_auth};
\%params
}
view release on metacpan or search on metacpan
unused/Yahoo-v7.pm view on Meta::CPAN
}
shift @line_list;
foreach my $line (@line_list) {
my ($date, $ratio) = split (/,/, $line);
my ($old, $new) = split m{[:/]}, $ratio;
push @splits, { symbol => $symbol,
date => daily_date_fixup ($symbol, $date),
new => $new,
old => $old };
view release on metacpan or search on metacpan
lib/App/Device/Chip/UI/SPIBox.pm view on Meta::CPAN
method _do_write ( $words_out )
{
my $words_in = $_protocol->readwrite( $words_out )->get;
$_readresultlabel->set_text(
join " ", map { sprintf "0x%02X", ord } split m//, $words_in,
);
}
0x55AA;