view release on metacpan or search on metacpan
lib/Amp/Util/Strings.pm view on Meta::CPAN
$string =~ s/\R//g;
}
if ($opts->{trim}) {
$string = $self->trim($string);
}
$string = uri_escape($string);
}
return $string;
}
sub uriDecode {
my $self = shift;
my $string = shift;
if (defined $string) {
$string = uri_unescape($string);
}
return $string;
}
sub clean {
view release on metacpan or search on metacpan
t/features/doxyparse.feature view on Meta::CPAN
Given I am in t/samples/mlpack-3.0.0
When I run "analizo metrics ."
Then analizo must not emit a warning matching "Aborted"
And the exit status must be 0
Scenario: don't die parsing kdelibs warning about unknown escape character
Given I am in t/samples/kdelibs
When I run "analizo metrics ."
Then analizo must not emit a warning matching "Error"
And the exit status must be 0
view release on metacpan or search on metacpan
return $salt;
}
# Esconda a string
sub escape {
my ($str,$pat) = @_;
$pat = '^A-Za-z0-9 ' if ( $pat eq '' );
$str =~ s/([$pat])/sprintf("%%%02lx", unpack("c",$1))/ge;
$str =~ s/ /\+/g;
return $str;
}
# Decoda a string
sub unescape {
my ($str) = @_;
$str =~ s/\+/ /g;
$str =~ s/%(..)/pack("c", hex($1))/ge;
return $str;
}
=head2 replace_chars(string)
Replace all bad chars to html format
$var = &Ananke::Utils::escape("«¼TesTЪ");
=head2 getForm(x,x)
If you use modperl, this functions is very good
=head2 salt()
Return randomic string, used for generate password
=head2 escape(string)
URL encode
http://web/this has spaces' -> 'http://web/this%20has%20spaces'
$var = &Ananke::Utils::escape($ENV{'REQUEST_URI'});
=head2 unescape(string)
URL decode
http://web/this%20has%20spaces -> http://web/this has spaces'
$var = &Ananke::Utils::unescape("http://web/this%20has%20spaces");
=head2 clean(string)
Convert enter to <br> and 2 enters to <p>
view release on metacpan or search on metacpan
Compiler/lexer.c view on Meta::CPAN
YY_BREAK
case 24:
YY_RULE_SETUP
#line 77 "lexer.yy"
{
amd_yywarnf("Bad hexadecimal escape %s", amd_yytext);
sv_catpv(amd_yylval->sv, amd_yytext);
}
YY_BREAK
case 25:
YY_RULE_SETUP
#line 81 "lexer.yy"
{
amd_yywarnf("Bad octal escape %s", amd_yytext);
sv_catpv(amd_yylval->sv, amd_yytext);
}
YY_BREAK
case 26:
YY_RULE_SETUP
#line 85 "lexer.yy"
{
warn("Unknown escape character \\%c",amd_yytext[1]);
sv_catpvn(amd_yylval->sv, (amd_yytext + 1), 1);
}
YY_BREAK
case 27:
YY_RULE_SETUP
view release on metacpan or search on metacpan
lib/Android/ElectricSheep/Automator.pm view on Meta::CPAN
use Image::PNG;
use XML::LibXML;
use XML::LibXML::XPathContext;
use Text::ParseWords;
use Data::Roundtrip qw/perl2dump perl2json no-unicode-escape-permanently/;
use Android::ElectricSheep::Automator::DeviceProperties;
use Android::ElectricSheep::Automator::AppProperties;
use Android::ElectricSheep::Automator::ScreenLayout;
use Android::ElectricSheep::Automator::XMLParsers;
lib/Android/ElectricSheep/Automator.pm view on Meta::CPAN
C<< script/electric-sheep-open-app.pl --configfile config/myapp.conf --name com.android.settings >>
C<< script/electric-sheep-open-app.pl --configfile config/myapp.conf --keyword 'clock' >>
Note that it constructs a regular expression from escaped user input.
=item B<C<script/electric-sheep-close-app.pl>>
Close an app by its exact name or a keyword matching it (uniquely):
C<< script/electric-sheep-close-app.pl --configfile config/myapp.conf --name com.android.settings >>
C<< script/electric-sheep-close-app.pl --configfile config/myapp.conf --keyword 'clock' >>
Note that it constructs a regular expression from escaped user input.
=item B<C<script/electric-sheep-dump-ui.pl>>
Dump the current screen UI as XML to STDOUT or to a file:
C<< script/electric-sheep-dump-ui.pl --configfile config/myapp.conf --output ui.xml >>
Note that it constructs a regular expression from escaped user input.
=item B<C<script/electric-sheep-dump-current-location.pl>>
Dump the GPS / geo-location position for the device from its various providers, if enabled.
view release on metacpan or search on metacpan
lib/Anki/Import.pm view on Meta::CPAN
next;
}
# handle lines differently based on if we are preserving whitespace
if ($ws_mode) {
# escape characters in preserved text
if ($line =~ /^`\s*$/) {
$$last_line .= '<br>';
next;
}
$line =~ s/(?<!\\)`/\\`/g;
lib/Anki/Import.pm view on Meta::CPAN
my $field = join ' ', @lines;
# clean up dangling breaks
$field =~ s/<br><\/div>/<\/div>/g;
# handle formatting codes in text, preserve escaped characters
# preserve angle brackets between backticks
my $parts = [ split /[^\\]`|^`/, $field, -1];
my $count = 0;
lib/Anki/Import.pm view on Meta::CPAN
my $out = join ("\t", @fields);
# create cloze fields
my $cloze_count = 1;
# TODO: should probably handle escaped braces just in case
while ($out =~ /\{\{\{(.*?)}}}/) {
$out =~ s/\{\{\{(.*?)}}}/{{c${cloze_count}::$1}}/s;
$cloze_count++;
}
logd($out, 'out');
view release on metacpan or search on metacpan
lib/AnnoCPAN/PodToHtml.pm view on Meta::CPAN
$ret;
}
# trims surrounding whitespace, replaces interior whitespace by underscores,
# removes HTML tags, and URI-escapes non-word characters
sub filter_anchor {
my ($s) = @_;
$s = lc $s;
for ($s) {
s/^\s+//;
lib/AnnoCPAN/PodToHtml.pm view on Meta::CPAN
my $loc = $sect ? "#" . filter_anchor($sect) : '';
return qq{\0<a href="$base$name$loc"\0>$text\0</a\0>};
}
{
my %escapes = (
lt => "<",
gt => '>',
verbar => '|',
sol => '/',
);
sub ac_i_E {
my $ret;
$ret = $escapes{$_[1]} and return $ret;
$_[1] =~ /^\d+$/ and return chr($_[1]);
$_[1];
}
}
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
src/ppport.h view on Meta::CPAN
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
src/ppport.h view on Meta::CPAN
ptr_table_store||5.009005|
push_scope|||
put_byte|||
put_latin1_charclass_innards|||
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|
src/ppport.h view on Meta::CPAN
#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;
src/ppport.h view on Meta::CPAN
wrote++;
}
if (flags & PERL_PV_ESCAPE_FIRSTCHAR)
break;
}
if (escaped != NULL)
*escaped= pv - str;
return SvPVX(dsv);
}
#endif
#endif
src/ppport.h view on Meta::CPAN
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 == '"')
src/ppport.h view on Meta::CPAN
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/Antsy.pm view on Meta::CPAN
=encoding utf8
=head1 NAME
Antsy - Streaming ANSI escape sequences
=head1 SYNOPSIS
use Antsy qw(:all);
lib/Antsy.pm view on Meta::CPAN
( $r, $b, $g );
_seq( 'm', $i, 2, $r, $g, $b );
}
# _seq forms the ANSI escape sequence. There's the start, some arguments
# separated by `;`, then a string for the argument
sub _seq ( $command, @args ) { join '', "\x1b[", join( ';', @args ), $command }
sub _encode_seq ( $string ) {
local $_ = $string;
lib/Antsy.pm view on Meta::CPAN
OSC 1337 ; Copy=:[base64] ST
Where [base64] is the base64-encoded string to copy to the pasteboard.
=item * report_variable
Each iTerm2 session has internal variables (as described in Scripting Fundamentals). This escape sequence reports a variable's value:
OSC 1337 ; ReportVariable=[base64] ST
Where [base64] is a base64-encoded variable name, like session.name. It responds with:
OSC 1337 ; ReportVariable=[base64] ST
lib/Antsy.pm view on Meta::CPAN
https://iterm2.com/documentation-images.html
The width and height are given as a number followed by a unit, or the word "auto".
iTerm2 extends the xterm protocol with a set of proprietary escape sequences. In general, the pattern is:
ESC ] 1337 ; key = value ^G
Whitespace is shown here for ease of reading: in practice, no spaces should be used.
For file transfer and inline images, the code is:
lib/Antsy.pm view on Meta::CPAN
=head1 SEE ALSO
=over 4
=item * Everything you never wanted to know about ANSI escape codes https://notes.burke.libbey.me/ansi-escape-codes/
=item * https://gist.github.com/fnky/458719343aabd01cfb17a3a4f7296797
=item * iTerm2 ANSI codes https://iterm2.com/documentation-escape-codes.html
=back
=head1 SOURCE AVAILABILITY
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/Any/Renderer/UrlEncoded.pm view on Meta::CPAN
TRACE ( "Rendering data as UrlEncoded" );
my $flat = Hash::Flatten::flatten ( $data, $self->{options}{FlattenOptions} );
DUMP ( $flat );
my $rv = join ( $self->{delim}, map { URI::Escape::uri_escape($_) . "=" . URI::Escape::uri_escape($flat->{$_}) } keys %$flat );
TRACE($rv);
return $rv;
}
lib/Any/Renderer/UrlEncoded.pm view on Meta::CPAN
my $bool = Any::Renderer::UrlEncoded::requires_template ( $format );
=head1 DESCRIPTION
Any::Renderer::UrlEncoded renders a Perl data structure as a URI encoded string.
Keys and values are escaped via URI::Escape::uri_escape. For example:
perl -MAny::Renderer -e "print Any::Renderer->new('UrlEncoded')->render({a => 1, b => [2,3]})"
results in:
view release on metacpan or search on metacpan
lib/Any/URI/Escape.pm view on Meta::CPAN
Any::URI::Escape - Load URI::Escape::XS preferentially over URI::Escape
=cut
use base 'Exporter';
our @EXPORT = qw( uri_escape uri_unescape );
BEGIN {
eval 'require URI::Escape::XS';
lib/Any/URI/Escape.pm view on Meta::CPAN
$pkg = 'URI::Escape::XS';
}
no strict 'refs';
my $class = __PACKAGE__;
*{"$class\::uri_escape"} = *{"$pkg\::uri_escape"};
*{"$class\::uri_unescape"} = *{"$pkg\::uri_unescape"};
}
1;
=head1 SYNOPSIS
use Any::URI::Escape;
$escaped_url = uri_escape($url);
# URI::Escape::XS will be used instead of URI::Escape if it is installed.
=head1 DESCRIPTION
view release on metacpan or search on metacpan
lib/AnyData.pm view on Meta::CPAN
}
$flags->{del_marker} = $del_marker;
$flags->{records} ||= $flags->{data};
$flags->{field_sep} ||= $flags->{sep_char} ||= $flags->{ad_sep_char};
$flags->{quote} ||= $flags->{quote_char} ||= $flags->{ad_quote_char};
$flags->{escape} ||= $flags->{escape_char}||= $flags->{ad_escape_char};
$flags->{record_sep}||= $flags->{eol} ||= $flags->{ad_eol};
# $flags->{skip_first_row}
my $parser = $parser_name->new ($flags);
if ($parser->{col_names} && !$col_names) {
my @cols;
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
go to https://github.com/aanoaa/AnyEvent-HTTP-ScopedClient/issues for the roadmap and known issues.
0.0.3 Mon Oct 15 14:54:35 2012 KST
- bug fix
- type check before execute callback
- escape character at POD
- fix wrong info README
0.0.2 Thu Oct 11 16:04:29 2012 KST
- independent `AnyEvent::Campfire` for base class
- fixed bug BUILD must return $self
view release on metacpan or search on metacpan
examples/server.pl view on Meta::CPAN
$log->info("received: $message");
# register who made the request
$requests{$1} = $handle;
# chrome isn't connected
if(not scalar keys %chromi) {
my $reply = "Chromi $1 error " . uri_escape(encode_json({ error => 'chrome not connected'}));
my $frame = Protocol::WebSocket::Frame->new($reply);
$handle->push_write($frame->to_bytes);
}
else {
for my $key (keys %chromi) {
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/AnyEvent/CouchDB/Database.pm view on Meta::CPAN
no warnings 'once';
use JSON;
use AnyEvent::HTTP;
use AnyEvent::CouchDB::Exceptions;
use Data::Dump::Streamer;
use URI::Escape qw( uri_escape uri_escape_utf8 );
use IO::All;
use MIME::Base64;
our $default_json;
lib/AnyEvent/CouchDB/Database.pm view on Meta::CPAN
if (defined($options) && keys %$options) {
for my $name (keys %$options) {
next if ($name eq 'error' || $name eq 'success' || $name eq 'headers');
my $value = $options->{$name};
if ($name eq 'key' || $name eq 'startkey' || $name eq 'endkey') {
$value = uri_escape( $json->encode($value) );
} else {
$value = uri_escape_utf8($value);
}
if ($name eq 'group' || $name eq 'reduce' || $name eq 'descending' || $name eq 'include_docs') {
$value = $value
? ( ($value eq 'false') ? 'false' : 'true' )
: 'false';
lib/AnyEvent/CouchDB/Database.pm view on Meta::CPAN
AnyEvent::CouchDB::Exception::UndefinedDocument->throw(
"An undefined id was passed to open_doc()."
);
}
my ( $cv, $cb ) = cvcb( $options, undef, $self->json_encoder );
my $id = uri_escape_utf8($doc_id);
if ( $id =~ qr{^_design%2F} ) {
$id =~ s{%2F}{/}g;
}
http_request(
GET => $self->uri . $id . $query->($options),
lib/AnyEvent/CouchDB/Database.pm view on Meta::CPAN
$method = 'POST';
$uri = $self->uri;
}
else {
$method = 'PUT';
$uri = $self->uri . uri_escape_utf8( $doc->{_id} );
}
http_request(
$method => $uri . $query->($options),
headers => $self->_build_headers($options),
body => $self->json($doc),
lib/AnyEvent/CouchDB/Database.pm view on Meta::CPAN
my ( $self, $doc, $options ) = @_;
die("Document is missing _id!") unless ( defined $doc->{_id} );
my ( $cv, $cb ) = cvcb( $options, undef, $self->json_encoder );
http_request(
DELETE => $self->uri
. uri_escape_utf8( $doc->{_id} )
. $query->( { rev => $doc->{_rev} } ),
headers => $self->_build_headers($options),
$cb
);
$cv;
lib/AnyEvent/CouchDB/Database.pm view on Meta::CPAN
};
}
my ( $cv, $cb ) = cvcb( $options, 201, $self->json_encoder );
http_request(
PUT => $self->uri
. uri_escape_utf8( $doc->{_id} ) . "/"
. uri_escape_utf8($attachment)
. $query->( { rev => $doc->{_rev} } ),
headers => $self->_build_headers($options),
body => $body,
$cb
);
lib/AnyEvent/CouchDB/Database.pm view on Meta::CPAN
}
};
http_request(
GET => $self->uri
. uri_escape_utf8( $doc->{_id} ) . "/"
. uri_escape_utf8($attachment),
headers => $self->_build_headers($options),
$cb
);
$cv;
}
lib/AnyEvent/CouchDB/Database.pm view on Meta::CPAN
};
}
my ( $cv, $cb ) = cvcb( $options, undef, $self->json_encoder );
http_request(
DELETE => $self->uri
. uri_escape_utf8( $doc->{_id} ) . "/"
. uri_escape_utf8($attachment)
. $query->( { rev => $doc->{_rev} } ),
headers => $self->_build_headers($options),
$cb
);
$cv;
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
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
- Fix bug in where socket handle wasn't being properly
destroyed after use (gh#32)
0.18 2021-10-28 09:18:40 -0600
- Fix test that could fail on some platforms because
regexp wasn't correctly escaped (gh#31)
0.17 2021-07-12 08:43:17 -0600
- Fix bug related to space being in %PATH% on Windows
- Another fix on Perl where test suite could fail if
installed from a different volume than the temp
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
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/AnyEvent/Google/PageRank.pm view on Meta::CPAN
return $cb->(undef, {Status => 695, Reason => 'malformed url'}) if $url !~ m[^https?://]i;
my $ch = '6' . WWW::Google::PageRank::_compute_ch_new('info:' . $url);
my $query = 'http://' . ($self->{host}||DEFAULT_HOST) . '/tbr?client=navclient-auto&ch=' . $ch .
'&ie=UTF-8&oe=UTF-8&features=Rank&q=info:' . uri_escape($url);
my $opts = {};
if (ref($self) eq 'HASH') {
# call from rank_get
$opts = $self;
view release on metacpan or search on metacpan
lib/AnyEvent/Impl/POE.pm view on Meta::CPAN
POE cannot guarantee the order of callback invocation for timers, and
usually gets it wrong. That is, if you have two timers, one timing out
after another (all else being equal), the callbacks might be called in
reverse order.
How one manages to even implement stuff that way escapes me.
=item Child watchers
POE offers child watchers - which is a laudable thing, as few event loops
do. Unfortunately, they cannot even implement AnyEvent's simple child
lib/AnyEvent/Impl/POE.pm view on Meta::CPAN
As a workaround, AnyEvent::Impl::POE will take advantage of undocumented
behaviour in POE::Kernel to catch the status of all child processes, but
it cannot guarantee delivery.
How one manages to have such a glaring bug in an event loop after ten
years of development escapes me.
(There are more annoying bugs, for example, POE runs C<waitpid>
unconditionally at finaliser time, so your program will hang until all
child processes have exited.)