view release on metacpan or search on metacpan
lib/App/RouterColorizer.pm view on Meta::CPAN
# IPv6
$line =~ s/ ( (?<! [a-fA-F0-9:\-]) $IPV6CIDR (?! [\w:\.\/]) ) /$self->_ipv6ify($1)/egxx;
# Numbers
# We need to make sure we don't highlight undesirably, such as in an
# escape sequence.
$line =~ s/ (
(?<! [:\.0-9]) (?<! \e \[) (?<! \e \[\?)
[0-9]+ (?! [:0-9])
) /$self->_numerify($1)/egxx;
view release on metacpan or search on metacpan
inc/Module/Install/Metadata.pm view on Meta::CPAN
defined $2
? chr($2)
: defined $Pod::Escapes::Name2character_number{$1}
? chr($Pod::Escapes::Name2character_number{$1})
: do {
warn "Unknown escape: E<$1>";
"E<$1>";
};
}gex;
}
elsif (eval "require Pod::Text; 1" && $Pod::Text::VERSION < 3) {
inc/Module/Install/Metadata.pm view on Meta::CPAN
defined $2
? chr($2)
: defined $mapping->{$1}
? $mapping->{$1}
: do {
warn "Unknown escape: E<$1>";
"E<$1>";
};
}gex;
}
else {
view release on metacpan or search on metacpan
lib/App/RunCron.pm view on Meta::CPAN
=head2 logfile
If logfile is specified, stdout and stderr of the command will be logged to the file so that it could be used for later inspection.
If not specified, the outputs will not be logged.
The logfile can be a C<strftime> format. eg. '%Y-%m-%d.log'. (NOTICE: '%' must be escaped in crontab.)
=head2 reporter|error_reporter|common_reporter
C<common_reporter> is optional, processing after C<(error_)?reporter> is handled.
view release on metacpan or search on metacpan
inc/Module/Install/Metadata.pm view on Meta::CPAN
defined $2
? chr($2)
: defined $Pod::Escapes::Name2character_number{$1}
? chr($Pod::Escapes::Name2character_number{$1})
: do {
warn "Unknown escape: E<$1>";
"E<$1>";
};
}gex;
}
elsif (eval "require Pod::Text; 1" && $Pod::Text::VERSION < 3) {
inc/Module/Install/Metadata.pm view on Meta::CPAN
defined $2
? chr($2)
: defined $mapping->{$1}
? $mapping->{$1}
: do {
warn "Unknown escape: E<$1>";
"E<$1>";
};
}gex;
}
else {
view release on metacpan or search on metacpan
lib/App/Sandy/Command/Genome.pm view on Meta::CPAN
=item B<--join-paired-ends>
By default, paired-end reads are put into two different files,
I<prefix_R[12]_001.fastq(\.gz)?>. If the user wants both outputs
together, she can pass this option.
If the B<--id> does not have the escape character %R, it is
automatically included right after the first field (blank separated values)
as in I<id/%R> - which resolves to I<id/1> or I<id/2>.
It is necessary to distinguish which read is R1/R2
=item B<--compression-level>
lib/App/Sandy/Command/Genome.pm view on Meta::CPAN
e.g. SR123.1_chr1_P_1001_1101
See B<Format>
=item B<Format>
A string B<Format> is a combination of literal and escape characters similar to the way I<printf> works.
That way, the user has the freedom to customize the fastq sequence identifier to fit her needs. Valid
escape characteres are:
B<Common escape characters>
----------------------------------------------------------------------------
Escape Meaning
----------------------------------------------------------------------------
%i instrument id composed by SR + PID
lib/App/Sandy/Command/Genome.pm view on Meta::CPAN
%b read end position regarding reference genome ***
%v genomic variation position ***
----------------------------------------------------------------------------
*** specific for genomic variation (genome simulation only)
B<Paired-end specific escape characters>
----------------------------------------------------------------------------
Escape Meaning
----------------------------------------------------------------------------
%T mate read start position
lib/App/Sandy/Command/Genome.pm view on Meta::CPAN
And in order to learn how to add your custom quality-profile, see:
$ sandy quality add --help
Sequence identifiers (first lines of fastq entries) may be customized in output using
a format string passed by the user. This format is a combination of literal and escaped
characters, in a similar fashion to that used in C programming language’s printf function.
For example, let’s simulate a paired-end sequencing and add the read length, read position
and mate position into all sequence identifiers:
$ sandy genome \
view release on metacpan or search on metacpan
inc/Module/Install/Metadata.pm view on Meta::CPAN
defined $2
? chr($2)
: defined $Pod::Escapes::Name2character_number{$1}
? chr($Pod::Escapes::Name2character_number{$1})
: do {
warn "Unknown escape: E<$1>";
"E<$1>";
};
}gex;
}
elsif (eval "require Pod::Text; 1" && $Pod::Text::VERSION < 3) {
inc/Module/Install/Metadata.pm view on Meta::CPAN
defined $2
? chr($2)
: defined $mapping->{$1}
? $mapping->{$1}
: do {
warn "Unknown escape: E<$1>";
"E<$1>";
};
}gex;
}
else {
view release on metacpan or search on metacpan
inc/Module/Install/Metadata.pm view on Meta::CPAN
defined $2
? chr($2)
: defined $Pod::Escapes::Name2character_number{$1}
? chr($Pod::Escapes::Name2character_number{$1})
: do {
warn "Unknown escape: E<$1>";
"E<$1>";
};
}gex;
}
elsif (eval "require Pod::Text; 1" && $Pod::Text::VERSION < 3) {
inc/Module/Install/Metadata.pm view on Meta::CPAN
defined $2
? chr($2)
: defined $mapping->{$1}
? $mapping->{$1}
: do {
warn "Unknown escape: E<$1>";
"E<$1>";
};
}gex;
}
else {
view release on metacpan or search on metacpan
lib/App/SeismicUnixGui/misc/control.pm view on Meta::CPAN
sub set_first_name {
my ($self) = @_;
my ( $first_name, $suffix, $file_name );
# split by the escaped period
$file_name = $control->{_file_name};
( $first_name, $suffix ) = split( /\./, $file_name );
$control->{_first_name} = $first_name;
# print("control,set_first_name,is: $control->{_first_name}\n");
lib/App/SeismicUnixGui/misc/control.pm view on Meta::CPAN
my $first_name;
my $suffix;
# print("control,file_name,is: $control->{_file_name}\n");
# split by the escaped period
my $file_name = $control->{_file_name};
( $first_name, $suffix ) = split( /\./, $file_name );
$control->{_first_name} = $first_name;
# print("control,first_name,is: $first_name\n");
view release on metacpan or search on metacpan
lib/App/Sets.pm view on Meta::CPAN
LOGDIE "only file op file [op file...] "
. "with multiple parameters (@args)...\n"
unless @args % 2;
my @chunks;
while (@args) {
push @chunks, escape(shift @args);
push @chunks, shift @args if @args;
}
$input = join ' ', @chunks;
} ## end if (@args > 1)
else {
lib/App/Sets.pm view on Meta::CPAN
print {*STDOUT} "\n" if $config{trim};
}
return;
} ## end sub run
sub escape {
my ($text) = @_;
$text =~ s{(\W)}{\\$1}gmxs;
return $text;
}
view release on metacpan or search on metacpan
lib/App/SilverSplash.pm view on Meta::CPAN
sub make_post_url {
my ( $class, $splash_url, $dest_url ) = @_;
$dest_url = URI::Escape::uri_escape($dest_url);
my $separator = ($splash_url =~ m/\?/) ? '&' : '?';
my $location = $splash_url . $separator . "url=$dest_url";
return $location;
view release on metacpan or search on metacpan
local/lib/perl5/Data/Dump.pm view on Meta::CPAN
s/([\\\"\@\$])/\\$1/g;
return qq("$_") unless /[^\040-\176]/; # fast exit
s/([\a\b\t\n\f\r\e])/$esc{$1}/g;
# no need for 3 digits in escape for these
s/([\0-\037])(?!\d)/sprintf('\\%o',ord($1))/eg;
s/([\0-\037\177-\377])/sprintf('\\x%02X',ord($1))/eg;
s/([^\040-\176])/sprintf('\\x{%X}',ord($1))/eg;
view release on metacpan or search on metacpan
lib/App/SimpleScan.pm view on Meta::CPAN
# shown below for matching quoted strings.
# For an explanation of why this works, see Friedl, p. 262 ff.
# It's called "unrolling" the regex there.
# Pattern: quote (nonspecial)*(escape anything (nonspecial)*)* quote
my $qregex = qr/'[^'\\]*(?:\\.[^'\\]*)*'/;
my $qqregex = qr/"[^"\\]*(?:\\.[^"\\]*)*"/;
my $qxregex = qr/`[^`\\]*(?:\\.[^`\\]*)*`/;
# Plus we need the cleanup tokenizer: match anything nonblank. This
view release on metacpan or search on metacpan
lib/App/SimulateReads/Command/Custom.pm view on Meta::CPAN
e.g. SR123.1 1
See B<Format>
=item B<Format>
A string B<Format> is a combination of literal and escape characters similar to the way I<printf> works.
That way, the user has the freedom to customize the fastq sequence identifier to fit her needs. Valid
escape characteres are:
Common escape characters
Escape Meaning
------ ------------------------------------------
%i instrument id composed by SR + PID
%I job slot number
lib/App/SimulateReads/Command/Custom.pm view on Meta::CPAN
%c sequence id as chromossome, ref
%s read or fragment strand
%t read start position
%n read end position
Paired-end specific escape characters
Escape Meaning
------ ------------------------------------------
%T mate read start position
%N mate read end position
view release on metacpan or search on metacpan
share/public/highlight/highlight.min.js view on Meta::CPAN
constructor(e,t){super(e),this.name="HTMLInjectionError",this.html=t}}
const Y=i,Q=r,ee=Symbol("nomatch");var te=(t=>{
const i=Object.create(null),r=Object.create(null),s=[];let o=!0
;const a="Could not find the language '{}', did you forget to load/include a language module?",c={
disableAutodetect:!0,name:"Plain text",contains:[]};let g={
ignoreUnescapedHTML:!1,throwUnescapedHTML:!1,noHighlightRe:/^(no-?highlight)$/i,
languageDetectRe:/\blang(?:uage)?-([\w-]+)\b/i,classPrefix:"hljs-",
cssSelector:"pre code",languages:null,__emitter:l};function b(e){
return g.noHighlightRe.test(e)}function m(e,t,n){let i="",r=""
;"object"==typeof t?(i=e,
n=t.ignoreIllegals,r=t.language):(X("10.7.0","highlight(lang, code, ...args) has been deprecated."),
share/public/highlight/highlight.min.js view on Meta::CPAN
;const n=g.languageDetectRe.exec(t);if(n){const t=O(n[1])
;return t||(W(a.replace("{}",n[1])),
W("Falling back to no-highlight mode for this block.",e)),t?n[1]:"no-highlight"}
return t.split(/\s+/).find((e=>b(e)||O(e)))})(e);if(b(n))return
;if(k("before:highlightElement",{el:e,language:n
}),e.children.length>0&&(g.ignoreUnescapedHTML||(console.warn("One of your code blocks includes unescaped HTML. This is a potentially serious security risk."),
console.warn("https://github.com/highlightjs/highlight.js/wiki/security"),
console.warn("The element with unescaped HTML:"),
console.warn(e)),g.throwUnescapedHTML))throw new J("One of your code blocks includes unescaped HTML.",e.innerHTML)
;t=e;const i=t.textContent,s=n?m(i,{language:n,ignoreIllegals:!0}):x(i)
;e.innerHTML=s.value,((e,t,n)=>{const i=t&&r[t]||n
;e.classList.add("hljs"),e.classList.add("language-"+i)
})(e,n,s.language),e.result={language:s.language,re:s.relevance,
relevance:s.relevance},s.secondBest&&(e.secondBest={
share/public/highlight/highlight.min.js view on Meta::CPAN
keyword:"define endef undefine ifdef ifndef ifeq ifneq else endif include -include sinclude override export unexport private vpath"
},contains:[e.HASH_COMMENT_MODE,i,a,n,s,{className:"meta",begin:/^\.PHONY:/,
end:/$/,keywords:{$pattern:/[\.\w]+/,keyword:".PHONY"}},r]}}})()
;hljs.registerLanguage("makefile",e)})();/*! `sql` grammar compiled for Highlight.js 11.7.0 */
(()=>{var e=(()=>{"use strict";return e=>{
const r=e.regex,t=e.COMMENT("--","$"),n=["true","false","unknown"],a=["bigint","binary","blob","boolean","char","character","clob","date","dec","decfloat","decimal","float","int","integer","interval","nchar","nclob","national","numeric","real","row",...
begin:r.concat(/\b/,r.either(...o),/\s*\(/),relevance:0,keywords:{built_in:o}}
;return{name:"SQL",case_insensitive:!0,illegal:/[{}]|<\//,keywords:{
$pattern:/\b[\w\.]+/,keyword:((e,{exceptions:r,when:t}={})=>{const n=t
;return r=r||[],e.map((e=>e.match(/\|\d+$/)||r.includes(e)?e:n(e)?e+"|0":e))
})(c,{when:e=>e.length<3}),literal:n,type:a,
share/public/highlight/highlight.min.js view on Meta::CPAN
begin:/'/,end:/'/,contains:[{begin:/''/}]}]},{begin:/"/,end:/"/,contains:[{
begin:/""/}]},e.C_NUMBER_MODE,e.C_BLOCK_COMMENT_MODE,t,{className:"operator",
begin:/[-+*/=%^~]|&&?|\|\|?|!=?|<(?:=>?|<|>)?|>[>=]?/,relevance:0}]}}})()
;hljs.registerLanguage("sql",e)})();/*! `javascript` grammar compiled for Highlight.js 11.7.0 */
(()=>{var e=(()=>{"use strict"
;const e="[A-Za-z$_][0-9A-Za-z$_]*",n=["as","in","of","if","for","while","finally","var","new","function","do","return","void","else","break","catch","instanceof","with","throw","case","default","try","switch","continue","typeof","delete","let","yiel...
;return o=>{const l=o.regex,b=e,d={begin:/<[A-Za-z0-9\\._:-]+/,
end:/\/[A-Za-z0-9\\._:-]+>|\/>/,isTrulyOpeningTag:(e,n)=>{
const a=e[0].length+e.index,t=e.input[a]
;if("<"===t||","===t)return void n.ignoreMatch();let s
;">"===t&&(((e,{after:n})=>{const a="</"+e[0].slice(1)
share/public/highlight/highlight.min.js view on Meta::CPAN
2:"number"},match:[/[^a-zA-Z0-9._]|^/,i]}]},{scope:{3:"operator"},
match:[n,/\s+/,/<-/,/\s+/]},{scope:"operator",relevance:0,variants:[{match:s},{
match:/%[^%]*%/}]},{scope:"punctuation",relevance:0,match:t},{begin:"`",end:"`",
contains:[{begin:/\\./}]}]}}})();hljs.registerLanguage("r",e)})();/*! `typescript` grammar compiled for Highlight.js 11.7.0 */
(()=>{var e=(()=>{"use strict"
;const e="[A-Za-z$_][0-9A-Za-z$_]*",n=["as","in","of","if","for","while","finally","var","new","function","do","return","void","else","break","catch","instanceof","with","throw","case","default","try","switch","continue","typeof","delete","let","yiel...
;function o(o){const l=o.regex,d=e,b={begin:/<[A-Za-z0-9\\._:-]+/,
end:/\/[A-Za-z0-9\\._:-]+>|\/>/,isTrulyOpeningTag:(e,n)=>{
const a=e[0].length+e.index,t=e.input[a]
;if("<"===t||","===t)return void n.ignoreMatch();let s
;">"===t&&(((e,{after:n})=>{const a="</"+e[0].slice(1)
view release on metacpan or search on metacpan
lib/SVN/Dump/Replayer/Git.pm view on Meta::CPAN
my $branch_to_delete = $change->entity_name();
# Get off the branch if we're deleting the one we're on.
if ($branch_to_delete eq $self->current_branch()) {
my $escape_dir_info = $self->arborist()->get_dir_analysis_info(
$revision->id(),
""
);
$self->set_branch(
$revision,
$escape_dir_info->ent_type(),
$escape_dir_info->ent_name(),
);
}
$self->git_env_setup($revision);
$self->do_or_die("git", "branch", "-D", $change->entity_name());
view release on metacpan or search on metacpan
inc/Module/Install/Metadata.pm view on Meta::CPAN
defined $2
? chr($2)
: defined $Pod::Escapes::Name2character_number{$1}
? chr($Pod::Escapes::Name2character_number{$1})
: do {
warn "Unknown escape: E<$1>";
"E<$1>";
};
}gex;
}
elsif (eval "require Pod::Text; 1" && $Pod::Text::VERSION < 3) {
inc/Module/Install/Metadata.pm view on Meta::CPAN
defined $2
? chr($2)
: defined $mapping->{$1}
? $mapping->{$1}
: do {
warn "Unknown escape: E<$1>";
"E<$1>";
};
}gex;
}
else {
view release on metacpan or search on metacpan
inc/Test/Base/Filter.pm view on Meta::CPAN
local $Data::Dumper::Indent = 1;
local $Data::Dumper::Terse = 1;
Data::Dumper::Dumper(@_);
}
sub escape {
$self->assert_scalar(@_);
my $text = shift;
$text =~ s/(\\.)/eval "qq{$1}"/ge;
return $text;
}
view release on metacpan or search on metacpan
lib/App/Spec/Completion/Bash.pm view on Meta::CPAN
my $name = $o->name;
my $aliases = $o->aliases;
my $summary = $o->summary;
$summary =~ s/\s+/ /g if defined $summary;
my @names = ($name, @$aliases);
($summary, @names) = $self->escape_singlequote( $summary, @names );
@names = map {
length $_ > 1 ? "--$_" : "-$_"
} @names;
my @items = map {
lib/App/Spec/Completion/Bash.pm view on Meta::CPAN
}
}
return ("@flags", "@opt");
}
sub escape_singlequote {
my ($self, @strings) = @_;
my @result;
for my $string (@strings) {
no warnings 'uninitialized';
$string =~ s/[']/'"\\\\'"'/g;
lib/App/Spec/Completion/Bash.pm view on Meta::CPAN
=item completion_parameters
=item dynamic_completion
=item escape_singlequote
(@names) = $self->escape_singlequote( @names );
=item flags_options
my ($flags_string, $options_string) = $completer->flags_options($global_options);
view release on metacpan or search on metacpan
lib/App/Spoor/AccessEntryParser.pm view on Meta::CPAN
=cut
sub parse {
use DateTime::Format::Strptime;
use URI::Escape qw( uri_unescape );
my $log_entry = shift;
my $level;
my $event;
my $status;
lib/App/Spoor/AccessEntryParser.pm view on Meta::CPAN
\[(?<timestamp>[^\]]+)\]\s
"(?<http_request>[^"]+)"\s
(?<response_code>\d{3})\s
/x) {
my $log_time = $date_parser->parse_datetime($+{timestamp})->epoch();
my $credential = uri_unescape($+{username});
my $ip = $+{ip};
my $http_request = $+{http_request};
my $response_code = $+{response_code};
if ($credential =~ /@/) {
lib/App/Spoor/AccessEntryParser.pm view on Meta::CPAN
} elsif (
$credential =~ /@/ &&
$http_request =~ /\AGET.+dodelfwd.html\?.*emaildest=(?<forward_recipient>[^\s?]+)/
) {
$event = 'forward_removed';
$forward_recipient = uri_unescape($+{forward_recipient});
} else {
$event = 'unrecognised';
}
%result = (
view release on metacpan or search on metacpan
lib/App/SpreadRevolutionaryDate/MsgMaker/PromptUser.pm view on Meta::CPAN
$msg = prompt($question, $self->default);
$confirm = prompt(
message => $confirm_intro . ' "' . $msg . '", ' . $confirm_question,
default => $confirm_ok,
validate => qr/^[$confirm_ok$confirm_nok]$/i,
escape => qr/^$confirm_abort$/,
error => $confirm_error,
tries => 2,
);
}
die "$abort\n" unless defined $confirm && $confirm =~ qr($confirm_ok);
view release on metacpan or search on metacpan
lib/App/SpreadsheetUtils.pm view on Meta::CPAN
schema => 'bool*',
description => <<'_',
This is like `--input-tsv` option but for output instead of input.
Overriden by `--output-sep-char`, `--output-quote-char`, `--output-escape-char`
options. If one of those options is specified, then `--output-tsv` will be
ignored.
_
tags => ['category:output'],
lib/App/SpreadsheetUtils.pm view on Meta::CPAN
Defaults to `"` (double quote). Overrides `--output-tsv` option.
_
tags => ['category:output'],
},
output_escape_char => {
summary => 'Specify character to escape value in field in output CSV, will be passed to Text::CSV_XS',
schema => ['str*', len=>1],
description => <<'_',
This is like `--input-escape-char` option but for output instead of input.
Defaults to `\\` (backslash). Overrides `--output-tsv` option.
_
tags => ['category:output'],
view release on metacpan or search on metacpan
lib/App/Sqitch/Command/config.pm view on Meta::CPAN
=head1 Description
You can query/set/replace/unset Sqitch options with this command. The name is
actually the section and the key separated by a dot, and the value will be
escaped.
=head1 Interface
=head2 Class Methods
view release on metacpan or search on metacpan
newRV_noinc() NEED_newRV_noinc NEED_newRV_noinc_GLOBAL
newSV_type() NEED_newSV_type NEED_newSV_type_GLOBAL
newSVpvn_flags() NEED_newSVpvn_flags NEED_newSVpvn_flags_GLOBAL
newSVpvn_share() NEED_newSVpvn_share NEED_newSVpvn_share_GLOBAL
pv_display() NEED_pv_display NEED_pv_display_GLOBAL
pv_escape() NEED_pv_escape NEED_pv_escape_GLOBAL
pv_pretty() NEED_pv_pretty NEED_pv_pretty_GLOBAL
sv_2pv_flags() NEED_sv_2pv_flags NEED_sv_2pv_flags_GLOBAL
sv_2pvbyte() NEED_sv_2pvbyte NEED_sv_2pvbyte_GLOBAL
sv_catpvf_mg() NEED_sv_catpvf_mg NEED_sv_catpvf_mg_GLOBAL
sv_catpvf_mg_nocontext() NEED_sv_catpvf_mg_nocontext NEED_sv_catpvf_mg_nocontext_GLOBAL
ptr_table_split||5.009005|
ptr_table_store||5.009005|
push_scope|||
put_byte|||
pv_display|5.006000||p
pv_escape|5.009004||p
pv_pretty|5.009004||p
pv_uni_display||5.007003|
qerror|||
qsortsvu|||
re_compile||5.009005|
#ifndef PERL_PV_PRETTY_REGPROP
# define PERL_PV_PRETTY_REGPROP PERL_PV_PRETTY_ELLIPSES|PERL_PV_PRETTY_LTGT|PERL_PV_ESCAPE_RE
#endif
/* Hint: pv_escape
* Note that unicode functionality is only backported to
* those perl versions that support it. For older perl
* versions, the implementation will fall back to bytes.
*/
#ifndef pv_escape
#if defined(NEED_pv_escape)
static char * DPPP_(my_pv_escape)(pTHX_ SV * dsv, char const * const str, const STRLEN count, const STRLEN max, STRLEN * const escaped, const U32 flags);
static
#else
extern char * DPPP_(my_pv_escape)(pTHX_ SV * dsv, char const * const str, const STRLEN count, const STRLEN max, STRLEN * const escaped, const U32 flags);
#endif
#ifdef pv_escape
# undef pv_escape
#endif
#define pv_escape(a,b,c,d,e,f) DPPP_(my_pv_escape)(aTHX_ a,b,c,d,e,f)
#define Perl_pv_escape DPPP_(my_pv_escape)
#if defined(NEED_pv_escape) || defined(NEED_pv_escape_GLOBAL)
char *
DPPP_(my_pv_escape)(pTHX_ SV *dsv, char const * const str,
const STRLEN count, const STRLEN max,
STRLEN * const escaped, const U32 flags)
{
const char esc = flags & PERL_PV_ESCAPE_RE ? '%' : '\\';
const char dq = flags & PERL_PV_ESCAPE_QUOTE ? '"' : esc;
char octbuf[32] = "%123456789ABCDF";
STRLEN wrote = 0;
wrote++;
}
if (flags & PERL_PV_ESCAPE_FIRSTCHAR)
break;
}
if (escaped != NULL)
*escaped= pv - str;
return SvPVX(dsv);
}
#endif
#endif
DPPP_(my_pv_pretty)(pTHX_ SV *dsv, char const * const str, const STRLEN count,
const STRLEN max, char const * const start_color, char const * const end_color,
const U32 flags)
{
const U8 dq = (flags & PERL_PV_PRETTY_QUOTE) ? '"' : '%';
STRLEN escaped;
if (!(flags & PERL_PV_PRETTY_NOCLEAR))
sv_setpvs(dsv, "");
if (dq == '"')
sv_catpvs(dsv, "<");
if (start_color != NULL)
sv_catpv(dsv, D_PPP_CONSTPV_ARG(start_color));
pv_escape(dsv, str, count, max, &escaped, flags | PERL_PV_ESCAPE_NOCLEAR);
if (end_color != NULL)
sv_catpv(dsv, D_PPP_CONSTPV_ARG(end_color));
if (dq == '"')
sv_catpvs(dsv, "\"");
else if (flags & PERL_PV_PRETTY_LTGT)
sv_catpvs(dsv, ">");
if ((flags & PERL_PV_PRETTY_ELLIPSES) && escaped < count)
sv_catpvs(dsv, "...");
return SvPVX(dsv);
}
view release on metacpan or search on metacpan
examples/complex/complex_endpoint.pl view on Meta::CPAN
my $group_id = $q->param('group_id');
my $queue = $q->param('queue');
return unless $queue && $group_id;
$queue = URI::Escape::uri_unescape($queue);
my $JSON = JSON::->new()->utf8();
my $queue_ref = $JSON->decode($queue);
$queue = undef;
# the current jantior is on top of the list
view release on metacpan or search on metacpan
lib/App/Standup/Diary/Template.pm view on Meta::CPAN
return $diary_template;
}
method render {
my $mt = Mojo::Template->new(auto_escape => 1);
my $month = $self->date->mon;
my $month_numeric = $self->date->mon < 10 ? "0$month" : $month;
return $mt->vars(1)->render(
$self->get_template, {
priorities_date => $self->date->year . '-' . $month_numeric,
view release on metacpan or search on metacpan
inc/Module/Install/Metadata.pm view on Meta::CPAN
defined $2
? chr($2)
: defined $Pod::Escapes::Name2character_number{$1}
? chr($Pod::Escapes::Name2character_number{$1})
: do {
warn "Unknown escape: E<$1>";
"E<$1>";
};
}gex;
}
elsif (eval "require Pod::Text; 1" && $Pod::Text::VERSION < 3) {
inc/Module/Install/Metadata.pm view on Meta::CPAN
defined $2
? chr($2)
: defined $mapping->{$1}
? $mapping->{$1}
: do {
warn "Unknown escape: E<$1>";
"E<$1>";
};
}gex;
}
else {
view release on metacpan or search on metacpan
inc/Module/Install/Metadata.pm view on Meta::CPAN
defined $2
? chr($2)
: defined $Pod::Escapes::Name2character_number{$1}
? chr($Pod::Escapes::Name2character_number{$1})
: do {
warn "Unknown escape: E<$1>";
"E<$1>";
};
}gex;
}
elsif (eval "require Pod::Text; 1" && $Pod::Text::VERSION < 3) {
inc/Module/Install/Metadata.pm view on Meta::CPAN
defined $2
? chr($2)
: defined $mapping->{$1}
? $mapping->{$1}
: do {
warn "Unknown escape: E<$1>";
"E<$1>";
};
}gex;
}
else {
view release on metacpan or search on metacpan
lib/App/Sysadmin/Log/Simple/HTTP.pm view on Meta::CPAN
# ABSTRACT: a HTTP (maybe RESTful?) logger for App::Sysadmin::Log::Simple
our $VERSION = '0.009'; # VERSION
use Carp;
use HTTP::Tiny;
use URI::Escape qw(uri_escape);
our $HTTP_TIMEOUT = 10;
sub new {
view release on metacpan or search on metacpan
share/test/asciitable/ascii7.org view on Meta::CPAN
| 013 | 11 | 0B | VT '\v' (vertical tab) |
| 014 | 12 | 0C | FF '\f' (form feed) |
| 015 | 13 | 0D | CR '\r' (carriage ret) |
| 016 | 14 | 0E | SO (shift out) |
| 017 | 15 | 0F | SI (shift in) |
| 020 | 16 | 10 | DLE (data link escape) |
| 021 | 17 | 11 | DC1 (device control 1) |
| 022 | 18 | 12 | DC2 (device control 2) |
| 023 | 19 | 13 | DC3 (device control 3) |
| 024 | 20 | 14 | DC4 (device control 4) |
| 025 | 21 | 15 | NAK (negative ack.) |
| 026 | 22 | 16 | SYN (synchronous idle) |
| 027 | 23 | 17 | ETB (end of trans. blk) |
| 030 | 24 | 18 | CAN (cancel) |
| 031 | 25 | 19 | EM (end of medium) |
| 032 | 26 | 1A | SUB (substitute) |
| 033 | 27 | 1B | ESC (escape) |
| 034 | 28 | 1C | FS (file separator) |
| 035 | 29 | 1D | GS (group separator) |
| 036 | 30 | 1E | RS (record separator) |
| 037 | 31 | 1F | US (unit separator) |
| 040 | 32 | 20 | SPACE |