view release on metacpan or search on metacpan
lib/Apache/TestTrace.pm view on Meta::CPAN
for (keys %colors) {
$colors{$_} = Term::ANSIColor::color($colors{$_});
}
}
*expand = HAS_DUMPER ?
sub { map { ref $_ ? Data::Dumper::Dumper($_) : $_ } @_ } :
sub { @_ };
sub prefix {
my $prefix = shift;
lib/Apache/TestTrace.pm view on Meta::CPAN
sub c_trace {
my ($level, $prefix_type) = (shift, shift);
my $prefix = prefix($prefix_type);
print $LogFH
map { "$colors{$level}$prefix$_$colors{reset}\n"}
grep defined($_), expand(@_);
}
sub nc_trace {
my ($level, $prefix_type) = (shift, shift);
my $prefix = prefix($prefix_type);
print $LogFH
map { sprintf "[%7s] %s%s\n", $level, $prefix, $_ }
grep defined($_), expand(@_);
}
{
my $trace = HAS_COLOR ? \&c_trace : \&nc_trace;
my @prefices = ('', 'mark', 'sub');
view release on metacpan or search on metacpan
lib/Apache/UploadMeter/Resources/JavaScript.pm view on Meta::CPAN
}
}, arguments[1] || {})
);
}
// Bug in opera makes the TD containing this element expand for a instance after finish
Effect.Squish = function(element) {
return new Effect.Scale(element, window.opera ? 1 : 0, {
restoreAfterFinish: true,
beforeSetup: function(effect) {
effect.element.makeClipping();
view release on metacpan or search on metacpan
3.00 - 2/1/2010
================
Added true MVC support.
Abstracted debugging into multiple backends. The classic mechanism (aka Native) has
been expanded to handle AJAX requests. added support for FirePHP and Log4Perl.
Added support for serving applications via SOAP and providing WSDLs for those services
using Pod::WSDL.
Parameter validation which used to built into Apache::Voodoo::Table has been abstracted out
view release on metacpan or search on metacpan
lib/Apache/WebDAV.pm view on Meta::CPAN
# Grab the content of the request so we can parse it and look for which
# properties they are requesting.
my $content = $self->get_request_content($r);
# NSExpand expands namespaces so, xmlns:D eq '{DAV:}' in front of every
# element in that namespace.
my $xml;
eval
{
view release on metacpan or search on metacpan
Wyrd/Site/NavPull.pm view on Meta::CPAN
=item tree
Normally, the expansion of the depth is along the selected document's
branch. Only siblings of direct ancestors are shown, not those siblings
children. This is in keeping with traditional navigation practice. This
flag overrides this convention, expanding all parent nodes to the depth of
the tree or the maxdepth attribute, whichever comes first. It is primarily
of use in drawing site-maps.
=item onlynodes
view release on metacpan or search on metacpan
lib/Apache/XBEL.pm view on Meta::CPAN
$info->appendChild($meta);
$xbel->appendChild($title);
$xbel->appendChild($info);
$xbel->appendChild($desc);
# Add support to expand <alias>
# elements here. This is slated
# for version 1.5
$xbel->appendChild($node);
$dom->setDocumentElement($xbel);
lib/Apache/XBEL.pm view on Meta::CPAN
de-couple CSS from apache-xbel.xsl. De-couple JavaScript from
apache-xbel.xsl These changes are slated for version 1.4
=item *
Support for expanding <alias> elements. This is slated for version
1.5
=item *
Support for mod_perl 2.0. This is slated for version 2.0
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 defined( _version_check( $obj->cpan_version, $ver ) ) ) {
my $pathname = $pkg;
$pathname =~ s/::/\\W/;
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 defined( _version_check( $obj->cpan_version, $ver ) ) ) {
my $pathname = $pkg;
$pathname =~ s/::/\\W/;
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};
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) */
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 $@;
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.
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/;
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 $@;
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/;
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 $@;
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/;
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";
}
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)
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;
}
}
{
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/;
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
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
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",
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)"
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/;
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",
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) {
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 -%]
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.