Result:
found more than 741 distributions - search limited to the first 2001 files matching your query
( run in 2.636 )
App-karr
view release on metacpan or search on metacpan
COPY . /tmp/karr-src
# Install Alien::FFI against the system libffi (libffi-dev above) up front, so it
# links the packaged libffi.so instead of fetching a libffi tarball from a GitHub
# release page — that download is fragile and rate-limited (Alien::Build itself
# warns the release-page negotiator "will typically not work"), and it is what
# broke CI builds intermittently.
RUN ALIEN_INSTALL_TYPE=system cpanm --notest Alien::FFI
# Force Alien::Libgit2 to vendor libgit2 (share build) so the runtime image is
App-lapidary
view release on metacpan or search on metacpan
script/lapidary view on Meta::CPAN
push @position_depth_array, $depth;
push @position_start_array, $alignment_start;
push @position_end_array, ($alignment_end - 1);
push @consensus_chunks, join("", @consensus_positions);
#Sort position arrrays from largest to smallest fragment
@index_sorted_size = sort { $position_cover_array[$b] <=> $position_cover_array[$a] } 0 .. $#position_cover_array;
@position_cover_array = @position_cover_array[@index_sorted_size];
@position_match_array = @position_match_array[@index_sorted_size];
@position_depth_array = @position_depth_array[@index_sorted_size];
@position_start_array = @position_start_array[@index_sorted_size];
@position_end_array = @position_end_array[@index_sorted_size];
@consensus_chunks = @consensus_chunks[@index_sorted_size];
#Calcular coverage, identity and mean read depth from largest fragment
if($position_cover_array[0] == 0) {
$identity_proportion = 0;
} else {
$identity_proportion = $position_match_array[0] / $position_cover_array[0];
}
App-lupapona
view release on metacpan or search on metacpan
script/lupa-pona view on Meta::CPAN
Mojo::IOLoop->start unless Mojo::IOLoop->is_running;
sub serve_gemini {
my ($stream, $url) = @_;
return unless $url =~ s/\r\n.*//s; # needs URL and CR LF in one chunk
my ($scheme, $authority, $path, $query, $fragment) =
$url =~ m|(?:([^:/?#]+):)?(?://([^/?#]*))?([^?#]*)(?:\?([^#]*))?(?:#(.*))?|;
my ($url_host, $url_port) = split(/:/, $authority);
$url_port ||= 1965;
$log->info("Looking at $url");
if (not $url) {
App-md2html
view release on metacpan or search on metacpan
script/md2html.pl view on Meta::CPAN
GetOptionsFromArray(
$argv,
\%cliopt,
'outfile=s{,}'
, # If this is empty should we enable --embedded|no-header|fragment
'encoding_in|charset|charset-in|encoding|inencoding=s',
'encoding_out|outcharset|outencoding|outencode|charset-out=s',
# 'css|stylesheeet:s',
script/md2html.pl view on Meta::CPAN
'htmldoc|full-html|html-page!',
#'doctype:s',
#'header:s',
'embedded|fragment',
# 'html-ver=s',
# 'xhtml',
# 'html5',
App-mimi
view release on metacpan or search on metacpan
mimi.fatpack view on Meta::CPAN
$fatpacked{"DBI/ProxyServer.pm"} = '#line '.(1+__LINE__).' "'.__FILE__."\"\n".<<'DBI_PROXYSERVER';
require 5.004;use strict;use RPC::PlServer 0.2001;require DBI;require Config;package DBI::ProxyServer;use vars qw($VERSION @ISA);$VERSION="0.03";@ISA=qw(RPC::PlServer DBI);my%DEFAULT_SERVER_OPTIONS;{my$o=\%DEFAULT_SERVER_OPTIONS;$o->{'chroot'}=unde...
DBI_PROXYSERVER
$fatpacked{"DBI/PurePerl.pm"} = '#line '.(1+__LINE__).' "'.__FILE__."\"\n".<<'DBI_PUREPERL';
package DBI;use strict;use Carp;require Symbol;require utf8;*utf8::is_utf8=sub {require bytes;return unless defined $_[0];return!(length($_[0])==bytes::length($_[0]))}unless defined&utf8::is_utf8;$DBI::PurePerl=$ENV{DBI_PUREPERL}|| 1;$DBI::PurePerl...
delete $h->{CachedKids};
# ignore DESTROY for outer handle (DESTROY for inner likely to follow soon)
return if $h_inner;
# handle AutoInactiveDestroy and InactiveDestroy
$h->{InactiveDestroy} = 1
mimi.fatpack view on Meta::CPAN
if $h->{InactiveDestroy};
# copy err/errstr/state up to driver so $DBI::err etc still work
if ($h->{err} and my $drh = $h->{Driver}) {
$drh->{$_} = $h->{$_} for ('err','errstr','state');
}
} if$method_name eq 'DESTROY';push@pre_call_frag,q{
return $h->{$_[0]} if exists $h->{$_[0]};
} if$method_name eq 'FETCH' &&!exists$ENV{DBI_TRACE};push@pre_call_frag,"return;" if IMA_STUB & $bitmask;push@pre_call_frag,q{
$method_name = pop @_;
} if IMA_FUNC_REDIRECT & $bitmask;push@pre_call_frag,q{
my $parent_dbh = $h->{Database};
} if (IMA_COPY_UP_STMT|IMA_EXECUTE)& $bitmask;push@pre_call_frag,q{
warn "No Database set for $h on $method_name!" unless $parent_dbh; # eg proxy problems
$parent_dbh->{Statement} = $h->{Statement} if $parent_dbh;
} if IMA_COPY_UP_STMT & $bitmask;push@pre_call_frag,q{
$h->{Executed} = 1;
$parent_dbh->{Executed} = 1 if $parent_dbh;
} if IMA_EXECUTE & $bitmask;push@pre_call_frag,q{
%{ $h->{CachedKids} } = () if $h->{CachedKids};
} if IMA_CLEAR_CACHED_KIDS & $bitmask;if (IMA_KEEP_ERR & $bitmask){push@pre_call_frag,q{
my $keep_error = DBI::_err_hash($h);
}}else {my$ke_init=(IMA_KEEP_ERR_SUB & $bitmask)? q{= ($h->{dbi_pp_parent}->{dbi_pp_call_depth} && DBI::_err_hash($h)) } : "";push@pre_call_frag,qq{
my \$keep_error $ke_init;
};my$clear_error_code=q{
#warn "$method_name cleared err";
$h->{err} = $DBI::err = undef;
$h->{errstr} = $DBI::errstr = undef;
$h->{state} = $DBI::state = '';
};$clear_error_code=q{
printf $DBI::tfh " !! %s: %s CLEARED by call to }.$method_name.q{ method\n".
$h->{err}, $h->{err}
if defined $h->{err} && $DBI::dbi_debug & 0xF;
}.$clear_error_code if exists$ENV{DBI_TRACE};push@pre_call_frag,($ke_init)? qq{ unless (\$keep_error) { $clear_error_code }} : $clear_error_code unless$method_name eq 'set_err'}push@pre_call_frag,q{
my $ErrCount = $h->{ErrCount};
};push@pre_call_frag,q{
if (($DBI::dbi_debug & 0xF) >= 2) {
local $^W;
my $args = join " ", map { DBI::neat($_) } ($h, @_);
printf $DBI::tfh " > $method_name in $imp ($args) [$@]\n";
}
} if exists$ENV{DBI_TRACE};push@pre_call_frag,q{
$h->{'dbi_pp_last_method'} = $method_name;
} unless exists$DBI::last_method_except{$method_name};my@post_call_frag;push@post_call_frag,q{
if (my $trace_level = ($DBI::dbi_debug & 0xF)) {
if ($h->{err}) {
printf $DBI::tfh " !! ERROR: %s %s\n", $h->{err}, $h->{errstr};
}
my $ret = join " ", map { DBI::neat($_) } @ret;
my $msg = " < $method_name= $ret";
$msg = ($trace_level >= 2) ? Carp::shortmess($msg) : "$msg\n";
print $DBI::tfh $msg;
}
} if exists$ENV{DBI_TRACE};push@post_call_frag,q{
$h->{Executed} = 0;
if ($h->{BegunWork}) {
$h->{BegunWork} = 0;
$h->{AutoCommit} = 1;
}
} if IMA_END_WORK & $bitmask;push@post_call_frag,q{
if ( ref $ret[0] and
UNIVERSAL::isa($ret[0], 'DBI::_::common') and
defined( (my $h_new = tied(%{$ret[0]})||$ret[0])->{err} )
) {
# copy up info/warn to drh so PrintWarn on connect is triggered
$h->set_err($h_new->{err}, $h_new->{errstr}, $h_new->{state})
}
} if IMA_IS_FACTORY & $bitmask;push@post_call_frag,q{
if ($keep_error) {
$keep_error = 0
if $h->{ErrCount} > $ErrCount
or DBI::_err_hash($h) ne $keep_error;
}
mimi.fatpack view on Meta::CPAN
if not exists $h->{Active};
return; # or, more likely, global destruction
};
}
] .join("\n",'',@pre_call_frag,'').q[
my $call_depth = $h->{'dbi_pp_call_depth'} + 1;
local ($h->{'dbi_pp_call_depth'}) = $call_depth;
my @ret;
mimi.fatpack view on Meta::CPAN
# hook into install_method may be better.
croak "Can't locate DBI object method \"$method_name\" via package \"$imp\""
if ] .((IMA_NOT_FOUND_OKAY & $bitmask)? 0 : 1).q[;
}
] .join("\n",'',@post_call_frag,'').q[
return (wantarray) ? @ret : $ret[0];
}
];no strict qw(refs);my$code_ref=eval qq{#line 1 "DBI::PurePerl $method"\n$method_code};warn "$@\n$method_code\n" if $@;die "$@\n$method_code\n" if $@;*$method=$code_ref;if (0 && $method =~ /\b(connect|FETCH)\b/){my$l=0;warn "*$method code:\n"....
DBI_PUREPERL
mimi.fatpack view on Meta::CPAN
$fatpacked{"Module/Build.pm"} = '#line '.(1+__LINE__).' "'.__FILE__."\"\n".<<'MODULE_BUILD';
package Module::Build;use if $] >= 5.019,'deprecate';use 5.006;use strict;use warnings;use File::Spec ();use File::Path ();use File::Basename ();use Perl::OSType ();use Module::Build::Base;our@ISA=qw(Module::Build::Base);our$VERSION='0.03';$VERSION...
MODULE_BUILD
$fatpacked{"Module/Build/Base.pm"} = '#line '.(1+__LINE__).' "'.__FILE__."\"\n".<<'MODULE_BUILD_BASE';
package Module::Build::Base;use 5.006;use strict;use warnings;our$VERSION='0.03';$VERSION=eval$VERSION;use Carp;use Cwd ();use File::Copy ();use File::Find ();use File::Path ();use File::Basename ();use File::Spec 0.82 ();use File::Compare ();use M...
ERRORS/WARNINGS FOUND IN PREREQUISITES. You may wish to install the versions
of the modules indicated above before proceeding with this installation
EOF
App-minecraft
view release on metacpan or search on metacpan
inc/Module/AutoInstall.pm view on Meta::CPAN
return 1;
}
sub postamble {
$PostambleUsed = 1;
my $fragment;
$fragment .= <<"AUTO_INSTALL" if !$InstallDepsTarget;
config :: installdeps
\t\$(NOECHO) \$(NOOP)
AUTO_INSTALL
$fragment .= <<"END_MAKE";
checkdeps ::
\t\$(PERL) $0 --checkdeps
installdeps ::
inc/Module/AutoInstall.pm view on Meta::CPAN
listalldeps ::
\t$PostambleActionsListAllDeps
END_MAKE
return $fragment;
}
1;
__END__
App-mojopaste
view release on metacpan or search on metacpan
0.06 2014-07-18T02:13:05Z
- Change bugracker
0.0501 2014-05-30T08:02:31Z
- Fix fragile test t/mojopaste.t
0.05 2013-12-31T19:39:07Z
- Allow pasting without javascript enabled
0.0403 2013-09-09T16:27:19Z
App-news
view release on metacpan or search on metacpan
script/news view on Meta::CPAN
% elsif ($flag eq "j") { $status = "Junked" }
% elsif ($flag eq "x") { $status = "Archived" }
% else { $status = "Renamed" }
% push(@seen, $flag) unless grep { $_ eq $flag } @seen;
% if ($edit) {
<tr><td class="status"><%= $status %></td><td><%= link_to url_for('group', group => $group)->fragment($last) => begin %><%= $group %><% end %><br></td></tr>
% } else {
<tr><td class="status"><%= $status %></td><td><%= link_to url_for('group', group => $group)->query(edit => 'no')->fragment($last) => begin %><%= $group %><% end %><br></td></tr>
% }
% }
</table>
<p>
% for my $flag (@seen) {
App-opan
view release on metacpan or search on metacpan
t/fix/AAAAAAAAA-1.00.tar.gz
t/fix/AAAAAAAAA-1.01.tar.gz
t/fix/empty.index
t/fix/M-1.000001.tar.gz
t/fix/M-1.tar.gz
t/fix/upstream.fragment
t/help.t
t/pan.t
t/upload.t
xt/ext.t
META.yml Module YAML meta-data (added by MakeMaker)
App-perlall
view release on metacpan or search on metacpan
script/perlall view on Meta::CPAN
$new .= "-thread";
}
}
$c->debug("post-configure archname fixes: $archname => $new");
$c->_fail("archname not detected in config.sh") unless $archname;
# This was very fragile: e.g. archname=darwin or mach
# FIXME libpth was changed to /usr/lib/x86_64-linux-debug-gnu
if ($archname and $archname ne $new) { # Time to make this stable
$new =~ s/([\$\%\@])/\\$1/g;
# which keys exactly? only those keys.
# maybe redo the whole Configure step again
App-perlbrew
view release on metacpan or search on metacpan
t/11.editdist.t view on Meta::CPAN
is editdist(qw/Joe Jim/), 2;
is editdist(qw/Jack Jill/), 3;
is editdist(qw/Jim Jimmy/), 2;
is editdist(qw/superman supergirl/), 4;
is editdist(qw/supercalifragilisticexpyalligocious superman/), 29;
is editdist(qw/foo bar/), 3;
done_testing;
App-perlhl
view release on metacpan or search on metacpan
lib/App/perlhl.pm view on Meta::CPAN
=over 4
=item * html
If true, the output will be an HTML fragment suitable for publishing as part
of a web page. B<NOTE:> In the future, this might output a whole valid document.
=back
The default is to output ANSI colour codes suitable for printing to any
App-phoebe
view release on metacpan or search on metacpan
lib/App/Phoebe.pm view on Meta::CPAN
my $port = port($stream);
my $spaces = space_regex();
my $reserved = reserved_regex($stream);
$log->debug("Serving ($hosts)(?::$port)?");
$log->debug("Spaces $spaces");
my($scheme, $authority, $path, $query, $fragment) =
$url =~ m|(?:([^:/?#]+):)?(?://([^/?#]*))?([^?#]*)(?:\?([^#]*))?(?:#(.*))?|;
$log->info("Looking at $url");
my ($host, $space, $id, $n, $style, $filter);
if (run_extensions($stream, $url)) {
# config file goes first
lib/App/Phoebe.pm view on Meta::CPAN
my $hosts = host_regex();
my $spaces_regex = space_regex();
my $port = port($stream);
if ($request =~ m!^titan://($hosts)(?::$port)?!) {
my $host = $1;
my($scheme, $authority, $path, $query, $fragment) =
$request =~ m|(?:([^:/?#]+):)?(?://([^/?#]*))?([^?#]*)(?:\?([^#]*))?(?:#(.*))?|;
if ($path =~ m!^(?:/($spaces_regex))?(?:/raw)?/([^/;=&]+(?:;\w+=[^;=&]+)+)!) {
my $space = $1;
my ($id, @params) = split(/[;=&]/, $2);
my $params = { map {decode_utf8(uri_unescape($_))} @params };
App-plx
view release on metacpan or search on metacpan
bin/plx-packed view on Meta::CPAN
$fatpacked{"App/cpanminus/Dependency.pm"} = '#line '.(1+__LINE__).' "'.__FILE__."\"\n".<<'APP_CPANMINUS_DEPENDENCY';
package App::cpanminus::Dependency;use strict;use CPAN::Meta::Requirements;sub from_prereqs {my($class,$prereqs,$phases,$types)=@_;my@deps;for my$type (@$types){push@deps,$class->from_versions($prereqs->merged_requirements($phases,[$type])->as_st...
APP_CPANMINUS_DEPENDENCY
$fatpacked{"App/cpanminus/script.pm"} = '#line '.(1+__LINE__).' "'.__FILE__."\"\n".<<'APP_CPANMINUS_SCRIPT';
package App::cpanminus::script;use strict;use Config;use Cwd ();use App::cpanminus;use App::cpanminus::Dependency;use File::Basename ();use File::Find ();use File::Path ();use File::Spec ();use File::Copy ();use File::Temp ();use Getopt::Long ();...
It appears your cpanm executable was installed via `perlbrew install-cpanm`.
cpanm --self-upgrade won't upgrade the version of cpanm you're running.
Run the following command to get it upgraded.
bin/plx-packed view on Meta::CPAN
CPAN_META_CHECK
$fatpacked{"CPAN/Meta/Converter.pm"} = '#line '.(1+__LINE__).' "'.__FILE__."\"\n".<<'CPAN_META_CONVERTER';
use 5.006;use strict;use warnings;package CPAN::Meta::Converter;our$VERSION='2.150005';use CPAN::Meta::Validator;use CPAN::Meta::Requirements;use Parse::CPAN::Meta 1.4400 ();BEGIN {eval "use version ()";if (my$err=$@){eval "use ExtUtils::MakeMake...
(?:x-?)? # Remove leading x- or x (if present)
/x_/ix;return$key}sub _ucfirst_custom {my$key=shift;$key=ucfirst$key unless$key =~ /[A-Z]/;return$key}sub _no_prefix_ucfirst_custom {my$key=shift;$key =~ s/^x_//;return _ucfirst_custom($key)}sub _change_meta_spec {my ($element,undef,un...
CPAN_META_CONVERTER
$fatpacked{"CPAN/Meta/Feature.pm"} = '#line '.(1+__LINE__).' "'.__FILE__."\"\n".<<'CPAN_META_FEATURE';
use 5.006;use strict;use warnings;package CPAN::Meta::Feature;our$VERSION='2.150005';use CPAN::Meta::Prereqs;sub new {my ($class,$identifier,$spec)=@_;my%guts=(identifier=>$identifier,description=>$spec->{description},prereqs=>CPAN::Meta::Prereqs...
CPAN_META_FEATURE
bin/plx-packed view on Meta::CPAN
$fatpacked{"CPAN/Meta/History.pm"} = '#line '.(1+__LINE__).' "'.__FILE__."\"\n".<<'CPAN_META_HISTORY';
use 5.006;use strict;use warnings;package CPAN::Meta::History;our$VERSION='2.150005';1;
CPAN_META_HISTORY
$fatpacked{"CPAN/Meta/Merge.pm"} = '#line '.(1+__LINE__).' "'.__FILE__."\"\n".<<'CPAN_META_MERGE';
use strict;use warnings;package CPAN::Meta::Merge;our$VERSION='2.150005';use Carp qw/croak/;use Scalar::Util qw/blessed/;use CPAN::Meta::Converter 2.141170;sub _is_identical {my ($left,$right)=@_;return (not defined$left and not defined$right)|| ...
CPAN_META_MERGE
$fatpacked{"CPAN/Meta/Prereqs.pm"} = '#line '.(1+__LINE__).' "'.__FILE__."\"\n".<<'CPAN_META_PREREQS';
use 5.006;use strict;use warnings;package CPAN::Meta::Prereqs;our$VERSION='2.150005';use Carp qw(confess);use Scalar::Util qw(blessed);use CPAN::Meta::Requirements 2.121;sub __legal_phases {qw(configure build test runtime develop)}sub __legal_typ...
CPAN_META_PREREQS
bin/plx-packed view on Meta::CPAN
$fatpacked{"CPAN/Meta/Spec.pm"} = '#line '.(1+__LINE__).' "'.__FILE__."\"\n".<<'CPAN_META_SPEC';
use 5.006;use strict;use warnings;package CPAN::Meta::Spec;our$VERSION='2.150005';1;
CPAN_META_SPEC
$fatpacked{"CPAN/Meta/Validator.pm"} = '#line '.(1+__LINE__).' "'.__FILE__."\"\n".<<'CPAN_META_VALIDATOR';
use 5.006;use strict;use warnings;package CPAN::Meta::Validator;our$VERSION='2.150005';my%known_specs=('1.4'=>'http://module-build.sourceforge.net/META-spec-v1.4.html','1.3'=>'http://module-build.sourceforge.net/META-spec-v1.3.html','1.2'=>'http:...
CPAN_META_VALIDATOR
$fatpacked{"CPAN/Meta/YAML.pm"} = '#line '.(1+__LINE__).' "'.__FILE__."\"\n".<<'CPAN_META_YAML';
use 5.008001;use strict;use warnings;package CPAN::Meta::YAML;$CPAN::Meta::YAML::VERSION='0.016';;use Exporter;our@ISA=qw{Exporter};our@EXPORT=qw{Load Dump};our@EXPORT_OK=qw{LoadFile DumpFile freeze thaw};sub Dump {return CPAN::Meta::YAML->new(@_...
Read an invalid UTF-8 string (maybe mixed UTF-8 and 8-bit character set).
App-prepare4release
view release on metacpan or search on metacpan
lib/App/prepare4release.pm view on Meta::CPAN
warn "[prepare4release] wrote $rel (standalone README badge injector)\n"
if $verbose;
return;
}
# Makefile fragment: pod2* then inject README shields via generated script (no App::pm dep).
sub _postamble_block {
my ( $class, $opts ) = @_;
$opts = {} unless ref $opts eq 'HASH';
my $tab = "\t";
my $want_pod2github = $opts->{github} || $opts->{gitlab};
lib/App/prepare4release.pm view on Meta::CPAN
=back
=head1 README badge injector (F<maint/inject-readme-badges.pl>)
The C<MY::postamble> fragment cannot hold large, self-contained Perl I<sub>s:
C<ExtUtils::MakeMaker> expects that section to expand into Makefile rules, and
keeping badge logic only in F<Makefile.PL> would either duplicate a lot of text
or imply loading this distribution at C<make README.md> time. Instead,
C<prepare4release> writes F<maint/inject-readme-badges.pl>, a small, generated
program (core modules only) that strips prior shield lines and inserts the
App-remarkpl
view release on metacpan or search on metacpan
lib/App/remarkpl/public/remark.min.js view on Meta::CPAN
require=function e(t,a,r){function s(i,l){if(!a[i]){if(!t[i]){var o="function"==typeof require&&require;if(!l&&o)return o(i,!0);if(n)return n(i,!0);var c=new Error("Cannot find module '"+i+"'");throw c.code="MODULE_NOT_FOUND",c}var d=a[i]={exports:{}...
a.relevance>r.relevance&&(s=r,r=a)}),s.language&&(r.second_best=s),r}function u(e){return N.tabReplace||N.useBR?e.replace(x,function(e,t){return N.useBR&&"\n"===e?"<br>":N.tabReplace?t.replace(/\t/g,N.tabReplace):void 0}):e}function h(e,t,a){var r=t?...
}),e.COMMENT("#cs","#ce"),e.COMMENT("#comments-start","#comments-end")]},n={begin:"\\$[A-z0-9_]+"},i={className:"string",variants:[{begin:/"/,end:/"/,contains:[{begin:/""/,relevance:0}]},{begin:/'/,end:/'/,contains:[{begin:/''/,relevance:0}]}]},l={va...
beginKeywords:"class interface",end:/[{;=]/,illegal:/[^\s:]/,contains:[e.TITLE_MODE,e.C_LINE_COMMENT_MODE,e.C_BLOCK_COMMENT_MODE]},{beginKeywords:"namespace",end:/[{;=]/,illegal:/[^\s:]/,contains:[e.inherit(e.TITLE_MODE,{begin:"[a-zA-Z](\\.?\\w)*"}),...
},a={className:"params",begin:/\(/,end:/\)/,excludeBegin:!0,excludeEnd:!0},r={className:"symbol",variants:[{begin:/\=[lgenxc]=/},{begin:/\$/}]},s={className:"comment",variants:[{begin:"'",end:"'"},{begin:'"',end:'"'}],illegal:"\\n",contains:[e.BACKSL...
},{begin:":\\s*"+t}]}]}}},{name:"hsp",create:function(e){return{case_insensitive:!0,lexemes:/[\w\._]+/,keywords:"goto gosub return break repeat loop continue wait await dim sdim foreach dimtype dup dupptr end stop newmod delmod mref run exgoto on mca...
},contains:[t,{className:"keyword",begin:"\\bend\\sif\\b"},{className:"function",beginKeywords:"function",end:"$",contains:[t,s,e.APOS_STRING_MODE,e.QUOTE_STRING_MODE,e.BINARY_NUMBER_MODE,e.C_NUMBER_MODE,r]},{className:"function",begin:"\\bend\\s+",e...
contains:[{className:"comment",begin:/\(\*/,end:/\*\)/},e.APOS_STRING_MODE,e.QUOTE_STRING_MODE,e.C_NUMBER_MODE,{begin:/\{/,end:/\}/,illegal:/:/}]}}},{name:"matlab",create:function(e){var t=[e.C_NUMBER_MODE,{className:"string",begin:"'",end:"'",contai...
illegal:"</",contains:[e.C_NUMBER_MODE,e.APOS_STRING_MODE,e.QUOTE_STRING_MODE,{className:"string",begin:"`",end:"`",contains:[e.BACKSLASH_ESCAPE]},{begin:"[\\$\\%\\@](\\^\\w\\b|#\\w+|[^\\s\\w{]|{\\w+}|\\w+)"},e.C_LINE_COMMENT_MODE,e.C_BLOCK_COMMENT_M...
contains:[i]});return{aliases:["ps"],lexemes:/-?[A-z\.\-]+/,case_insensitive:!0,keywords:{keyword:"if else foreach return function do while until elseif begin for trap data dynamicparam end break throw param continue finally in switch exit filter try...
},{className:"meta",begin:"#\\!?\\[",end:"\\]",contains:[{className:"meta-string",begin:/"/,end:/"/}]},{className:"class",beginKeywords:"type",end:";",contains:[e.inherit(e.UNDERSCORE_TITLE_MODE,{endsParent:!0})],illegal:"\\S"},{className:"class",beg...
literal:"true false nil"},contains:[e.C_LINE_COMMENT_MODE,e.C_BLOCK_COMMENT_MODE,e.NUMBER_MODE,a,t.preprocessor],illegal:/#/}}},{name:"sql",create:function(e){var t=e.COMMENT("--","$");return{case_insensitive:!0,illegal:/[<>{}*#]/,contains:[{beginKey...
return{aliases:["styl"],case_insensitive:!1,keywords:"if else for in",illegal:"("+o.join("|")+")",contains:[e.QUOTE_STRING_MODE,e.APOS_STRING_MODE,e.C_LINE_COMMENT_MODE,e.C_BLOCK_COMMENT_MODE,a,{begin:"\\.[a-zA-Z][a-zA-Z0-9_-]*"+i,returnBegin:!0,cont...
built_in:"ip eip rip al ah bl bh cl ch dl dh sil dil bpl spl r8b r9b r10b r11b r12b r13b r14b r15b ax bx cx dx si di bp sp r8w r9w r10w r11w r12w r13w r14w r15w eax ebx ecx edx esi edi ebp esp eip r8d r9d r10d r11d r12d r13d r14d r15d rax rbx rcx rdx...
App-revealup
view release on metacpan or search on metacpan
share/revealjs/js/config.js
share/revealjs/js/controllers/autoanimate.js
share/revealjs/js/controllers/backgrounds.js
share/revealjs/js/controllers/controls.js
share/revealjs/js/controllers/focus.js
share/revealjs/js/controllers/fragments.js
share/revealjs/js/controllers/keyboard.js
share/revealjs/js/controllers/location.js
share/revealjs/js/controllers/notes.js
share/revealjs/js/controllers/overview.js
share/revealjs/js/controllers/plugins.js
App-runscript
view release on metacpan or search on metacpan
maint/AuthorExtensions.pl view on Meta::CPAN
: $local_bin; ## no critic (RequireLocalizedPunctuationVars)
{
no warnings 'once'; ## no critic (ProhibitNoWarnings)
*MY::postamble = sub {
my $make_fragment = '';
$make_fragment .= <<"MAKE_FRAGMENT";
export PATH := $ENV{ PATH }
ifdef PERL5LIB
PERL5LIB := @{ [ -d $t_lib ? "$t_lib:" : () ] }$local_lib:\$(PERL5LIB)
else
maint/AuthorExtensions.pl view on Meta::CPAN
testlm:
\$(NOECHO) \$(MAKE) TEST_FILES=\$\$(find t -name '*.t' -printf '%T@ %p\\n' | sort -nr | head -1 | cut -d' ' -f2) test
MAKE_FRAGMENT
my $prove = _which 'prove';
$make_fragment .= <<"MAKE_FRAGMENT" if $prove;
# runs test scripts through TAP::Harness (prove) instead of Test::Harness (ExtUtils::MakeMaker)
.PHONY: testp
testp: pure_all
\$(NOECHO) \$(FULLPERLRUN) $prove\$(if \$(TEST_VERBOSE:0=), --verbose) --norc@{ [ -f $prove_rc_file ? " --rc $prove_rc_file" : () ] } --blib --recurse --shuffle \$(TEST_FILES)
MAKE_FRAGMENT
$make_fragment .= <<"MAKE_FRAGMENT" if _which 'cover';
.PHONY: cover
cover:
\$(NOECHO) cover -test -ignore @{ [ basename( $local_lib_root ) ] } -report vim
MAKE_FRAGMENT
return $make_fragment;
};
}
sub _which ( $ ) {
my ( $executable ) = @_;
App-sdview-Output-HTML
view release on metacpan or search on metacpan
lib/App/sdview/Output/HTML.pm view on Meta::CPAN
$ sdview Some/File.pod -o HTML > index.html
=head1 DESCRIPTION
This output module adds to L<App::sdview> the ability to output HTML; or at
least, a page fragment that might be used to construct a full HTML page.
Currently, no header or CSS is generated, only the main body content by
relatively simple conversion - headers to C<< <h1> >>, C<< <h2> >>, etc.. and
inline formatting within paragraphs.
App-shcompgen
view release on metacpan or search on metacpan
able to handle # NO_PERINCI_CMDLINE_SCRIPT etc.
0.14 2016-01-29 Released-By: PERLANCAR
- Use command_args=... attribute in shcompgen-hint text fragment.
0.13 2015-09-17 Released-By: PERLANCAR
- Adjust to Complete::Util 0.36 (complete_file() &
App-termpub
view release on metacpan or search on metacpan
lib/App/termpub.pm view on Meta::CPAN
for ( my $i = 0 ; $i < @{ $self->chapters } ; $i++ ) {
my $chapter = $self->chapters->[$i];
if ( $chapter->filename eq $path ) {
$self->set_chapter($i);
if ( my $fragment = $url->fragment ) {
if ( my $line = $self->id_line->{$fragment} ) {
$self->line($line);
}
}
$self->update_screen;
return;
App-url
view release on metacpan or search on metacpan
lib/App/url.pm view on Meta::CPAN
=over 4
=item * C<%a> - the path
=item * C<%f> - the fragment
=item * C<%h> - the hostname, with domain info
=item * C<%H> - the hostname without domain info
lib/App/url.pm view on Meta::CPAN
# $v - value that corresponds to position in template
# $V - list of all values
# $l - letter
my $formatter = String::Sprintf->formatter(
a => sub ( $w, $v, $V, $l ) { $V->[0]->path },
f => sub ( $w, $v, $V, $l ) { $V->[0]->fragment },
h => sub ( $w, $v, $V, $l ) { $V->[0]->host },
H => sub ( $w, $v, $V, $l ) { ( split /\./, $V->[0]->host )[0] },
i => sub ( $w, $v, $V, $l ) { $V->[0]->ihost },
I => sub ( $w, $v, $V, $l ) {
state $rc = require Socket;
App-wrapspeak
view release on metacpan or search on metacpan
inc/Module/AutoInstall.pm view on Meta::CPAN
return 1;
}
sub postamble {
$PostambleUsed = 1;
my $fragment;
$fragment .= <<"AUTO_INSTALL" if !$InstallDepsTarget;
config :: installdeps
\t\$(NOECHO) \$(NOOP)
AUTO_INSTALL
$fragment .= <<"END_MAKE";
checkdeps ::
\t\$(PERL) $0 --checkdeps
installdeps ::
inc/Module/AutoInstall.pm view on Meta::CPAN
listalldeps ::
\t$PostambleActionsListAllDeps
END_MAKE
return $fragment;
}
1;
__END__
App-wsgetmail
view release on metacpan or search on metacpan
inc/Module/AutoInstall.pm view on Meta::CPAN
return 1;
}
sub postamble {
$PostambleUsed = 1;
my $fragment;
$fragment .= <<"AUTO_INSTALL" if !$InstallDepsTarget;
config :: installdeps
\t\$(NOECHO) \$(NOOP)
AUTO_INSTALL
$fragment .= <<"END_MAKE";
checkdeps ::
\t\$(PERL) $0 --checkdeps
installdeps ::
inc/Module/AutoInstall.pm view on Meta::CPAN
listalldeps ::
\t$PostambleActionsListAllDeps
END_MAKE
return $fragment;
}
1;
__END__
App-yajg
view release on metacpan or search on metacpan
lib/App/yajg/Hooks.pm view on Meta::CPAN
# Do not use URI for increase speed
sub uri_parse {
return unless defined $_[0] and not ref $_[0];
my %uri;
# From URI::Split::uri_split
@uri{qw/scheme host path query fragment/} =
$_[0] =~ m,(?:([^:/?#]+):)?(?://([^/?#]*))?([^?#]*)(?:\?([^#]*))?(?:#(.*))?,;
return unless defined $uri{'host'};
$uri{'uri'} = $_[0];
$uri{'path'} = [
map { _decode_uri($_) } split '/' => $uri{'path'} =~ s,^/,,r
lib/App/yajg/Hooks.pm view on Meta::CPAN
$uri{'query'} = {
map { _decode_uri($_) }
map { /=/ ? split(/=/, $_, 2) : ($_ => undef) }
split /[&;]/ => ($uri{'query'} // '')
};
$uri{'fragment'} = _decode_uri($uri{'fragment'});
$_[0] = \%uri;
}
sub make_code_hook ($) {
my $code = shift;
AproJo
view release on metacpan or search on metacpan
share/files/public/skins/default/jquery-ui-1.9.1.custom/development-bundle/demos/autocomplete/search.php view on Meta::CPAN
"Daurian Shrike"=>"Lanius isabellinus",
"Long-Tailed Shrike"=>"Lanius schach",
"Lesser Grey Shrike"=>"Lanius minor",
"Southern Grey Shrike"=>"Lanius meridionalis",
"Masked Shrike"=>"Lanius nubicus",
"Spotted Nutcracker"=>"Nucifraga caryocatactes",
"Daurian Jackdaw"=>"Corvus dauuricus",
"Purple-Backed Starling"=>"Sturnus sturninus",
"Red-Fronted Serin"=>"Serinus pusillus",
"Arctic Redpoll"=>"Carduelis hornemanni",
"Scottish Crossbill"=>"Loxia scotica",
AquariumHive
view release on metacpan or search on metacpan
share/root/html5shiv.min.js view on Meta::CPAN
/**
* @preserve HTML5 Shiv 3.7.2 | @afarkas @jdalton @jon_neal @rem | MIT/GPL2 Licensed
*/
!function(a,b){function c(a,b){var c=a.createElement("p"),d=a.getElementsByTagName("head")[0]||a.documentElement;return c.innerHTML="x<style>"+b+"</style>",d.insertBefore(c.lastChild,d.firstChild)}function d(){var a=t.elements;return"string"==typeof ...
( run in 2.636 seconds using v1.01-cache-2.11-cpan-b16cb0d3907 )