view release on metacpan or search on metacpan
lib/App/CekBpom.pm view on Meta::CPAN
unless (defined $search_type_num) {
return [400, "Unknown search_type '$search_type'"];
}
require URI::Escape;
my $query_enc = URI::Escape::uri_escape($query);
my @rows;
my $page_num = 0;
my $num_results = 100;
my ($result_start, $result_end);
view release on metacpan or search on metacpan
lib/App/Cerberus/Client.pm view on Meta::CPAN
#===================================
my $self = shift;
my %params = @_;
my %failed;
my $qs = '?' . join '&',
map { uri_escape($_) . '=' . uri_escape( $params{$_} ) }
keys %params;
my $servers = $self->{servers};
while (1) {
view release on metacpan or search on metacpan
lib/App/Changelog2x.pm view on Meta::CPAN
$xsltc = $self->resolve_template($style)
or die "Could not resolve style '$style' to a file";
$style = $xsltc;
}
# First copy over and properly setup/escape the parameters, so that XSLT
# understands them.
%params = map { XML::LibXSLT::xpath_to_string($_ => $params->{$_}) }
(keys %$params);
# Do the steps of parsing XML documents, creating stylesheet engine and
view release on metacpan or search on metacpan
lib/App/Chart/Barchart.pm view on Meta::CPAN
(__x('Barchart quote {symbol} ({barchart_commodity})',
symbol => "$commodity$suffix",
barchart_commodity => $barchart_commodity));
my $url = 'http://www2.barchart.com/ifutpage.asp?code=BSTK&sym='
. URI::Escape::uri_escape ($barchart_commodity);
my $resp = App::Chart::Download->get ($url,
cookie_jar => cookie_jar(),
referer => $url);
my $h = ifutpage_parse ($commodity, $suffix, $resp);
lib/App/Chart/Barchart.pm view on Meta::CPAN
(__x('Barchart five day {symbol} ({barchart_symbol})',
symbol => $symbol,
barchart_symbol => $barchart_symbol));
}
my $url = FIVEDAY_URL_BASE . URI::Escape::uri_escape ($barchart_symbol);
my $resp = App::Chart::Download->get ($url,
cookie_jar => cookie_jar(),
referer => $url);
my $h = fiveday_parse ($symbol, $resp);
lib/App/Chart/Barchart.pm view on Meta::CPAN
App::Chart::Download::status
(__x('Barchart intraday page {symbol} {mode}',
symbol => $symbol,
mode => $mode));
my $url = 'http://www.barchart.com/chart.php?sym='
. URI::Escape::uri_escape (symbol_to_barchart ($symbol))
. $intraday_mode_to_data{$mode};
App::Chart::Download::verbose_message ("Intraday page", $url);
my $jar = cookie_jar();
my $resp = App::Chart::Download->get ($url,
view release on metacpan or search on metacpan
# Cpp std::string for const char *
string myStr;
myStr.c_str();
# Raw string in CPP. Do not need to escape characters.
# R"ABC(TEXT)ABC";
#
R"sql(CREATE TABLE IF NOT EXISTS version (
version INTEGER
);)sql"
#############################################################
## Linux Commands - stty
#############################################################
# View the control character escapes
stty -a
# Fix terminal after doing a hard exit in a script (control-C).
reset
tset
YELLOW='\033[00;33m'
VIOLET='\033[00;35m'
TEAL='\033[00;36m'
GREY='\033[00;37m'
# View color ansi escapes with less (like Vim)
less -R file
# Make xterm text color bold
BOLD='\033[1m'
#
# IFS=$'\n': This sets the Internal Field Separator (IFS) to newline (\n).
This ensures that spaces in the output of _my_function won't cause
word splitting.
# read -r -d '' -a v: This command reads input into the array variable v.
# -r: Prevents backslash escapes from being interpreted.
# -d '': Delimiter option set to an empty string. This ensures that
read reads until it encounters a null byte (this effectively
reads the whole output as a single line).
# -a v: Assigns the input to the array variable v.
# < <(_my_function): This redirects the output of _my_function to the
#############################################################
## Perl Modules - Term::ANSIColor
#############################################################
# Proper way to color text in perl instead of hardcoding
# escape codes (which are not all the same on all devices).
perl -MTerm::ANSIColor -E 'say colored ($_,$_) for qw( RED YELLOW GREEN ON_BRIGHT_BLACK )'
# Color an remote color (uncolor).
perl -MTerm::ANSIColor=colored,colorstrip -E 'say length colorstrip(colored("HEY", "YELLOW"))'
3
# View man page (Vim,help)
:h
# Search for spaces (Vim)
/\s\+
# \+ since all are taken literally unless escaped
# If accidentally pressed <Control> + s (Vim)
# that will freeze the terminal. This is due to "flow control"
# Do this to undo the effect:
<Control> + q
view release on metacpan or search on metacpan
lib/Chronicle/Plugin/Generate/LowerCase.pm view on Meta::CPAN
mode => oct("755"),
} );
}
my $out =
$config->{ 'output' } . "/" . $entry->{ 'link' }->unescaped;
$config->{ 'verbose' } &&
print "Writing redirection to $out for mixed-case post " .
lc( $entry->{ 'link' } ) . "\n";
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/Codeowners/Formatter/CSV.pm view on Meta::CPAN
$self->{text_csv} ||= do {
eval { require Text::CSV } or die "Missing dependency: Text::CSV\n";
my %options;
$options{escape_char} = $self->escape_char if $self->escape_char;
$options{quote} = $self->quote if $self->quote;
$options{sep} = $self->sep if $self->sep;
if ($options{sep} && $options{sep} eq ($options{quote} || '"')) {
die "Invalid separator value for CSV format.\n";
}
lib/App/Codeowners/Formatter/CSV.pm view on Meta::CPAN
}
sub sep { $_[0]->{sep} || $_[0]->format }
sub quote { $_[0]->{quote} }
sub escape_char { $_[0]->{escape_char} }
1;
__END__
lib/App/Codeowners/Formatter/CSV.pm view on Meta::CPAN
=head2 quote
Get the value used for L<Text::CSV/quote>.
=head2 escape_char
Get the value used for L<Text::CSV/escape_char>.
=head1 BUGS
Please report any bugs or feature requests on the bugtracker website
L<https://github.com/chazmcgarvey/git-codeowners/issues>
view release on metacpan or search on metacpan
lib/App/Colorist/Colorizer.pm view on Meta::CPAN
Checks to see if the ruleset file has changed since it's last load and calls L<load_ruleset_file> to reload the configuration if it has.
=head2 print_reset_line
Prints the escape code to reset everything to the terminal default.
=head2 get_fg
my $code = $c->get_fg(10);
Returns the escape code required to change the foreground color to the given color number.
=head2 get_bg
my $code = $self->get_bg(10);
Returns the escape code that will change the background color to the given color code.
=head2 gray
my $number = $c->gray(10);
lib/App/Colorist/Colorizer.pm view on Meta::CPAN
my $code = $c->fg('blue');
my $code = $c->fg(10);
my $code = $c->fg([ 8 ]);
my $code = $c->fg([ 1, 2, 3 ]);
Returns the escape code for changing the foreground color to the given color identifier.
=head2 bg
my $code = $c->bg('blue');
my $code = $c->bg(10);
my $code = $c->bg([ 8 ]);
my $code = $c->bg([ 1, 2, 3 ]);
Returns the escape code for changing the background color to the given color identifier.
=head2 c
my $code = $c->c('rufus');
Given the name of a color defined in the colorset, returns the escape codes defined for that color to change the background and foreground as configured.
=head2 run
Runs the colorization process to colorize input and send that to the output.
view release on metacpan or search on metacpan
lib/App/perlstyle.pod view on Meta::CPAN
Example: Eudora 3.0.6 wraps a solid, single line of 80 non-whitespace
characters (i.e. ######...#####) at character 76. If there are
spaces in the line, it allows lines up to character 78 before wrapping
the last words down to the next line. If sources have no more than
77 characters in a line, a "diff -u" patch will add a column, and the
lines will escape being folded.
=head2 Blank Space
No space before a semicolon that closes a statement.
lib/App/perlstyle.pod view on Meta::CPAN
I like it. I don't need to worry about messing
with lots of print statements and lining them up.
EOT
Just remember that unless you put single quotes around your here-doc
token (<<'EOT'), the text will be interpolated, so escape any "$" or "@"
as needed.
=head1 REQUIREMENTS RFC AND CODING PROCEDURE
view release on metacpan or search on metacpan
perlcritic.rc view on Meta::CPAN
[-RegularExpressions::ProhibitComplexRegexes]
# Use named character classes instead of explicit character lists.
[-RegularExpressions::ProhibitEnumeratedClasses]
# Use character classes for literal meta-characters instead of escapes.
[-RegularExpressions::ProhibitEscapedMetacharacters]
# Use `eq' or hash instead of fixed-pattern regexps.
[RegularExpressions::ProhibitFixedStringMatches]
view release on metacpan or search on metacpan
lib/App/Critique/Command/process.pm view on Meta::CPAN
);
if ( $what_now eq 'c' ) {
info(HR_LIGHT);
$commit_msg = prompt_str( BOLD('Please write a commit message') );
$commit_msg =~ s/\\n/\n/g; # un-escape any newlines ...
goto CHOOSE;
}
elsif ( $what_now eq 'a' ) {
info(HR_LIGHT);
$commit_msg .= "\n\n" . prompt_str( BOLD('Please append the commit message') );
view release on metacpan or search on metacpan
lib/App/CryptoCurrencyUtils.pm view on Meta::CPAN
next CURRENCY;
}
require Browser::Open;
my $url = "https://masternodes.online/currencies/" .
URI::Escape::uri_escape($cur->{code})."/";
my $err = Browser::Open::open_browser($url);
return [500, "Can't open browser for '$url'"] if $err;
}
[200];
}
view release on metacpan or search on metacpan
lib/App/DBBrowser/GetContent/Parse.pm view on Meta::CPAN
use Encode qw( decode );
use Encode::Locale qw();
#use Spreadsheet::Read qw( ReadData rows ); # required
#use String::Unescape qw( unescape ); # required
#use Text::CSV_XS qw(); # required
use Term::Choose qw();
use Term::Choose::LineFold qw( line_fold );
use Term::Choose::Screen qw( clear_screen );
lib/App/DBBrowser/GetContent/Parse.pm view on Meta::CPAN
my ( $sf, $sql, $fh ) = @_;
my $ax = App::DBBrowser::Auxil->new( $sf->{i}, $sf->{o}, $sf->{d} );
my $tc = Term::Choose->new( $sf->{i}{tc_default} );
$sf->__print_waiting_str;
seek $fh, 0, 0;
require String::Unescape;
my $options = {
map { $_ => String::Unescape::unescape( $sf->{o}{csv_in}{$_} ) }
# grep length: keep the default value if the option is set to ''
grep { length $sf->{o}{csv_in}{$_} }
keys %{$sf->{o}{csv_in}}
};
require Text::CSV_XS;
lib/App/DBBrowser/GetContent/Parse.pm view on Meta::CPAN
my $op_rw = App::DBBrowser::Options::ReadWrite->new( $sf->{i}, $sf->{o} );
$op->config_groups( [ { name => 'group_import', text => "- Import" } ], $sf->{i}{plugin} );
$op_rw->read_config_file( $sf->{i}{driver}, $sf->{i}{plugin} );
return -1;
}
require String::Unescape;
$/ = String::Unescape::unescape( $irs[$idx-@pre] );
$sf->__print_waiting_str;
seek $fh, 0, 0;
my @rows = grep { ! /^\s+\z/ } <$fh>;
chomp @rows;
my $fields_set = [ [ 'Col count', ], [ 'Sep width', ], ];
view release on metacpan or search on metacpan
0.022 2019-09-03 14:24:05-05:00 America/Chicago
- require perl v5.14 for development
- fill out more authoring and development dependencies metadata
- remove perlbrew release tests
- add release tests for changelog and features for perl v5.12
- escape possible infinite recursion if neither DSN nor schema are specified
0.021 2014-12-18 04:52:22+00:00 UTC (TRIAL RELEASE)
- #9 remove experimental smartmatch operators (HAARG++, SREZIC++)
- #11 fix POD encoding (SROMANV++)
0.020 2011-09-15 15:32:37 America/New_York
- rename to App-DBCritic
view release on metacpan or search on metacpan
lib/App/DBI/Loader.pm view on Meta::CPAN
use Getopt::Std;
use Getopt::Config::FromPod;
use Pod::Usage;
use DBI;
use String::Unescape;
sub run
{
shift if @_ && eval { $_[0]->isa(__PACKAGE__) };
local (@ARGV) = @_;
lib/App/DBI/Loader.pm view on Meta::CPAN
pod2usage(-verbose => 2) if exists $opts{h};
pod2usage(-msg => 'At least 2 arguments MUST be specified', -verbose => 0, -exitval => 1) if @ARGV < 2;
push @ARGV, '-' if @ARGV == 2;
$opts{t} ||= '';
my $sep = String::Unescape->unescape($opts{t}) || ',';
my $dbstr = shift @ARGV;
my $table = shift @ARGV;
my $dbh = DBI->connect($dbstr, $opts{u} || '', $opts{p} || '') or die;
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/Dapper.pm view on Meta::CPAN
INCLUDE_PATH => $self->{layout},
ANYCASE => 1,
ENCODING => 'utf8',
#STRICT => 1,
FILTERS => {
'xml_escape' => \&App::Dapper::Filters::xml_escape,
'date_to_xmlschema' => \&App::Dapper::Filters::date_to_xmlschema,
'replace_last' => \&App::Dapper::Filters::replace_last,
'smart' => \&App::Dapper::Filters::smart,
'json' => \&App::Dapper::Filters::json,
},
view release on metacpan or search on metacpan
scripts/dex view on Meta::CPAN
favourite language: Perl
--- # Document two is a sequence
- plain string
- 'in single quotes'
- "in double quotes we have escapes! like \t and \n"
- | # a literal block scalar
line1
line2
- > # a folded block scalar
this is all one
scripts/dex view on Meta::CPAN
"\x85" => '\N',
"\xa0" => '\_',
);
my $control_re = '\x00-\x08\x0b\x0c\x0e-\x1f\x7f-\x84\x86-\x9f\x{d800}-\x{dfff}\x{fffe}\x{ffff}\x{2028}\x{2029}\x85\xa0';
my %to_escape = (
"\n" => '\n',
"\t" => '\t',
"\r" => '\r',
'\\' => '\\\\',
'"' => '\\"',
%control,
);
my $escape_re = $control_re . '\n\t\r';
my $escape_re_without_lb = $control_re . '\t\r';
sub scalar_event {
DEBUG and warn __PACKAGE__.':'.__LINE__.": +++ scalar_event\n";
my ($self, $info) = @_;
scripts/dex view on Meta::CPAN
}
}
elsif ($style == YAML_PLAIN_SCALAR_STYLE) {
if (not length $value) {
}
elsif ($value =~ m/[$escape_re_without_lb]/) {
$style = YAML_DOUBLE_QUOTED_SCALAR_STYLE;
}
elsif ($value eq "\n") {
$style = YAML_DOUBLE_QUOTED_SCALAR_STYLE;
}
scripts/dex view on Meta::CPAN
$value .= "\n";
}
}
}
else {
$value =~ s/([$escape_re"\\])/$to_escape{ $1 } || sprintf '\\u%04x', ord($1)/eg;
$value = '"' . $value . '"';
}
DEBUG and warn __PACKAGE__.':'.__LINE__.": (@$stack)\n";
my $yaml = '';
view release on metacpan or search on metacpan
lib/App/DistSync/Util.pm view on Meta::CPAN
unless (($file, $args) = /^'(\\[\\']|.+)+'\s*(.*)/) {
($file, $args) = /^(^\s*\!\!perl\/regexp\s*\S+)\s*(.*)/;
}
} else {
# filename may contain spaces if enclosed in ''
# (in which case, \\ and \' are escapes)
if (($file, $args) = /^'(\\[\\']|.+)+'\s*(.*)/) {
$file =~ s/\\([\\'])/$1/g;
} else {
($file, $args) = /^(\S+)\s*(.*)/;
}
view release on metacpan or search on metacpan
lib/App/DocKnot/Generate.pm view on Meta::CPAN
sub _code_for_to_text {
my ($self) = @_;
my $to_text = sub {
my ($text) = @_;
# Remove triple backticks but escape all backticks inside them.
$text =~ s{ ``` \w* (\s .*?) ``` }{
my $text = $1;
$text =~ s{ [\`] }{``}xmsg;
$text;
}xmsge;
lib/App/DocKnot/Generate.pm view on Meta::CPAN
my ($text) = @_;
# Escape all backslashes.
$text =~ s{ \\ }{\\\\}xmsg;
# Rewrite triple backticks to \pre blocks and escape backticks inside
# them so that they're not turned into \code blocks.
$text =~ s{ ``` \w* (\s .*?) ``` }{
my $text = $1;
$text =~ s{ [\`] }{``}xmsg;
'\pre[' . $1 . ']';
view release on metacpan or search on metacpan
t/dispatch/employee.t view on Meta::CPAN
req( $test, 404, 'root', 'GET', "$base/53432" );
req( $test, 403, 'demo', 'GET', "$base/53432" );
req( $test, 404, 'root', 'GET', "$base/heathledger" );
# this one triggers "wide character in print" warnings
#req( $test, 404, 'root', 'GET', "$base/" . uri_escape_utf8('/employee/nick//////áěěoěšÄqwšášÄšýš..-...-...-..-.00') );
note( 'single-character nicks' );
$status = req( $test, 404, 'root', 'GET', "$base/4" );
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/DrivePlayer/MetadataFetcher.pm view on Meta::CPAN
use App::DrivePlayer::Setup;
use File::Temp qw( tempfile );
use HTTP::Tiny;
use JSON::PP qw( decode_json );
use URI::Escape qw( uri_escape_utf8 );
use Time::HiRes qw( sleep time usleep );
my $log = do { eval { require Log::Log4perl; Log::Log4perl->get_logger(__PACKAGE__) } };
Readonly my $USER_AGENT => 'DrivePlayer/1.0 (https://github.com/mvsjes2/drive_player)';
lib/App/DrivePlayer/MetadataFetcher.pm view on Meta::CPAN
sub _fetch_itunes {
my ($self, $title, $artist, $album) = @_;
my $term = join(' ', grep { length } $artist, $title);
my $url = $ITUNES_BASE . '?term=' . uri_escape_utf8($term)
. '&entity=song&media=music&limit=5';
my $data = $self->_get_plain($url) or return;
my $results = $data->{results} or return;
return unless @$results;
lib/App/DrivePlayer/MetadataFetcher.pm view on Meta::CPAN
push @attempts, 'recording:' . _mb_q($title) . '~ AND artist:' . _mb_q($artist) . '~'
if $artist;
push @attempts, 'recording:' . _mb_q($title) . '~';
for my $query (@attempts) {
my $url = "$MB_BASE/recording?query=" . uri_escape_utf8($query)
. '&fmt=json&limit=5&inc=releases+artist-credits+tags+genres';
my $data = $self->_get_mb($url) or next;
my $recs = $data->{recordings} or next;
next unless @$recs;
my $meta = $self->_parse_mb_with_release($recs->[0]);
lib/App/DrivePlayer/MetadataFetcher.pm view on Meta::CPAN
unless ($token) {
$log->warn("Fingerprint: no bearer token available") if $log;
return;
}
my $url = sprintf $DRIVE_URL, uri_escape_utf8($drive_id);
my $max = ($max_bytes // ($DOWNLOAD_MB * 1024 * 1024)) - 1;
my $ua = HTTP::Tiny->new(agent => $USER_AGENT, timeout => 30);
my ($fh, $tmpfile) = tempfile(SUFFIX => '.audio', UNLINK => 0);
binmode $fh;
lib/App/DrivePlayer/MetadataFetcher.pm view on Meta::CPAN
}
sub _query_acoustid {
my ($self, $fp) = @_;
my $url = $AID_BASE
. '?client=' . uri_escape_utf8($self->acoustid_key)
. '&meta=recordings+compress'
. '&duration=' . $fp->{duration}
. '&fingerprint=' . uri_escape_utf8($fp->{fingerprint});
my $data = $self->_get_plain($url) or return;
my $results = $data->{results} or return;
return unless @$results;
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/DubiousHTTP/Tests.pm view on Meta::CPAN
</p>
HTML
$page =~s{href="(/[^"]+)"}{ 'href="'. garble_url($1). '"' }eg;
for( grep { $_->TESTS } @cat ) {
$page .= "<h3>".html_escape($_->SHORT_DESC)."</h3>";
$page .= $_->LONG_DESC_HTML;
$page .= "<p class=runtest><a href=/".$_->ID.">Run Test</a></p>\n";
}
$page .= "</body></html>";
return "HTTP/1.0 200 ok\r\n".
lib/App/DubiousHTTP/Tests.pm view on Meta::CPAN
next if $cat ne 'all' && $_->ID ne $cat;
for my $t ($_->TESTS) {
last if defined $limit && --$limit <= 0;
if (!@bad_pages) {
$html .= sprintf("checks.push({ num:%s, harmless:'%s', desc:'%s', valid:%d, file:'%s' });\n",
$t->NUM_ID, url_encode($t->url($good_page)), quotemeta(html_escape($t->DESCRIPTION)), $t->VALID,$good_page)
} else {
my $bad_urls = "[".join(",", map { "'".url_encode($t->url($_))."'" } @bad_pages)."]";
$html .= sprintf("checks.push({ num:%s, bad:%s, harmless: '%s', desc:'%s', valid:%d });\n",
$t->NUM_ID, $bad_urls, url_encode($t->url($good_page)), quotemeta(html_escape($t->DESCRIPTION)), $t->VALID)
}
}
}
$html .= sprintf("reference='%x' + Math.floor(time()/1000).toString(16);\n", rand(2**32));
$html .= "runtests();\n</script>\n";
lib/App/DubiousHTTP/Tests.pm view on Meta::CPAN
my $rand = rand();
for(@cat) {
next if $cat ne 'all' && $_->ID ne $cat;
for($_->TESTS) {
my $num = $_->NUM_ID;
my $xid = quotemeta(html_escape($_->LONG_ID));
my $url = url_encode($_->url($page));
my $html = $mkhtml->("$url?rand=$rand",$xid);
$jsglob .= "checks.push({ "
. "num: $num, page: '$url', xid: '$xid', "
. 'desc: "'.quotemeta(html_escape($_->DESCRIPTION)) .'",'
. 'valid: '.$_->VALID .','
. 'html: '.($html =~m{^function} ? $html : '"'.quotemeta($html).'"')
."});\n";
}
}
$jsglob .= "div_title.innerHTML = '<h1>".html_escape($title)."</h1>';";
$jsglob .= "runtests()\n";
my $html = _auto_static_html()."<script>$jsglob</script>\n";
return "HTTP/1.0 200 ok\r\n".
"Content-type: text/html\r\n".
lib/App/DubiousHTTP/Tests.pm view on Meta::CPAN
" <a class=trylink target=_blank download='" + test['file'] + "' href=" + test['page'] + ">try</a>" +
" <a class=srclink target=_blank href=/src" + test['page'] + ">src</a>"
: "" ) + "<br>";
}
function escapeAttribute(attr) {
return attr
.replace(/&/g, "&")
.replace(/</g, "<")
.replace(/>/g, ">")
.replace(/"/g, """)
view release on metacpan or search on metacpan
lib/App/DuckPAN/Fathead.pm view on Meta::CPAN
my $dbh = DBI->connect ("dbi:CSV:", undef, undef, {
f_dir => $self->output_txt->parent,
f_ext => ".txt/r",
csv_sep_char => "\t",
csv_quote_char => undef,
csv_escape_char => undef,
csv_allow_whitespace => 1,
csv_allow_quotes => 1,
RaiseError => 1,
PrintError => 0,
csv_tables => {
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/Env.pm view on Meta::CPAN
push @exclude, qr/\W/
unless $opt{AllowIllegalVariableNames};
my $env = $self->_envhash;
my @vars = grep { exists $env->{$_} } $self->_filter_env( $include, \@exclude );
return join( q{ }, map { "$_=" . App::Env::_Util::shell_escape( $env->{$_} ) } @vars );
}
#-------------------------------------------------------
# return a list of included variables, in the requested
lib/App/Env.pm view on Meta::CPAN
$envstr = $env->str( @match_specifications, \%options );
This function returns a string which may be used with the *NIX B<env>
command to set the environment. The string contains space separated
C<var=value> pairs, with shell magic characters escaped.
The environment may be pared down by passing I<match specifications>
and an C<Exclude> option; see the documentation for the B<env> method,
L</Context 4>, for more information.
Because the B<TERMCAP> environment variable is often riddled with
escape characters, which are not always handled well by shells, the
B<TERMCAP> variable is I<always> excluded unless it is explicitly
included via an exact variable name match specification. For example,
$envstr = $env->str( qr/.*/, 'TERMCAP );
view release on metacpan or search on metacpan
lib/App/Envdoctor/Scanner.pm view on Meta::CPAN
}
return undef;
}
# Extract used variable NAMES (with first-by-offset origin) from an infra file.
# Dependency-free: escaped `$$` neutralised, then interpolation (+ actions
# contexts) scanned by regex. Returns { NAME => { file => $rel, line => N } }.
sub scan_infra {
my ( $rel, $content, $type ) = @_;
my $text = $content;
$text =~ s/\$\$/ /g; # neutralise escaped $$ (preserve offsets)
my @res; # [ start, name ]
my @patterns = (
qr/\$\{([A-Za-z_][A-Za-z0-9_]*)/,
qr/\$([A-Za-z_][A-Za-z0-9_]*)/,