view release on metacpan or search on metacpan
0.96008 2015-05-22
Updating for release of version 0.96008
Added missing mock data (Ivan Wills)
Added note to keep track of where things are (Ivan Wills)
Added pipe (|) to special escaped characters (Ivan Wills)
Added cpan tag (Ivan Wills)
Udated the documentation (Ivan Wills)
Added the ability to limit the maximum number of runs (Ivan Wills)
Updated manifest with renamed readme (Ivan Wills)
Added missing documentation (Ivan Wills)
Basic implementation working (Ivan Wills)
New script to show recent changes (Ivan Wills)
0.91 2014-11-03
Updating for release of version 0.91 (Ivan Wills)
Added escaped character at the end of the line to stop future edits removing final spaces (Ivan Wills)
Fixed needed whitespace (Ivan Wills)
Remember lists are 0 based! (Ivan Wills)
Added skipping test on windows as "echo" toggles or sets the echo state (Ivan Wills)
Added protection against DESTROY calling AUTOLOAD (Ivan Wills)
view release on metacpan or search on metacpan
lib/App/GitGerrit.pm view on Meta::CPAN
state $gerrit;
unless ($gerrit) {
my ($username, $password) = get_credentials;
require Gerrit::REST;
$gerrit = Gerrit::REST->new(config('baseurl'), $username, $password);
eval { $gerrit->GET("/projects/" . uri_escape_utf8(config('project'))) };
if (my $error = $@) {
set_credentials($username, $password, 'reject') if $error->{code} == 401;
die $error;
} else {
set_credentials($username, $password, 'approve');
lib/App/GitGerrit.pm view on Meta::CPAN
return [] unless @queries;
# If we're inside a git repository, restrict the query to the
# current project's reviews.
if (my $project = config('project')) {
$project = uri_escape_utf8($project);
@queries = map "q=project:$project+$_", @queries;
}
push @queries, "n=$Options{limit}" if $Options{limit};
lib/App/GitGerrit.pm view on Meta::CPAN
foreach my $id (@ARGV) {
# First try to make all deletions
if (my $users = $Options{delete}) {
foreach my $user (split(/,/, join(',', @$users))) {
$user = uri_escape_utf8($user);
gerrit_or_die(DELETE => "/changes/$id/reviewers/$user");
}
}
# Second try to make all additions
view release on metacpan or search on metacpan
. 'extract_ticket_id_from_branch = /^($project_prefixes\d+)/' . "\n"
. 'normalize_branch_ticket_id = s/^(.*?)/(\d+)$/\U$1-$2/' . "\n"
. 'extract_ticket_id_from_commit = /^($project_prefixes-\d+|--): /' . "\n",
files => $files,
commit_message => 'DEV-1234: Test',
expected => qr/\QERROR: Unsafe replacement pattern in 'normalize_branch_ticket_id', escape your slashes\E/,
},
];
# Bail out if Git isn't available.
test_requires_git();
view release on metacpan or search on metacpan
lib/App/GitHooks/Config.pm view on Meta::CPAN
if !defined( $value ) || $value eq '';
my ( $regex ) = $value =~ /^\s*\/(.*?)\/\s*$/;
croak "The key $name in the section $section is not a regex, use /.../ to delimit your expression"
if !defined( $regex );
croak "The key $name in the section $section does not specify a valid regex, it has unescaped '/' delimiters inside it"
if $regex =~ /(?<!\\)\//;
return $regex;
}
view release on metacpan or search on metacpan
bin/gitc-unpromoted view on Meta::CPAN
display($_) for @unpromoted;
sub display {
my ($changeset) = @_;
my $rx = join '|', keys %formats;
my @escapes = $format =~ m/%($rx)/g;
my %values;
for my $escape (@escapes) {
next if exists $values{$escape};
$values{$escape} = $formats{$escape}->($changeset);
}
( my $result = $format ) =~ s/%($rx)/$values{$1}/eg;
print "$result\n";
}
view release on metacpan or search on metacpan
lib/App/GoogleSearchPerlIRCLogs.pm view on Meta::CPAN
# skip text/raw version
qq(-inurl:/text),
);
my $url = "https://www.google.com/search?num=100&q=".
URI::Escape::uri_escape($query);
my $res = Browser::Open::open_browser($url);
$res ? [500, "Failed"] : [200, "OK"];
}
view release on metacpan or search on metacpan
lib/App/GoogleSearchPerlmonksUser.pm view on Meta::CPAN
# perlmonks.org marks some sections to be excluded by google, ref:
# http://www.perlmonks.org/?node_id=1136864
);
my $url = "https://www.google.com/search?num=100&q=".
URI::Escape::uri_escape($query);
my $res = Browser::Open::open_browser($url);
$res ? [500, "Failed"] : [200, "OK"];
}
view release on metacpan or search on metacpan
lib/App/GoogleSearchUtils.pm view on Meta::CPAN
"",
defined($args{prepend}) ? $args{prepend} : "",
$query0,
defined($args{append}) ? $args{append} : "",
);
my $query_esc = URI::Escape::uri_escape($query);
my $time_param = '';
if (my $p = $args{time_past}) {
if ($p eq 'h' || $p eq 'hour') {
$time_param = 'tbs=qdr:h';
lib/App/GoogleSearchUtils.pm view on Meta::CPAN
} else {
return [400, "Invalid time_past value '$p'"];
}
} elsif ($args{time_start} && $args{time_end}) {
my ($t1, $t2) = ($args{time_start}, $args{time_end});
$time_param = "tbs=".URI::Escape::uri_escape(
"cdr:1,cd_min:".
($args{time_start}->strftime("%m/%d/%Y")).
",cd_max:".($args{time_end}->strftime("%m/%d/%Y"))
);
}
view release on metacpan or search on metacpan
- Specified min perl version 5.6.0 in metadata and code
- Added github repo to the dist metadata and doc
- Specified license type of 'perl' in dist metadata
- Put all dependencies in PREREQ_PM and TEST_REQUIRES if supported
- Removed App-Gre-0.04.tar.gz from MANIFEST
- Fixed pod warnings - needed to use escapes for < and >
(Thanks to Neil Bowers <neil@bowers.com> for these)
0.07 Wed Aug 26 11:25:56 CDT 2015
- Add links to docs
view release on metacpan or search on metacpan
lib/App/Greple/md.pm view on Meta::CPAN
#
sub osc8 {
return $_[1] unless $config->{osc8};
my($url, $text) = @_;
my $escaped = uri_escape_utf8($url, "^\\x20-\\x7e");
"${OS}${escaped}${OE}${text}${OS}${OE}";
}
#
# Link text inner pattern: backtick spans, backslash escapes, normal chars
#
my $LT = qr/(?:`[^`\n]*+`|\\.|[^`\\\n\]]++)+/;
#
view release on metacpan or search on metacpan
docs/src/xlate.gpt5-ID.pod view on Meta::CPAN
--xlate-setopt maskfile=MASKPATTERN
Ini akan menafsirkan setiap baris dari berkas C<MASKPATTERN> sebagai ekspresi reguler, menerjemahkan string yang cocok dengannya, dan mengembalikannya setelah pemrosesan. Baris yang dimulai dengan C<#> akan diabaikan.
Pola kompleks dapat ditulis dalam beberapa baris dengan baris baru yang di-escape dengan backslash.
Bagaimana teks diubah oleh masking dapat dilihat dengan opsi B<--xlate-mask>.
Antarmuka ini bersifat eksperimental dan dapat berubah di masa mendatang.
view release on metacpan or search on metacpan
- Suppress experimental::vlb warning for Variable Length Lookbehind
- Use eval for backward compatibility with older Perl versions
10.01 2025-12-31T01:30:39Z
- Add escape sequence support (\t, \n, \r, \f) to --blockend option
- Unify escape sequence handling with shared expand_escape() function
10.00 2025-12-11T03:23:27Z
- Bump major version to 10.00 to indicate minimum Perl version requirement
change from 5.14 to 5.24
view release on metacpan or search on metacpan
lib/App/HL7/Compare/Parser/MessageConfig.pm view on Meta::CPAN
has option 'repetition_separator' => (
isa => StrLength [1, 1],
writer => 1,
);
has option 'escape_character' => (
isa => StrLength [1, 1],
writer => 1,
);
has option 'subcomponent_separator' => (
lib/App/HL7/Compare/Parser/MessageConfig.pm view on Meta::CPAN
my @order = qw(
field_separator
component_separator
repetition_separator
escape_character
subcomponent_separator
);
croak 'Not enough input to read message control characters'
unless length $input >= @order;
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/HTRender.pm view on Meta::CPAN
For example, if your template requires all of its values to use the HTML
escaping scheme, and you wish to disable including other template files, you
can specify a JSON object with requisite HTML::Template options:
{
"default_escape" : "html",
"no_includes": 1
}
=head2 --version
view release on metacpan or search on metacpan
lib/App/Hack/Exe.pm view on Meta::CPAN
# Float; Number of seconds to display "loading" animation for
DOTS_DURATION => 1,
# Int; Number of characters to draw each "loading" animation line
# 77 = Width of demon
DOTS_WIDTH => 77,
# ANSI escape codes for cursor manipulation
MEMORIZE_CURSOR => "\e\x{37}",
RECALL_CURSOR => "\e\x{38}",
};
use Carp qw/ croak /;
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
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
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
t/home_pgsql/patches/pagila1.sql view on Meta::CPAN
SET client_encoding = 'UTF8';
SET standard_conforming_strings = off;
SET check_function_bodies = false;
SET client_min_messages = warning;
SET escape_string_warning = off;
--
-- Name: SCHEMA public; Type: COMMENT; Schema: -; Owner: postgres
--
view release on metacpan or search on metacpan
lib/App/JobLog/Command/add.pm view on Meta::CPAN
=head2 TAGS
You may optionally attach categories to tasks with tags. Any string can be a tag but to make the output readable you'll want them
to be short. Also, in the logs tags are delimited by whitespace and separated from the timestamp and description by colons, so
these characters will be escaped with a slash. If you edit the log by hand and forget to escape these characters the log will
still parse but you will be surprised by the summaries you get.
You may specify multiple tags, but each one needs its own B<--tag> flag.
If you don't specify otherwise the new event will inherit the tags of the previous event, so you will need to apply
view release on metacpan or search on metacpan
lib/App/KGB/Client.pm view on Meta::CPAN
sub _run_matches {
my ( $safe, $changes, $res, $swap ) = @_;
for my $re (@$res) {
$re =~ s{,}{\\,}g; # escape commas
my $matching = "m,$re,; " . ( $swap ? '($2,$1)' : '($1,$2)' );
local $_ = $changes->path;
my ( $branch, $module ) = $safe->reval($matching);
die "Error while evaluating `$re': $@" if $@;
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",
view release on metacpan or search on metacpan
lib/App/Kit/Obj/FS.pm view on Meta::CPAN
return YAML::Syck::DumpFile( $file, $ref ); # this does not keep the same $YAML::Syck:: vars apparently: shift;goto &YAML::Syck::DumpFile;
# as of at least v1.27 it writes the characters without \x escaping so no need for:
# return $self->write_file(
# $file,
# String::UnicodeUTF8::unescape_utf8( YAML::Syck::Dump($ref) )
# );
};
};
Sub::Defer::defer_sub __PACKAGE__ . '::yaml_read' => sub {
lib/App/Kit/Obj/FS.pm view on Meta::CPAN
Sub::Defer::defer_sub __PACKAGE__ . '::json_write' => sub {
require JSON::Syck;
return sub {
shift;
goto &JSON::Syck::DumpFile; # already does ♥ instead of \xe2\x99\xa5 (i.e. so no need for String::UnicodeUTF8::unescape_utf8() like w/ the YAML above)
};
};
Sub::Defer::defer_sub __PACKAGE__ . '::json_read' => sub {
require JSON::Syck;
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 {