Result:
found more than 421 distributions - search limited to the first 2001 files matching your query
( run in 1.667 )
Apache2-AuthEnv
view release on metacpan or search on metacpan
lib/Apache2/AuthEnv.pm view on Meta::CPAN
{
my ($cfg, $parms, $fmt, @args) = @_;
my $line = join(':', $parms->directive->filename, $parms->directive->line_num);
# Check that the format contains something to expand.
# Warn if it's fixed.
unless ($fmt =~ /%\{.*\}/)
{
# NB the request object is not available when called in
# global config files (eg httpd.conf).
lib/Apache2/AuthEnv.pm view on Meta::CPAN
}
# Otherwise return the default value.
return $default if defined $default;
info "Failed to expand '$fmt' for URL ", $r->uri;
# Failed.
$$fail++;
'';
lib/Apache2/AuthEnv.pm view on Meta::CPAN
}
# Import CGI environment.
$r->subprocess_env unless $r->is_perl_option_enabled('SetupEnv');
# expand $AuthEnvUser format; fail if a variable doesn't
# not exist.
# Check that AuthEnvUser is set.
return Apache2::Const::HTTP_UNAUTHORIZED unless exists $cfg->{AuthEnvUser};
Apache2-AuthenNTLM
view release on metacpan or search on metacpan
smb/smbval/smblib-priv.h view on Meta::CPAN
#define SMBreadBs 0x1C /* read block (secondary response) */
#define SMBwriteBraw 0x1D /* write block raw */
#define SMBwriteBmpx 0x1E /* write block multiplexed */
#define SMBwriteBs 0x1F /* write block (secondary request) */
#define SMBwriteC 0x20 /* write complete response */
#define SMBsetattrE 0x22 /* set file attributes expanded */
#define SMBgetattrE 0x23 /* get file attributes expanded */
#define SMBlockingX 0x24 /* lock/unlock byte ranges and X */
#define SMBtrans 0x25 /* transaction - name, bytes in/out */
#define SMBtranss 0x26 /* transaction (secondary request/response) */
#define SMBioctl 0x27 /* IOCTL */
#define SMBioctls 0x28 /* IOCTL (secondary request/response) */
Apache2-AutoIndex-XSLT
view release on metacpan or search on metacpan
Makefile.PL view on Meta::CPAN
# Save this 'cause CPAN will chdir all over the place.
my $cwd = Cwd::cwd();
CPAN::Shell->install('Module::Build::Compat');
CPAN::Shell->expand("Module", "Module::Build::Compat")->uptodate
or die "Couldn't install Module::Build, giving up.\n";
chdir $cwd or die "Cannot chdir() back to $cwd: $!";
}
eval "use Module::Build::Compat 0.02; 1" or die $@;
Apache2-Autocomplete
view release on metacpan or search on metacpan
lib/Apache2/Autocomplete.pm view on Meta::CPAN
$self->header($header_extra);
unless ($self->param('js')) {
$r->print($self->no_js);
return;
}
my ($query, $names, $values, $prefix) = $self->expand($self->query);
$r->print($self->output($query, $names, $values, $prefix));
}
sub header { shift->cgi->header( @_ ) }
lib/Apache2/Autocomplete.pm view on Meta::CPAN
package Apache2::MyAutoComplete;
use base qw(Apache2::Autocomplete);
# use whatever else
my @NAMES = qw(bob carol ted alice);
sub expand {
my ($self, $query) = @_;
my $re = qr/^\Q$query\E/i;
my @names = grep /$re/, @NAMES;
my @values = map {"some description"} @names;
(lc $query, \@names, \@values, [""]);
lib/Apache2/Autocomplete.pm view on Meta::CPAN
# module file Apache2/MyAutoComplete.pm
package Apache2::MyAutoComplete;
use base qw(Apache2::Autocomplete);
# use whatever else
sub expand {
my ($self, $query) = @_;
# decide what completions to return, based on the $query
(lc $query, $names, $values, [""]);
}
lib/Apache2/Autocomplete.pm view on Meta::CPAN
$ac->run();
return Apache2::Const::OK;
}
This must inherit from I<Apache2::Autocomplete>. Within this
handler must be an I<expand> method:
sub expand {
my ($self, $query) = @_;
# decide what completions to return, based on the $query
(lc $query, $names, $values, [""]);
}
lib/Apache2/Autocomplete.pm view on Meta::CPAN
This creates the object, and takes a mandatory
argument of the L<Apache2::RequestRec> object I<$r>.
=item * $ac-E<gt>run();
This is the main method which calls the I<expand> method
to find and format the results to be returned for the
autocompletion.
By default, the only header Apache::Autocomplete sets is
the I<Content-Type>, for which I<text/html> is used.
Apache2-CondProxy
view release on metacpan or search on metacpan
inc/Module/AutoInstall.pm view on Meta::CPAN
while ( my ( $pkg, $ver ) = splice( @modules, 0, 2 ) ) {
MY::preinstall( $pkg, $ver ) or next if defined &MY::preinstall;
print "*** Installing $pkg...\n";
my $obj = CPAN::Shell->expand( Module => $pkg );
my $success = 0;
if ( $obj and _version_cmp( $obj->cpan_version, $ver ) >= 0 ) {
my $pathname = $pkg;
$pathname =~ s/::/\\W/;
Apache2-Controller
view release on metacpan or search on metacpan
Makefile.PL view on Meta::CPAN
# Save this 'cause CPAN will chdir all over the place.
my $cwd = Cwd::cwd();
CPAN::Shell->install('Module::Build::Compat');
CPAN::Shell->expand("Module", "Module::Build::Compat")->uptodate
or die "Couldn't install Module::Build, giving up.\n";
chdir $cwd or die "Cannot chdir() back to $cwd: $!";
}
eval "use Module::Build::Compat 0.02; 1" or die $@;
Apache2-HTML-Detergent
view release on metacpan or search on metacpan
inc/Module/AutoInstall.pm view on Meta::CPAN
while ( my ( $pkg, $ver ) = splice( @modules, 0, 2 ) ) {
MY::preinstall( $pkg, $ver ) or next if defined &MY::preinstall;
print "*** Installing $pkg...\n";
my $obj = CPAN::Shell->expand( Module => $pkg );
my $success = 0;
if ( $obj and _version_cmp( $obj->cpan_version, $ver ) >= 0 ) {
my $pathname = $pkg;
$pathname =~ s/::/\\W/;
Apache2-Imager-Resize
view release on metacpan or search on metacpan
Makefile.PL view on Meta::CPAN
# Save this 'cause CPAN will chdir all over the place.
my $cwd = Cwd::cwd();
CPAN::Shell->install('Module::Build::Compat');
CPAN::Shell->expand("Module", "Module::Build::Compat")->uptodate
or die "Couldn't install Module::Build, giving up.\n";
chdir $cwd or die "Cannot chdir() back to $cwd: $!";
}
eval "use Module::Build::Compat 0.02; 1" or die $@;
Apache2-MimeInfo
view release on metacpan or search on metacpan
inc/Module/AutoInstall.pm view on Meta::CPAN
while ( my ( $pkg, $ver ) = splice( @modules, 0, 2 ) ) {
MY::preinstall( $pkg, $ver ) or next if defined &MY::preinstall;
print "*** Installing $pkg...\n";
my $obj = CPAN::Shell->expand( Module => $pkg );
my $success = 0;
if ( $obj and _version_cmp( $obj->cpan_version, $ver ) >= 0 ) {
my $pathname = $pkg;
$pathname =~ s/::/\\W/;
Apache2-PageKit
view release on metacpan or search on metacpan
lib/Apache2/PageKit/View.pm view on Meta::CPAN
binmode $template_fh, ":encoding($default_input_charset)";
local $/;
my $template = <$template_fh>;
close $template_fh;
# expand PKIT_MACRO tags
$template =~ s!<\s*PKIT_MACRO$key_value_pattern\s*/?>!$component_params->{uc($+)} || ''!egi;
$template_ref = \$template;
my $mtime = (stat(_))[9];
lib/Apache2/PageKit/View.pm view on Meta::CPAN
# < MODEL_VAR NAME=abc >
# <!-- MODEL_VAR NAME=abc -->
# <!--MODEL_VAR NAME=abc -->
# <!-- MODEL_VAR NAME=abc /-->
# all these are valid and expanded. it is slower than the old one but if it works relaible
if ( $$html_code_ref =~ m%<(!--)?\s*PKIT_(?:VAR|LOOP|IF|UNLESS)(?:$key_value_pattern)*\s*/?(?(1)--)>%i ) {
warn "PKIT_VAR, PKIT_LOOP, PKIT_IF, and PKIT_UNLESS are depreciated. use PKIT_HOSTNAME, PKIT_VIEW, PKIT_MESSAGES, PKIT_IS_ERROR, PKIT_NOT_ERROR or PKIT_MESSAGE instead";
}
lib/Apache2/PageKit/View.pm view on Meta::CPAN
# < MODEL_VAR NAME=abc >
# <!-- MODEL_VAR NAME=abc -->
# <!--MODEL_VAR NAME=abc -->
# <!-- MODEL_VAR NAME=abc /-->
# all these are valid and expanded. it is slower than the old one but if it works relaible
if ( $$html_code_ref =~ m%<(!--)?\s*PKIT_(?:VAR|LOOP|IF|UNLESS)(?:$key_value_pattern)*\s*/?(?(1)--)>%i ) {
warn
"PKIT_VAR, PKIT_LOOP, PKIT_IF, and PKIT_UNLESS are depreciated. use PKIT_HOSTNAME, PKIT_VIEW, PKIT_MESSAGES, PKIT_IS_ERROR, PKIT_NOT_ERROR or PKIT_MESSAGE instead";
}
Apache2-Response-FileMerge
view release on metacpan or search on metacpan
t/conf/.svn/text-base/extra.conf.in.svn-base view on Meta::CPAN
# this is the same as httpd.conf - tune according
# to your needs
#
# some variables are expanded to match your local path.
# some useful variables are:
# @ServerRoot@ the full path to t/
# @DocumentRoot@ the full path to t/htdocs
# @ACCESS_MODULE@ mod_access.c (1.3 and 2.0) or mod_authz_host.c (2.1)
# @AUTH_MODULE@ mod_auth.c (1.3 and 2.0) or mod_auth_basic.c (2.1)
Apache2-Translation
view release on metacpan or search on metacpan
lib/Apache2/Translation/_base.pm view on Meta::CPAN
$rc+=$I->insert($el);
}
return $rc;
}
sub _expand {
my ($el, $prefix, $what)=@_;
my $val=$el->[eval "n$what"];
while( $prefix=~/(p|s)(.*?);/g ) {
my ($op, $arg)=($1, $2);
lib/Apache2/Translation/_base.pm view on Meta::CPAN
$fmt=$default_fmt unless( length $fmt );
$fh=\*STDOUT unless( ref($fh) );
my $iterator=$I->iterator;
while( my $el=$iterator->() ) {
my $x=$fmt;
$x=~s/%{(.*?)(KEY|URI|BLOCK|ORDER|ACTION|NOTE|ID)}/_expand($el,$1,$2)/gse;
print $fh $x;
}
}
{
Apache2-TrapSubRequest
view release on metacpan or search on metacpan
inc/Module/AutoInstall.pm view on Meta::CPAN
while ( my ( $pkg, $ver ) = splice( @modules, 0, 2 ) ) {
MY::preinstall( $pkg, $ver ) or next if defined &MY::preinstall;
print "*** Installing $pkg...\n";
my $obj = CPAN::Shell->expand( Module => $pkg );
my $success = 0;
if ( $obj and _version_cmp( $obj->cpan_version, $ver ) >= 0 ) {
my $pathname = $pkg;
$pathname =~ s/::/\\W/;
ApacheBench
view release on metacpan or search on metacpan
lib/HTTPD/Bench/ApacheBench.pm view on Meta::CPAN
$run->buffersize() big enough for the largest page you anticipate receiving.
If you are running in perl's taint-checking mode, and you pass tainted data
to ApacheBench (e.g. a tainted URL), it will barf. Don't ask me why.
HTTP Proxy support needs to be expanded to allow for a username and
password.
=head1 AUTHORS
The ApacheBench Perl API is based on code from
ApacheLog-Compressor
view release on metacpan or search on metacpan
examples/expand.pl view on Meta::CPAN
use Data::Dumper;
# Provide a callback to send data through to the file
my $alc = ApacheLog::Compressor->new(
on_log_line => sub {
my ($self, $data) = @_;
# Use the helper method to expand back to plain text representation
print { $out_fh } $self->data_to_text($data) . "\n";
},
);
# Input file - normally use whichever one's just been closed + rotated
open my $in_fh, '<', $in or die "Failed to open input file $in - $!";
binmode $in_fh;
# Read and expand all the lines in the files
my $buffer = '';
while(read($in_fh, my $data, 1024) >= 0) {
$buffer .= $data;
$alc->expand(\$buffer);
}
close $in_fh or die $!;
close $out_fh or die $!;
# Dump the stats in case anyone finds them useful
Apigee-Edge
view release on metacpan or search on metacpan
examples/api_products.pl view on Meta::CPAN
# "scopes" => ["user", "repos"]
# );
# say Dumper(\$product);
# say "Get API Products...";
# my $products = $apigee->get_api_products(expand => 'true');
# say Dumper(\$products);
# say "Search API Products...";
# my $products = $apigee->search_api_products('attributename' => 'access', 'attributevalue' => 'public', expand => 'true');
# say Dumper(\$products);
# say "Update API Product...";
# my $product = $apigee->update_api_product(
# "test-product-name",
App-AcmeCpanauthors
view release on metacpan or search on metacpan
script/_acme-cpanauthors view on Meta::CPAN
#$SPEC{':package'} = {
# v => 1.1,
# summary => 'Completion routines for bash shell',
#};
#
#sub _expand_tilde {
# my ($user, $slash) = @_;
# my @ent;
# if (length $user) {
# @ent = getpwnam($user);
# } else {
script/_acme-cpanauthors view on Meta::CPAN
#
# $word =~ s!^(~)(\w*)(/|\z) | # 1) tilde 2) username 3) optional slash
# \\(.) | # 4) escaped char
# \$(\w+) # 5) variable name
# !
# $1 ? (not($after_ws) || $is_cur_word ? "$1$2$3" : _expand_tilde($2, $3)) :
# $4 ? $4 :
# ($is_cur_word ? "\$$5" : $ENV{$5})
# !egx;
# $word;
#}
script/_acme-cpanauthors view on Meta::CPAN
# for the current word (`COMP_WORDS[COMP_CWORD]`) (bash does not perform
# variable substitution for `COMP_WORDS`). However, note that special shell
# variables that are not environment variables like `$0`, `$_`, `$IFS` will not
# be replaced correctly because bash does not export those variables for us.
#
#4) tildes (`~`) are expanded with user's home directory except for the current
# word (bash does not perform tilde expansion for `COMP_WORDS`);
#
#Caveats:
#
#* Like bash, we group non-whitespace word-breaking characters into its own word.
script/_acme-cpanauthors view on Meta::CPAN
# equivalent:
#
# % cmd --foo=bar
# % cmd --foo = bar
#
#Because they both expand to `['--foo', '=', 'bar']`. But obviously
#<pm:Getopt::Long> does not regard the two as equivalent.
#
#_
# args_as => 'array',
# args => {
script/_acme-cpanauthors view on Meta::CPAN
# for the current word (C<COMP_WORDS[COMP_CWORD]>) (bash does not perform
# variable substitution for C<COMP_WORDS>). However, note that special shell
# variables that are not environment variables like C<$0>, C<$_>, C<$IFS> will not
# be replaced correctly because bash does not export those variables for us.
#
#4) tildes (C<~>) are expanded with user's home directory except for the current
# word (bash does not perform tilde expansion for C<COMP_WORDS>);
#
#Caveats:
#
#=over
script/_acme-cpanauthors view on Meta::CPAN
#% cmd --foo=bar
#% cmd --foo = bar
#
#=back
#
#Because they both expand to C<['--foo', '=', 'bar']>. But obviously
#L<Getopt::Long> does not regard the two as equivalent.
#
#This function is not exported by default, but exportable.
#
#Arguments ('*' denotes required arguments):
script/_acme-cpanauthors view on Meta::CPAN
#All L<Complete::Path>-based modules (like L<Complete::File>,
#L<Complete::Module>, or L<Complete::Riap>) respect this setting.
#
#=head2 C<$Complete::Common::OPT_EXP_IM_PATH> => bool (default: from COMPLETE_OPT_EXP_IM_PATH or 1)
#
#Whether to "expand intermediate paths". What is meant by this is something like
#zsh: when you type something like C<cd /h/u/b/myscript> it can be completed to
#C<cd /home/ujang/bin/myscript>.
#
#All L<Complete::Path>-based modules (like L<Complete::File>,
#L<Complete::Module>, or L<Complete::Riap>) respect this setting.
script/_acme-cpanauthors view on Meta::CPAN
# # support. note that bash does not support case-insensitivity for "foo".
# my $result_prefix;
# my $starting_path = $args{starting_path} // '.';
# if ($handle_tilde && $word =~ s!\A(~[^/]*)/!!) {
# $result_prefix = "$1/";
# my @dir = File::Glob::bsd_glob($1); # glob will expand ~foo to /home/foo
# return [] unless @dir;
# $starting_path = Encode::decode('UTF-8', $dir[0]);
# } elsif ($allow_dot && $word =~ s!\A((?:\.\.?/+)+|/+)!!) {
# # just an optimization to skip sequences of '../'
# $starting_path = $1;
script/_acme-cpanauthors view on Meta::CPAN
# }
# # if empty, fallback to searching file
# }
#
# # try completing '~/blah' or '~foo/blah' as if completing file, but do not
# # expand ~foo (this is supported by complete_file(), so we just give it off
# # to the routine)
# if ($word =~ m!\A(~[^/]*)/! && $COMPLETE_GETOPT_LONG_DEFAULT_FILE) {
# log_trace("[compgl] completing file, path=<%s>", $word) if $COMPLETE_GETOPT_LONG_TRACE;
# $fres = Complete::Util::hashify_answer(
# Complete::File::complete_file(word=>$word),
script/_acme-cpanauthors view on Meta::CPAN
# last unless $opts{"-".substr($word,1,1)};
#
# # not a bundle, regard as only a single short option name
# last unless $bundling;
#
# # expand bundle
# my $j = $i;
# my $rest = substr($word, 1);
# my @inswords;
# my $encounter_equal_sign;
# EXPAND:
script/_acme-cpanauthors view on Meta::CPAN
# } else {
# push @inswords, $opt;
# $j++;
# }
#
# my $expand;
# if (length $rest) {
# $expand++;
# # complete -Sfoo^ is completing option value
# $expects[$j > $i ? $j+1 : $j+2]{do_complete_optname} = 0;
# $expects[$j > $i ? $j+1 : $j+2]{optval} = $opt;
# } else {
# # complete -S^ as [-S] to add space
script/_acme-cpanauthors view on Meta::CPAN
#
# if ($rest =~ s/\A=//) {
# $encounter_equal_sign++;
# }
#
# if ($expand) {
# push @inswords, "=", $rest;
# $j+=2;
# }
# last EXPAND;
# }
script/_acme-cpanauthors view on Meta::CPAN
# description => <<'_',
#
#Complete path, for anything path-like. Meant to be used as backend for other
#functions like `Complete::File::complete_file` or
#`Complete::Module::complete_module`. Provides features like case-insensitive
#matching, expanding intermediate paths, and case mapping.
#
#Algorithm is to split path into path elements, then list items (using the
#supplied `list_func`) and perform filtering (using the supplied `filter_func`)
#at every level.
#
script/_acme-cpanauthors view on Meta::CPAN
#Complete path.
#
#Complete path, for anything path-like. Meant to be used as backend for other
#functions like C<Complete::File::complete_file> or
#C<Complete::Module::complete_module>. Provides features like case-insensitive
#matching, expanding intermediate paths, and case mapping.
#
#Algorithm is to split path into path elements, then list items (using the
#supplied C<list_func>) and perform filtering (using the supplied C<filter_func>)
#at every level.
#
script/_acme-cpanauthors view on Meta::CPAN
# (?<!\\)(?:\\\\)*\}
# )
# |
# # non-escaped brace expression, to catch * or ? or [...] inside so
# # they don't go to below pattern, because bash doesn't consider them
# # wildcards, e.g. '/{et?,us*}' expands to '/etc /usr', but '/{et?}'
# # doesn't expand at all to /etc.
# (?P<literal_brace_single_element>
# (?<!\\)(?:\\\\)*\{
# $re_bash_brace_element
# (?<!\\)(?:\\\\)*\}
# )
script/_acme-cpanauthors view on Meta::CPAN
#
#=over
#
#=item * brace
#
#Bool. Default is true. Whether to expand braces or not. If set to false, will
#simply treat brace as literals.
#
#Examples:
#
# convert_wildcard_to_re( "{a,b}"); # => "(?:a|b)"
App-Acmeman
view release on metacpan or search on metacpan
inc/ExtUtils/AutoInstall.pm view on Meta::CPAN
while (my ($pkg, $ver) = splice(@modules, 0, 2)) {
MY::preinstall($pkg, $ver) or next if defined &MY::preinstall;
print "*** Installing $pkg...\n";
my $obj = CPAN::Shell->expand(Module => $pkg);
my $success = 0;
if ($obj and defined(_version_check($obj->cpan_version, $ver))) {
my $pathname = $pkg; $pathname =~ s/::/\\W/;
App-AlgorithmDiffUtils
view release on metacpan or search on metacpan
},
"runtime" : {
"requires" : {
"Algorithm::Diff" : "0",
"Data::Sah::Compiler::perl::TH::str" : "0",
"Data::Sah::Filter::perl::Path::expand_tilde_when_on_unix" : "0",
"Data::Sah::Filter::perl::Path::strip_slashes_when_on_unix" : "0",
"Perinci::CmdLine::Any" : "0",
"Perinci::CmdLine::Lite" : "1.827",
"Sah::Schema::filename" : "0",
"strict" : "0",
App-Alice
view release on metacpan or search on metacpan
share/templates/logs.html view on Meta::CPAN
}
});
return false;
};
expandRange = function(channel, id, li) {
new Ajax.Request('/range', {
method: "post",
parameters: {id: id, channel: channel},
onSuccess: function (transport) {
$$('.context').each(function (item) {
App-Anchr
view release on metacpan or search on metacpan
lib/App/Anchr/Command/quorum.pm view on Meta::CPAN
echo 'pe [% opt.size %] [% opt.std %]' >> meanAndStdevByPrefix.pe.txt
if [ ! -e pe.renamed.fastq ]; then
rename_filter_fastq \
'pe' \
<(exec expand_fastq '[% args.0 %]' ) \
<(exec expand_fastq '[% args.1 %]' ) \
> 'pe.renamed.fastq'
fi
[% IF args.2 -%]
echo 'se [% opt.size %] [% opt.std %]' >> meanAndStdevByPrefix.pe.txt
if [ ! -e se.renamed.fastq ]; then
rename_filter_fastq \
'se' \
<(exec expand_fastq '[% args.2 %]' ) \
'' \
> 'se.renamed.fastq'
fi
[% END -%]
App-Aphra
view release on metacpan or search on metacpan
=head1 DESCRIPTION
C<aphra> is a simple static sitebuilder written in Perl. It takes a directory
tree of input template, processes them using the Template Toolkit and outputs
a directory tree of expanded templates.
=head1 COMMANDS
C<aphra> has two command modes.
App-AutoCRUD
view release on metacpan or search on metacpan
inc/Module/AutoInstall.pm view on Meta::CPAN
while ( my ( $pkg, $ver ) = splice( @modules, 0, 2 ) ) {
MY::preinstall( $pkg, $ver ) or next if defined &MY::preinstall;
print "*** Installing $pkg...\n";
my $obj = CPAN::Shell->expand( Module => $pkg );
my $success = 0;
if ( $obj and _version_cmp( $obj->cpan_version, $ver ) >= 0 ) {
my $pathname = $pkg;
$pathname =~ s/::/\\W/;
App-Automaton
view release on metacpan or search on metacpan
lib/App/Automaton.pm view on Meta::CPAN
* Input
* File: Reads all lines from a file and adds them to it's queue to be processed
* IMAP: Reads all messages from an IMAP email account and adds the content of each message to the queue
* Filter
* Unshorten: Looks for URLs from several known URL shortener services and expands them to full URLs
* Action
* YouTube: Downloads the video from a YouTube.com url
* TedTalks: Downloads the video from a TedTalks.com url
* NZB: Downloads the NZB file specified in the url
App-BPOMUtils-RPO-Checker
view release on metacpan or search on metacpan
"runtime" : {
"requires" : {
"Cwd" : "0",
"Data::Sah::Compiler::perl::TH::array" : "0.914",
"Data::Sah::Compiler::perl::TH::str" : "0.914",
"Data::Sah::Filter::perl::Path::expand_tilde_when_on_unix" : "0",
"Data::Sah::Filter::perl::Path::strip_slashes_when_on_unix" : "0",
"Data::Sah::Value::perl::Path::filenames" : "0.004",
"Exporter" : "5.57",
"File::Basename" : "0",
"File::MimeInfo::Magic" : "0",
App-BackupTumblr
view release on metacpan or search on metacpan
inc/Module/AutoInstall.pm view on Meta::CPAN
while ( my ( $pkg, $ver ) = splice( @modules, 0, 2 ) ) {
MY::preinstall( $pkg, $ver ) or next if defined &MY::preinstall;
print "*** Installing $pkg...\n";
my $obj = CPAN::Shell->expand( Module => $pkg );
my $success = 0;
if ( $obj and _version_cmp( $obj->cpan_version, $ver ) >= 0 ) {
my $pathname = $pkg;
$pathname =~ s/::/\\W/;
App-Basis
view release on metacpan or search on metacpan
lib/App/Basis/Config.pm view on Meta::CPAN
sub BUILD {
my $self = shift;
$self->_set_error(undef);
# make sure that the we expand home
my $fname = fix_filename( $self->filename );
if ( !$fname ) {
$fname = $ENV{APP_BASIS_CFG} || fix_filename( "~/." . get_program() . ".cfg" );
}
App-Beeminder-Hook
view release on metacpan or search on metacpan
public/javascripts/jquery.js view on Meta::CPAN
!c.isFunction(b)){d=b;b=w}if(!b&&a)b=function(){return a.apply(d||this,arguments)};if(a)b.guid=a.guid=a.guid||b.guid||c.guid++;return b},uaMatch:function(a){a=a.toLowerCase();a=/(webkit)[ \/]([\w.]+)/.exec(a)||/(opera)(?:.*version)?[ \/]([\w.]+)/.exe...
true;if(ya)c.inArray=function(a,b){return ya.call(b,a)};T=c(s);if(s.addEventListener)L=function(){s.removeEventListener("DOMContentLoaded",L,false);c.ready()};else if(s.attachEvent)L=function(){if(s.readyState==="complete"){s.detachEvent("onreadystat...
var e=d.getElementsByTagName("*"),j=d.getElementsByTagName("a")[0];if(!(!e||!e.length||!j)){c.support={leadingWhitespace:d.firstChild.nodeType===3,tbody:!d.getElementsByTagName("tbody").length,htmlSerialize:!!d.getElementsByTagName("link").length,sty...
parentNode:d.removeChild(d.appendChild(s.createElement("div"))).parentNode===null,deleteExpando:true,checkClone:false,scriptEval:false,noCloneEvent:true,boxModel:null};b.type="text/javascript";try{b.appendChild(s.createTextNode("window."+f+"=1;"))}ca...
false;d.detachEvent("onclick",k)});d.cloneNode(true).fireEvent("onclick")}d=s.createElement("div");d.innerHTML="<input type='radio' name='radiotest' checked='checked'/>";a=s.createDocumentFragment();a.appendChild(d.firstChild);c.support.checkClone=a....
s.createElement("div");k="on"+k;var r=k in n;if(!r){n.setAttribute(k,"return;");r=typeof n[k]==="function"}return r};c.support.submitBubbles=a("submit");c.support.changeBubbles=a("change");a=b=d=e=j=null}})();c.props={"for":"htmlFor","class":"classNa...
applet:true},data:function(a,b,d){if(!(a.nodeName&&c.noData[a.nodeName.toLowerCase()])){a=a==A?za:a;var f=a[G],e=c.cache;if(!f&&typeof b==="string"&&d===w)return null;f||(f=++Ya);if(typeof b==="object"){a[G]=f;e[f]=c.extend(true,{},b)}else if(!e[f]){...
else a.removeAttribute&&a.removeAttribute(c.expando);delete f[d]}}}});c.fn.extend({data:function(a,b){if(typeof a==="undefined"&&this.length)return c.data(this[0]);else if(typeof a==="object")return this.each(function(){c.data(this,a)});var d=a.split...
a,b)})},removeData:function(a){return this.each(function(){c.removeData(this,a)})}});c.extend({queue:function(a,b,d){if(a){b=(b||"fx")+"queue";var f=c.data(a,b);if(!d)return f||[];if(!f||c.isArray(d))f=c.data(a,b,c.makeArray(d));else f.push(d);return...
w)return c.queue(this[0],a);return this.each(function(){var d=c.queue(this,a,b);a==="fx"&&d[0]!=="inprogress"&&c.dequeue(this,a)})},dequeue:function(a){return this.each(function(){c.dequeue(this,a)})},delay:function(a,b){a=c.fx?c.fx.speeds[a]||a:a;b=...
cb=/^(a|area)$/i,Ba=/radio|checkbox/;c.fn.extend({attr:function(a,b){return X(this,a,b,true,c.attr)},removeAttr:function(a){return this.each(function(){c.attr(this,a,"");this.nodeType===1&&this.removeAttribute(a)})},addClass:function(a){if(c.isFuncti...
i=e.className,o=0,k=b.length;o<k;o++)if(j.indexOf(" "+b[o]+" ")<0)i+=" "+b[o];e.className=c.trim(i)}else e.className=a}return this},removeClass:function(a){if(c.isFunction(a))return this.each(function(k){var n=c(this);n.removeClass(a.call(this,k,n.at...
" ");e.className=c.trim(j)}else e.className=""}return this},toggleClass:function(a,b){var d=typeof a,f=typeof b==="boolean";if(c.isFunction(a))return this.each(function(e){var j=c(this);j.toggleClass(a.call(this,e,j.attr("class"),b),b)});return this....
public/javascripts/jquery.js view on Meta::CPAN
this[0].parentNode){if(c.isFunction(a))return this.each(function(b){var d=c(this),f=d.html();d.replaceWith(a.call(this,b,f))});if(typeof a!=="string")a=c(a).detach();return this.each(function(){var b=this.nextSibling,d=this.parentNode;c(this).remove(...
u.appendChild(u.ownerDocument.createElement("tbody")):u}var e,j,i=a[0],o=[],k;if(!c.support.checkClone&&arguments.length===3&&typeof i==="string"&&ua.test(i))return this.each(function(){c(this).domManip(a,b,d,true)});if(c.isFunction(i))return this.ea...
1?(k=k.firstChild):k.firstChild){b=b&&c.nodeName(j,"tr");for(var n=0,r=this.length;n<r;n++)d.call(b?f(this[n],j):this[n],n>0||e.cacheable||this.length>1?k.cloneNode(true):k)}o.length&&c.each(o,Qa)}return this}});c.fragments={};c.each({appendTo:"appen...
return this}else{e=0;for(var j=d.length;e<j;e++){var i=(e>0?this.clone(true):this).get();c.fn[b].apply(c(d[e]),i);f=f.concat(i)}return this.pushStack(f,a,d.selector)}}});c.extend({clean:function(a,b,d,f){b=b||s;if(typeof b.createElement==="undefined"...
""])[1].toLowerCase(),k=F[o]||F._default,n=k[0],r=b.createElement("div");for(r.innerHTML=k[1]+i+k[2];n--;)r=r.lastChild;if(!c.support.tbody){n=ib.test(i);o=o==="table"&&!n?r.firstChild&&r.firstChild.childNodes:k[1]==="<table>"&&!n?r.childNodes:[];for...
c.merge(e,i)}}if(d)for(j=0;e[j];j++)if(f&&c.nodeName(e[j],"script")&&(!e[j].type||e[j].type.toLowerCase()==="text/javascript"))f.push(e[j].parentNode?e[j].parentNode.removeChild(e[j]):e[j]);else{e[j].nodeType===1&&e.splice.apply(e,[j+1,0].concat(c.ma...
c.event.remove(o,k):Ca(o,k,b.handle);if(j)delete o[c.expando];else o.removeAttribute&&o.removeAttribute(c.expando);delete f[d]}}});var kb=/z-?index|font-?weight|opacity|zoom|line-?height/i,Na=/alpha\([^)]*\)/,Oa=/opacity=([^)]*)/,ha=/float/i,ia=/-([a...
function(a,b){return b.toUpperCase()};c.fn.css=function(a,b){return X(this,a,b,true,function(d,f,e){if(e===w)return c.curCSS(d,f);if(typeof e==="number"&&!kb.test(f))e+="px";c.style(d,f,e)})};c.extend({style:function(a,b,d){if(!a||a.nodeType===3||a.n...
Na.test(a)?a.replace(Na,b):b}return f.filter&&f.filter.indexOf("opacity=")>=0?parseFloat(Oa.exec(f.filter)[1])/100+"":""}if(ha.test(b))b=Pa;b=b.replace(ia,ja);if(e)f[b]=d;return f[b]},css:function(a,b,d,f){if(b==="width"||b==="height"){var e,j=b==="w...
"border"+this+"Width",true))||0})}a.offsetWidth!==0?i():c.swap(a,ob,i);return Math.max(0,Math.round(e))}return c.curCSS(a,b,d)},curCSS:function(a,b,d){var f,e=a.style;if(!c.support.opacity&&b==="opacity"&&a.currentStyle){f=Oa.test(a.currentStyle.filt...
a.getPropertyValue(b);if(b==="opacity"&&f==="")f="1"}else if(a.currentStyle){d=b.replace(ia,ja);f=a.currentStyle[b]||a.currentStyle[d];if(!mb.test(f)&&nb.test(f)){b=e.left;var j=a.runtimeStyle.left;a.runtimeStyle.left=a.currentStyle.left;e.left=d==="...
a.offsetWidth,d=a.offsetHeight,f=a.nodeName.toLowerCase()==="tr";return b===0&&d===0&&!f?true:b>0&&d>0&&!f?false:c.curCSS(a,"display")==="none"};c.expr.filters.visible=function(a){return!c.expr.filters.hidden(a)}}var sb=J(),tb=/<script(.|\s)*?\/scrip...
App-Bin4TSV-6
view release on metacpan or search on metacpan
& main ; # メインã®å‡¦ç† printColsMain
exit 0 ;
# åˆæœŸåŒ–処ç†ã®ç‚ºã®å±•é–‹ã®å‡¦ç†
sub expand ( $ ) { # ã¾ãš コンマã§åˆ†å‰², # 次㫠.. を展開ã™ã‚‹ã€‚ # 最後ã«æ£ã®æ•°ã¯ 1を引ã。
#print BRIGHT_BLUE Dumper ["cNP=",%colNamePos] ;
return () if ! defined $_[0] ;
my @gr = split /,/ , $_[0] ; # grain 穀物ã®ç²’ã®ã¤ã‚‚り。expandedも考ãˆãŸãŒã€ã‚¹ãƒšãƒ«é•·éŽãŽã€‚
my $l = scalar @gr ;
for ( reverse 0 .. $#gr ) {
if ( $gr [ $_ ] =~ m|(.+)\.\.(.+)| ) { # *末尾* ã‹ã‚‰æ•°å—を展開ã™ã‚‹ã€‚
my ($c1,$c2) = ($1,$2) ;
if ( $o{'='} ) { $c1 = $colNamePos { $c1 } ; $c2 = $colNamePos { $c2 } } #; print "\$c1=$c1, \$c2=$c2\n" } ;
$_ = <> ;
chomp ;
& R0proc ;
my $c = 0 ;
$colNamePos { $_ } = ++ $c for split /$isep/ , $_ , $split_limit ; # <-- 分割文å—列ã«æ°—ã‚’ã¤ã‘ãŸã„
$cream{ $_ } = [ expand $o{$_} ] for qw/p d h t/ ;
line ; # <-- -
}
else {
$cream{ $_ } = [ expand $o{$_} ] for qw/p d h t/ ;
}
#print BRIGHT_GREEN Dumper [%colNamePos] ;
# 引ã続ã処ç†ã€‚-=ãŒç„¡ã„å ´åˆã«ã¯ã€ã“ã“らã‹å§‹ã¾ã‚‹ã€‚
while ( <> ) {
App-Bin4TSV
view release on metacpan or search on metacpan
scripts/csel view on Meta::CPAN
& main ; # メインã®å‡¦ç† printColsMain
exit 0 ;
# åˆæœŸåŒ–処ç†ã®ç‚ºã®å±•é–‹ã®å‡¦ç†
sub expand ( $ ) { # ã¾ãš コンマã§åˆ†å‰², # 次㫠.. を展開ã™ã‚‹ã€‚ # 最後ã«æ£ã®æ•°ã¯ 1を引ã。
#print BRIGHT_BLUE Dumper ["cNP=",%colNamePos] ;
return () if ! defined $_[0] ;
my @gr = split /,/ , $_[0] ; # grain 穀物ã®ç²’ã®ã¤ã‚‚り。expandedも考ãˆãŸãŒã€ã‚¹ãƒšãƒ«é•·éŽãŽã€‚
my $l = scalar @gr ;
for ( reverse 0 .. $#gr ) {
if ( $gr [ $_ ] =~ m|(.+)\.\.(.+)| ) { # *末尾* ã‹ã‚‰æ•°å—を展開ã™ã‚‹ã€‚
my ($c1,$c2) = ($1,$2) ;
if ( $o{'='} ) { $c1 = $colNamePos { $c1 } ; $c2 = $colNamePos { $c2 } } #; print "\$c1=$c1, \$c2=$c2\n" } ;
scripts/csel view on Meta::CPAN
if ( $o{'='} ) {
$_ = <> ;
chomp ;
my $c = 0 ;
$colNamePos { $_ } = ++ $c for split /$isep/ , $_ , $split_limit ; # <-- 分割文å—列ã«æ°—ã‚’ã¤ã‘ãŸã„
$cream{ $_ } = [ expand $o{$_} ] for qw/p d h t/ ;
line ; # <-- -
}
else {
$cream{ $_ } = [ expand $o{$_} ] for qw/p d h t/ ;
}
#print BRIGHT_GREEN Dumper [%colNamePos] ;
# 引ã続ã処ç†ã€‚-=ãŒç„¡ã„å ´åˆã«ã¯ã€ã“ã“らã‹å§‹ã¾ã‚‹ã€‚
while ( <> ) {
( run in 1.667 second using v1.01-cache-2.11-cpan-97f6503c9c8 )