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
# helper function: write HOME or INFO path as double-quoted string if it is not a simple ID
sub _quote_path ( $ ) {
my $path = shift;
if ($path !~ /^[A-Za-z0-9_\-\/][A-Za-z0-9_\.\-\/]+$/) {
$path =~ s/"/\\"/g; # escape all literal double quotes
$path = "\"$path\"";
}
return $path;
}
view release on metacpan or search on metacpan
newCONSTSUB() NEED_newCONSTSUB NEED_newCONSTSUB_GLOBAL
newSVpvn_share() NEED_newSVpvn_share NEED_newSVpvn_share_GLOBAL
PL_parser NEED_PL_parser NEED_PL_parser_GLOBAL
PL_signals NEED_PL_signals NEED_PL_signals_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_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
sv_setpvf_mg() NEED_sv_setpvf_mg NEED_sv_setpvf_mg_GLOBAL
sv_setpvf_mg_nocontext() NEED_sv_setpvf_mg_nocontext NEED_sv_setpvf_mg_nocontext_GLOBAL
DEFSV|5.004005|5.003007|p
DEFSV_set|5.010001|5.003007|p
del_body_by_type|||Viu
delete_eval_scope|5.009004||xViu
delimcpy|5.004000|5.004000|n
delimcpy_no_escape|5.025005||cVni
DEL_NATIVE|5.017010||Viu
del_sv|5.005000||Viu
DEPENDS_PAT_MOD|5.013009||Viu
DEPENDS_PAT_MODS|5.013009||Viu
deprecate|5.011001||Viu
putc_unlocked|5.003007||Viu
putenv|5.005000||Viu
put_range|5.019009||Viu
putw|5.003007||Viu
pv_display|5.006000|5.003007|p
pv_escape|5.009004|5.003007|p
pv_pretty|5.009004|5.003007|p
pv_uni_display|5.007003|5.007003|
pWARN_ALL|5.006000||Viu
pWARN_NONE|5.006000||Viu
pWARN_STD|5.006000||Viu
#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
#if defined(NEED_pv_escape) || defined(NEED_pv_escape_GLOBAL)
#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)
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
lib/ExtUtils/PkgConfig.pm view on Meta::CPAN
my $package = _find($modulename);
$package && (_compare_version($version, $package->version) >= 0 )
? 1 : undef;
}
sub _escape
{
my($fragment) = "$_[0]";
$fragment =~ s/(\s)/\\$1/g;
$fragment;
}
sub cflags_only_I
{
my(undef, $modulename) = @_;
my $package = _find($modulename);
$package ? join(' ', map { _escape $_ } grep { $_->type eq 'I' } $package->list_cflags) . ' ' : undef;
}
sub cflags_only_other
{
my(undef, $modulename) = @_;
my $package = _find($modulename);
$package ? join(' ', map { _escape $_ } grep { $_->type ne 'I' } $package->list_cflags) . ' ' : undef;
}
sub libs_only_L
{
my(undef, $modulename) = @_;
my $package = _find($modulename);
$package ? join(' ', map { _escape $_ } grep { $_->type eq 'L' } $package->list_libs) . ' ' : undef;
}
sub libs_only_l
{
my(undef, $modulename) = @_;
my $package = _find($modulename);
$package ? join(' ', map { _escape $_ } grep { $_->type eq 'l' } $package->list_libs) . ' ' : undef;
}
sub libs_only_other
{
my(undef, $modulename) = @_;
my $package = _find($modulename);
$package ? join(' ', map { _escape $_ } grep { $_->type ne 'L' && $_->type ne 'l' } $package->list_libs) . ' ' : undef;
}
sub variable
{
my(undef, $modulename, $key) = @_;
view release on metacpan or search on metacpan
ptr_table_split|||
ptr_table_store|||
push_scope|||
put_byte|||
pv_display||5.006000|
pv_escape||5.009004|
pv_pretty||5.009004|
pv_uni_display||5.007003|
qerror|||
qsortsvu|||
re_croak2|||
view release on metacpan or search on metacpan
lib/Alvis/HTML.pm view on Meta::CPAN
alvisKeep W3's HTML 4.01 tags Alvis::Convert
is interested in
alvisRemove 4.01 tags Alvis::Convert is NOT interested in
obsolete HTML <4.01
proprietary Net-escape,Exploder,...
xhtml XHTML 1.1
wml WML
Note: alvisKeep + alvisRemove == remove all HTML 4.01 tags
view release on metacpan or search on metacpan
lib/Alvis/QueryFilter.pm view on Meta::CPAN
$self->{queryForm} =~ s/>/\>/g;
$self->{finalForm} = "";
# decode percentage notation
my $query_copy=$query;
$query_copy=uri_unescape($query_copy);
# parse the CQL
my $parse_tree;
eval
{
view release on metacpan or search on metacpan
lib/Alvis/Tana.pm view on Meta::CPAN
{
$str .= "\\";
}
else
{
$ERROR{$client} = "Invalid escaped char '$char' after '\\'";
!$debug || print STDERR "read_arb: $ERROR{$client}\n";
return undef;
}
}
elsif($char eq "\n")
view release on metacpan or search on metacpan
mason/autohandler view on Meta::CPAN
% for ( my $x = 0; $x < @t; $x++ ) {
<h3>\
% if ($x) {
<& href,
text => '«',
escape => 0,
path => 'move_table' . Alzabo::GUI::Mason::Config::mason_extension(),
query => { table => $t[$x]->name,
before => $t[$x - 1]->name,
schema => $s->name,
},
mason/autohandler view on Meta::CPAN
&>\
\
% if ( $x != $#t ) {
<& href,
text => '»',
escape => 0,
path => 'move_table' . Alzabo::GUI::Mason::Config::mason_extension(),
query => { table => $t[$x]->name,
after => $t[$x + 1]->name,
schema => $s->name,
},
mason/autohandler view on Meta::CPAN
% for ( my $x = 0; $x < @c; $x++ ) {
<h3>\
% if ($x) {
<& href,
text => '«',
escape => 0,
path => 'move_column' . Alzabo::GUI::Mason::Config::mason_extension(),
query => { column => $c[$x]->name,
before => $c[$x - 1]->name,
table => $c[$x]->table->name,
schema => $s->name,
mason/autohandler view on Meta::CPAN
% }
\
% if ( $x != $#c ) {
<& href,
text => '»',
escape => 0,
path => 'move_column' . Alzabo::GUI::Mason::Config::mason_extension(),
query => { column => $c[$x]->name,
after => $c[$x + 1]->name,
table => $c[$x]->table->name,
schema => $s->name,
view release on metacpan or search on metacpan
lib/Alzabo/SQLMaker.pm view on Meta::CPAN
SQL function. The second is a comparison operator of some sort, given
as a string. The third argument can be an C<Alzabo::Column> object, a
value (a number or string), or an C<Alzabo::SQLMaker> object. The
latter is treated as a subselect.
Values given as parameters will be properly quoted and escaped.
Some comparison operators allow additional parameters.
The C<BETWEEN> comparison operator requires a fourth argument. This
must be either an C<Alzabo::Column> object or a value.
view release on metacpan or search on metacpan
lib/Amazon/CloudFront/Thin.pm view on Meta::CPAN
my $path_content;
foreach my $path (@$paths) {
# leading '/' is required:
# http://docs.aws.amazon.com/AmazonCloudFront/latest/APIReference/InvalidationBatchDatatype.html
$path = '/' . $path unless index($path, '/') == 0;
# we wrap paths on CDATA so we don't have to escape them
if (index($path, ']]>') >= 0) {
$path =~ s/\]\]>/\]\]\]\]><![CDATA[>/gs; # split CDATA end token.
}
$path_content .= '<Path><![CDATA[' . $path . ']]></Path>'
}
view release on metacpan or search on metacpan
t/000-report-versions.t view on Meta::CPAN
# Error storage
$YAML::Tiny::errstr = '';
}
# Printable characters for escapes
my %UNESCAPES = (
z => "\x00", a => "\x07", t => "\x09",
n => "\x0a", v => "\x0b", f => "\x0c",
r => "\x0d", e => "\x1b", '\\' => '\\',
);
view release on metacpan or search on metacpan
lib/Amazon/MWS/Routines.pm view on Meta::CPAN
my $uri = $request->uri;
my %params = ($request->method eq 'GET' ) ? $uri->query_form : %form;
my $canonical = join '&', map {
my $param = uri_escape($_);
my $value = uri_escape($params{$_});
"$param=$value";
} sort keys %params;
my $path = $uri->path || '/';
my $string = $request->method . "\n"
view release on metacpan or search on metacpan
lib/Amazon/S3/SignedURLGenerator.pm view on Meta::CPAN
}
}
sub __urlencode {
my ($unencoded) = @_;
return uri_escape($unencoded, '^A-Za-z0-9_-');
}
1;
__END__
view release on metacpan or search on metacpan
lib/Amazon/S3/Thin/Resource.pm view on Meta::CPAN
package Amazon::S3::Thin::Resource;
use strict;
use warnings;
use URI::Escape qw(uri_escape_utf8);
sub new {
my $class = shift;
my $bucket = shift;
my $key = shift;
lib/Amazon/S3/Thin/Resource.pm view on Meta::CPAN
sub urlencode {
my ($self, $unencoded, $allow_slash) = @_;
my $allowed = 'A-Za-z0-9_\-\.';
$allowed = "$allowed/" if $allow_slash;
return uri_escape_utf8($unencoded, "^$allowed");
}
1;
view release on metacpan or search on metacpan
lib/Amazon/S3.pm view on Meta::CPAN
use URI;
use LWP::UserAgent::Determined;
use MIME::Base64 qw(encode_base64 decode_base64);
use Scalar::Util qw( reftype blessed );
use List::Util qw( any pairs );
use URI::Escape qw(uri_escape_utf8);
use XML::Simple qw(XMLin); ## no critic (Community::DiscouragedModules)
use parent qw(Class::Accessor::Fast);
__PACKAGE__->mk_accessors(
lib/Amazon/S3.pm view on Meta::CPAN
########################################################################
sub _urlencode {
########################################################################
my ( $self, $unencoded ) = @_;
return uri_escape_utf8( $unencoded, '^A-Za-z0-9\-\._~\x2f' ); ## no critic (RequireInterpolation)
}
1;
__END__
view release on metacpan or search on metacpan
lib/Amazon/SNS.pm view on Meta::CPAN
# build URI
my $uri = URI->new($self->service);
$uri->path('/');
$uri->query(join('&', map { $_ . '=' . URI::Escape::uri_escape_utf8($args->{$_}, '^A-Za-z0-9\-_.~') } sort keys %$args ));
# create signature
$args->{'Signature'} = hmac_sha256_base64(join("\n", 'POST', $uri->host, $uri->path, $uri->query), $self->secret);
# padding
while (length($args->{'Signature'}) % 4) {
$args->{'Signature'} .= '=';
}
# rewrite query string
$uri->query(join('&', map { $_ . '=' . URI::Escape::uri_escape_utf8($args->{$_}, '^A-Za-z0-9\-_.~') } sort keys %$args ));
my $response = LWP::UserAgent->new->post($self->service, 'Content' => $uri->query);
$self->status_code($response->code);
view release on metacpan or search on metacpan
lib/Amazon/SQS/Client.pm view on Meta::CPAN
########################################################################
sub _urlencode {
########################################################################
my ( $self, $value, $path ) = @_;
use URI::Escape qw(uri_escape_utf8);
my $escapepattern = '^A-Za-z0-9\-_.~';
if ($path) {
$escapepattern = $escapepattern . $SLASH;
}
return uri_escape_utf8( $value, $escapepattern );
}
#
# Computes RFC 2104-compliant HMAC signature.
#
view release on metacpan or search on metacpan
lib/Amazon/SQS/ProducerConsumer/Base.pm view on Meta::CPAN
use warnings;
use XML::Simple;
use LWP::UserAgent;
use Digest::HMAC_SHA1;
use URI::Escape qw(uri_escape_utf8);
use MIME::Base64 qw(encode_base64);
=head1 NAME
lib/Amazon/SQS/ProducerConsumer/Base.pm view on Meta::CPAN
$args{Timestamp} = sprintf "%04d-%02d-%02dT%02d:%02d:%02dZ", $t[5]+1900, $t[4]+1, @t[3,2,1,0];
$args{MaxNumberOfMessages} = delete $args{NumberOfMessages} if $args{NumberOfMessages};
my @params;
for ( sort keys %args ) {
push @params, join '=', $_, uri_escape_utf8( $args{$_}, "^A-Za-z0-9\-_.~" );
}
$me->{resource_path} =~ s|http://$me->{host}/||;
my $string_to_sign = join( "\n",
'POST', $me->{host}, $me->{resource_path}, join( '&', @params )
view release on metacpan or search on metacpan
lib/Amazon/SQS/Simple/Base.pm view on Meta::CPAN
$req->header('x-amz-security-token' => $creds->sessionToken);
}
$params->{AWSAccessKeyId} = $self->{AWSAccessKeyId};
my $escaped_params = $self->_escape_params($params);
my $payload = join('&', map { $_ . '=' . $escaped_params->{$_} } keys %$escaped_params);
$req->content($payload);
$req->header('Content-Length', length($payload));
my $signer = AWS::Signature4->new(-access_key => $self->{AWSAccessKeyId},
-secret_key => $self->{SecretKey});
lib/Amazon/SQS/Simple/Base.pm view on Meta::CPAN
return unless $self->{_Debug};
chomp($msg);
print {$self->{_Debug}} $msg . "\n\n";
}
sub _escape_params {
my ($self, $params) = @_;
my $escaped_params = {%$params};
# Need to escape + characters in signature
# see http://docs.amazonwebservices.com/AWSSimpleQueueService/2006-04-01/Query_QueryAuth.html
# Likewise, need to escape + characters in ReceiptHandle
# Many characters are possible in MessageBody:
# #x9 | #xA | #xD | [#x20-#xD7FF] | [#xE000-#xFFFD] | [#x10000-#x10FFFF]
# probably should encode all keys and values for consistency and future-proofing
my $to_escape = qr{^(?:Signature|MessageBody|ReceiptHandle)|\.\d+\.(?:MessageBody|ReceiptHandle)$};
foreach my $key (keys %$params) {
next unless $key =~ m/$to_escape/;
my $octets = encode('utf-8-strict', $params->{$key});
$escaped_params->{$key} = uri_escape($octets, $URI_SAFE_CHARACTERS);
}
return $escaped_params;
}
sub _escape_param {
my $params = shift;
my $single = shift;
my $multi_n = shift;
if ($params->{$single}) {
$params->{$single} = uri_escape($params->{$single});
} else {
foreach my $i (1..10) {
my $multi = $multi_n;
$multi =~ s/\.n\./\.$i\./;
if ($params->{$multi}) {
$params->{$multi} = uri_escape($params->{$multi});
} else {
last;
}
}
}
view release on metacpan or search on metacpan
lib/Ambrosia/Utils/Util.pm view on Meta::CPAN
use Carp;
use Ambrosia::error::Exceptions;
use base 'Exporter';
our @EXPORT_OK = qw/array_to_str escape_html unescape_html check_file_name pare_list pare/;
our $VERSION = 0.010;
sub array_to_str
{
return join '_', @_ == 1 && ref $_[0] ? @{$_[0]} : (@_);
}
sub escape_html
{
for ( shift )
{
return $_ unless $_;
s/&/&/sg;
lib/Ambrosia/Utils/Util.pm view on Meta::CPAN
s/"/"/sg;
return $_;
}
}
sub unescape_html
{
#my $latin = defined $self->{'.charset'}
# ? $self->{'.charset'} =~ /^(ISO-8859-1|WINDOWS-125[12]|KOI8-?R)$/i
# : 1;
for ( shift )
view release on metacpan or search on metacpan
Amethyst/Brain/Infobot/Module/Excuse.pm view on Meta::CPAN
We're upgrading /dev/null
The Usenet news is out of date
Our POP server was kidnapped by a weasel.
It's stuck in the Web.
Your modem doesn't speak English.
The mouse escaped.
All of the packets are empty.
The UPS is on strike.
Neutrino overload on the nameserver
Melting hard drives
Someone has messed up the kernel pointers
Amethyst/Brain/Infobot/Module/Excuse.pm view on Meta::CPAN
Borg implants are failing
Borg nanites have infested the server
error: one bad user found in front of screen
Please state the nature of the technical emergency
Internet shut down due to maintainance
Daemon escaped from pentagram
crop circles in the corn shell
sticky bit has come loose
Hot Java has gone cold
Cache miss - please take better aim next time
Hash table has woodworm
view release on metacpan or search on metacpan
lib/Amon2/Auth/Util.pm view on Meta::CPAN
our @EXPORT_OK = qw(parse_content);
# taken from OAuth::Lite2::Util
use Hash::MultiValue;
use URI::Escape qw(uri_unescape);
sub parse_content {
my $content = shift;
my $params = Hash::MultiValue->new;
for my $pair ( split /\&/, $content ) {
my ( $key, $value ) = split /\=/, $pair;
$key = uri_unescape( $key || '' );
$value = uri_unescape( $value || '' );
$params->add( $key, $value );
}
return $params;
}
view release on metacpan or search on metacpan
lib/Amon2/Plugin/L10N.pm view on Meta::CPAN
=head2 in your YourProj::Web::ViewFunction
use Text::Xslate ();
sub l {
my $string = shift;
my @args = map { Text::Xslate::html_escape($_) } @_; # escape arguments
Text::Xslate::mark_raw( YourProj->context->loc($string, @args) );
}
=head2 in your tmpl/foo.tt
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/Amon2/Plugin/Web/CpanelJSON.pm view on Meta::CPAN
x_permitted_cross_domain_policies => 'none',
x_xss_protection => '1; mode=block',
referrer_policy => 'no-referrer',
},
json_escape_filter => {
# Ref: https://cheatsheetseries.owasp.org/cheatsheets/XSS_Filter_Evasion_Cheat_Sheet.html
# Ref: (Japanese) http://www.atmarkit.co.jp/fcoding/articles/webapp/05/webapp05a.html
'+' => '\\u002b', # do not eval as UTF-7
'<' => '\\u003c', # do not eval as HTML
'>' => '\\u003e', # ditto.
lib/Amon2/Plugin/Web/CpanelJSON.pm view on Meta::CPAN
my ($class, $c, $conf) = @_;
$conf = do {
$conf ||= {};
for my $key (qw/secure_headers json_escape_filter json/) {
if (exists $conf->{$key} && !defined $conf->{$key}) {
$conf->{$key} = undef;
}
else {
$conf->{$key} = {
lib/Amon2/Plugin/Web/CpanelJSON.pm view on Meta::CPAN
for my $key (keys %{$json_args}) {
$json->$key($json_args->{$key})
}
}
my $escape_filter = $conf->{json_escape_filter} || {};
my $escape_target = '';
for my $key (keys %{$escape_filter}) {
if ($escape_filter->{$key}) {
$escape_target .= $key
}
}
return sub {
my ($data, $spec) = @_;
lib/Amon2/Plugin/Web/CpanelJSON.pm view on Meta::CPAN
}
}
my $output = $json->encode($data, $spec);
if ($escape_target && $escape_filter) {
$output =~ s!([$escape_target])!$escape_filter->{$1}!g;
}
return $output;
}
}
lib/Amon2/Plugin/Web/CpanelJSON.pm view on Meta::CPAN
x_permitted_cross_domain_policies => 'none',
x_xss_protection => '1; mode=block',
referrer_policy => 'no-referrer',
=item json_escape_filter
Escapes JSON to prevent XSS. Default is as follows:
'+' => '\\u002b',
'<' => '\\u003c',
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
author/assets.pl view on Meta::CPAN
warn "THIS METHOD WAS DEPRECATED";
my $files = $class->files;
$flavor->mkpath('static/bootstrap/');
while (my ($fname, $content) = each %$files) {
$flavor->write_file_raw("static/$fname", uri_unescape($content));
}
}
1;
...