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
sub new {
my $self = shift;
my ($class,$pattern) = rearrange([['CLASS'],['NAME','PATTERN']],@_);
croak "You must provide -class and -pattern arguments"
unless $class && $pattern;
# escape % signs in the string
$pattern = Ace->freeprotect($pattern);
$pattern =~ s/(?<!\\)%/\\%/g;
my $r = $self->raw_query("new $class $pattern");
if (defined($r) and $r=~/write access/im) { # this keeps changing
$Ace::Error = "Write access denied";
view release on metacpan or search on metacpan
fortune/jackbauer view on Meta::CPAN
%
When Jack Bauer had a heart attack, he fought back by shooting his heart.
%
Jack Bauer knows every bone in the human body... because he's broken every one.
%
Jack Bauer removed the "Escape" button from his keyboard. Jack Bauer never needs to escape.
%
Kim is proof that "it skips a generation".
%
When God cries, it rains. When Jack Bauer cries, acid falls from the sky.
%
fortune/jackbauer view on Meta::CPAN
%
Whoever said cheaters never prosper asked Jack Bauer first.
%
If an airplane carrying Jack Bauer went down over Africa, the lion would no longer be "king of the jungle".
%
Jack Bauer paid the cougar and Kevin Dillon to keep Kim busy in Season 2. But, alas, Kim escaped because she is, of course, half Jack Bauer.
%
The safety on Jack's gun isn't there to protect Jack. It's there to protect the gun.
%
Texas does not "Hold 'Em", Jack Bauer does.
fortune/jackbauer view on Meta::CPAN
%
We now understand how Desmond really got on the “LOST” island.. he was a former German secret agent who pissed off Jack Bauer again and had to hide somewhere.
%
When Kim Bauer got the part in "Girl Next Door" Jack Bauer proceeded to castrate every person on set just to make sure his genes weren't going to be combined with that of a humans.
%
If Jack Bauer had been attacked by a stingray like Steve Irwin he would have escaped, captued and tortured the stingray & found out who it was working for.
%
President Palmer gave Alaska and Hawaii to China in exchange for the return of Jack Bauer. It was the best deal he ever made.
%
Nobody messes with Jack Bauer's daughter and lives.
%
fortune/jackbauer view on Meta::CPAN
%
In honor of Jack Bauer's saving LA for the fifth straight season, Kobe Bryant has changed his jersey number from 8 to 24.
%
The Supreme Court ruled unanimously that Jack Bauer's methods were "cruel and unusual punishment". The next day the Supreme Court had nine vacancies.
%
Jack Bauer once stepped into quicksand. The quicksand couldn't escape and nearly drowned.
%
GWB wasnt lying about the war with Iraq, it was to find the weapons of mass destruction. It was to retrieve Jack Bauer from Iraq, the war was a cover up for all the destruction he left behind.
%
When Jack learned that Audrey was killed in a car accident in China, one billion asians crapped their pants.
%
fortune/jackbauer view on Meta::CPAN
%
President Logan is not scared because he knows the terrorits are threatening America. He is scared because he knows Jack Bauer can take over anytime he wants.
%
Jack Bauer told Elvis to leave the building.
%
When Jack was just a young boy, he was held at gunpoint by a terrorist. He escaped by looking him in the eye and laughing, melting his brain. That laughter broke into a million tiny pieces, and that is where fairies come from.
%
John McCain only has no problem with torturing detainees just as long as it's Jack Bauer doing the torturing.
%
Alone, tortured, chained, and one a cargo ship heading to a country of 1.6 billion potentially hostile Chinese...it must be Jack Bauer's birthday.
%
fortune/jackbauer view on Meta::CPAN
%
Quentin Tarantino finds Jack Bauer too violent.
%
James Bond has his Bond girls. Jack Bauer has his body count.
%
Jack Bauer once agreed to appear on an episode of Prison Break. It was all part of an elaborate ruse to help Ramon Salazar escape.
The setback delayed the series premiere two years... the inmates are still trying to figure out how he did it.
%
When Jack Bauer goes to an all-inclusive resort, he goes to Afghanistan for "All you can kill terrorists."
%
fortune/jackbauer view on Meta::CPAN
Jack Bauer's copy-editing style involves cutting the hands off of those who make spelling and grammatical errors with an ax.
%
Before accepting a job at CTU remember that Jack Bauer has:
*Shot George Mason with a tranquilizer gun
*Knocked out a security guard to escape lockdown
*Shot Nina (before it was discovered that she was bad)
*Broken Tony's leg to escape lockdown
*Shot Chase Edmunds with an empty gun
*Killed Ryan Chappelle
*Cut off Chase's arm
*Attacked Ronnie
*Knocked out Curtis
fortune/jackbauer view on Meta::CPAN
%
Ambulances carrying patients pull over for Jack Bauer.
%
The only way Ford will make a comeback - Come out with the Jack Bauer edition Explorer.
%
While he was in China, Jack Bauer escaped once. As he reached the ocean, he started swimming toward the United States. After 62 miles he got tired and swam back.
%
If Jack Bauer was on American Idol, he would win because all other contestants would be too scared to sing.
%
Telemarketers do not call Jack Bauer at dinner time in fear of retaliation.
%
fortune/jackbauer view on Meta::CPAN
%
Fox executives once tried to cancel 24.... but Kiefer Sutherland asked " Are you a mole?" and it was never tried again.
%
Jack Bauer does not have to look both ways when he crosses the street.
%
You never see Jack Bauer go to the bathroom. That's because nothing escapes Jack Bauer.
%
A little known fact is that Jack Bauer has a sensitive side that takes baths and lights scented candles. The tough side of Jack held sensitive Jack's head under the water until he confessed that he was in fact the mole in CTU.
%
Jack Bauer is never asked to turn his cell phone off at weddings, movies, or churches.
%
fortune/jackbauer view on Meta::CPAN
%
Most children slept with a teddy bear and blanket when they were young, Jack Bauer did the same thing but with a real bear.
%
...and on the seventh day Jack Bauer said, "I'll take it from here."
%
Jack Bauer once pulled the "go directly to jail" card in Monopoly. He then killed Uncle rich penny bags and escaped.
%
Jack Bauer once punched me so hard that all of my atoms lost an electron. I'm positive.
%
There were originally twenty hours in a day. Jack Bauer made the days longer so he could kill more terrorists in a one day period.
%
fortune/jackbauer view on Meta::CPAN
%
When Jack slid across the ground and shot the Chinese vehicle it wasn't because he needed to slide, it was because he wanted to add some style points to his kills.
%
Jack Bauer laughs at the movie Mission Impossible. There is no such thing as an impossible mission for Jack.
%
Jack Bauer, in order to escape a terrorist trap, once ate his own left hand. When he got out, a new hand, a machine gun, and six bears grew back in its place.
%
Why else do they call it JACKing off?
%
Jack Bauer impregnated his wife by ejaculating on his bullets and firing them into her womb.
%
view release on metacpan or search on metacpan
lib/Acme/6502.pm view on Meta::CPAN
$self->{ ops } = [ @OP_CACHE ];
confess "Escape handler opcode not available"
unless $self->{ ops }->[ ESCAPE_OP ] == $bad_inst;
# Patch in the OS escape op handler
$self->{ ops }->[ ESCAPE_OP ] = sub {
my $self = shift;
if ( $self->{ mem }->[ $self->{ reg }->{ pc } ] != ESCAPE_SIG ) {
$bad_inst->( $self );
}
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/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/Acme/AsciiArtinator.pm view on Meta::CPAN
}
if (!$sigil && ($_ eq "'" || $_ eq '"' ||
$_ eq "/" && regex_or_divide(\@tokens,\@contexts) eq "regex")) {
# walk through @INPUT looking for the end of the string
# manage a boolean $escaped variable handy to allow
# escaped strings inside strings.
my $escaped = 0;
my $terminator = $_;
for($j = $i + 1; $j <= $#INPUT; $j++) {
if ($INPUT[$j] eq "\\") {
$escaped = !$escaped;
next;
}
last if $INPUT[$j] eq $terminator && !$escaped;
$escaped = 0;
}
my $token = "@INPUT[$i..$j]";
if ($_ eq "/" && (length $token > 30 || $j >= $#INPUT)) {
# this regex is pretty long. Maybe we made a mistake.
lib/Acme/AsciiArtinator.pm view on Meta::CPAN
my $terminator = $INPUT[$j - 1];
$terminator =~ tr!{}<>[]{}()!}{><][}{)(!;
my $escaped = 0;
for(; $j <= $#INPUT; $j++) {
if ($INPUT[$j] eq "\\") {
$escaped = !$escaped;
next;
}
last if $INPUT[$j] eq $terminator && !$escaped;
# XXX - if regex has 'x' modifier,
# then
$escaped = 0;
}
push @tokens, "@INPUT[$i..$j]";
push @contexts, "regular expression A /$terminator/";
$i = $j;
} elsif (!$sigil && ($Q =~ /^s\W/ || $Q =~ /^y\W/ || $Q =~ /^tr\W/)) {
$j = $_ eq "t" ? $i + 3 : $i + 2;
my $terminator = $INPUT[$j-1];
$terminator =~ tr!{}<>[]{}()!}{><][}{)(!;
my $escaped = 0;
my $terminators_found = 0;
for (; $j <= $#INPUT; $j++) {
if ($INPUT[$j] eq "\\") {
$escaped = !$escaped;
next;
}
if ($INPUT[$j] eq $terminator && !$escaped) {
if ($terminators_found++) {
last;
}
}
$escaped = 0;
}
push @tokens, "@INPUT[$i..$j]";
push @contexts, "regular expression B /$terminator/";
$i = $j;
view release on metacpan or search on metacpan
0.07 Tue Aug 11 20:00 2020
- Renamed Module::AutoLoad to Acme::AutoLoad namespace
- Removed all single and double quotes from MAGIC LINE
and moved everything onto one single line to reduce
shell escape conflicts with -e from commandline
- Removed network hops and confusing obfuscation
0.06 Tue Jul 3 14:30 2018
- Avoid using st.aticpan.org
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/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
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
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
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/Acme/CPANModules/EscapingAndQuoting.pm view on Meta::CPAN
our $DATE = '2023-10-29'; # DATE
our $DIST = 'Acme-CPANModules-EscapingAndQuoting'; # DIST
our $VERSION = '0.003'; # VERSION
our $LIST = {
summary => 'List of modules that escape/quote data to make it safe',
entries => [
{
module=>'HTML::Entities',
},
{
lib/Acme/CPANModules/EscapingAndQuoting.pm view on Meta::CPAN
},
],
};
1;
# ABSTRACT: List of modules that escape/quote data to make it safe
__END__
=pod
=encoding UTF-8
=head1 NAME
Acme::CPANModules::EscapingAndQuoting - List of modules that escape/quote data to make it safe
=head1 VERSION
This document describes version 0.003 of Acme::CPANModules::EscapingAndQuoting (from Perl distribution Acme-CPANModules-EscapingAndQuoting), released on 2023-10-29.
view release on metacpan or search on metacpan
lib/Acme/CPANModules/Import/CPANRatings/User/stevenharyanto.pm view on Meta::CPAN
our $AUTHORITY = 'cpan:PERLANCAR'; # AUTHORITY
our $DATE = '2023-10-29'; # DATE
our $DIST = 'Acme-CPANModules-Import-CPANRatings-User-stevenharyanto'; # DIST
our $VERSION = '0.002'; # VERSION
our $LIST = {description=>"This list is generated by scraping CPANRatings (cpanratings.perl.org) user page.",entries=>[{description=>"\n(REMOVED)\n",module=>"Log::Any",rating=>undef},{description=>"\nProvides a thin/lightweight OO interface for \$?, ...
1;
# ABSTRACT: List of modules mentioned by CPANRatings user stevenharyanto
__END__
lib/Acme/CPANModules/Import/CPANRatings/User/stevenharyanto.pm view on Meta::CPAN
Author: L<KEEDI|https://metacpan.org/author/KEEDI>
I use Markdown::Pod for my module Perinci::To::POD.
<br><br>This module does not output proper POD for many (not so) edge cases, like:
<br><br>C<>> and the likes are not yet escaped, producing C<>> when it should have been C<< > >> or C<E<gt>>.
<br><br>Ordered list numbering does not yet work, e.g. "2. ...\n3. ...\n" produces "=item 1. ... =item 1. ..."
<br><br>Ordered list with item numbered other than 1 does not work (see above). This should be supported in POD because POD allows us to write the bullets/numbers for each item.
<br><br>Inline markup is not smart enough to differentiate word_with_underscore. So "foo_bar and foo_baz" becomes "fooI<bar and foo>baz".
<br><br>Plus it segfaults sometimes (might be my perl though).
lib/Acme/CPANModules/Import/CPANRatings/User/stevenharyanto.pm view on Meta::CPAN
=item L<Bash::Completion>
Author: L<MELO|https://metacpan.org/author/MELO>
Clean code, plugin interface simple to use, but implementation needs to be improved. For example, parsing $ENV{COMP_LINE} & $ENV{COMP_POINT} into @argv is done simplistically using split(/\h+/), without regard to shell's quotes/escapes. (Getopt::...
<br>
Rating: 6/10
lib/Acme/CPANModules/Import/CPANRatings/User/stevenharyanto.pm view on Meta::CPAN
=item L<String::ShellQuote>
Author: L<ROSCH|https://metacpan.org/author/ROSCH>
I admit it. Ever since I know about escapeshellarg() and escapeshellcmd() in PHP, I've been reimplementing this function in Perl literally a million of times (mostly because of laziness and because it only takes a couple of lines in Perl). Only a fe...
<br><br>The only problem for this module is lack of visibility. Before I've never read articles or blog posts mentioning this module, ever. Yes, we have system() that can bypass the shell, but qx() can't. So yes, this module needs to be marketed more...
<br>
=item L<Capture::Tiny>
view release on metacpan or search on metacpan
lib/Acme/CPANModules/WorkingWithCSV.pm view on Meta::CPAN
**Rendering as text/ASCII table**
<prog:csv2texttable> from <pm:App::TextTableUtils>
**Changing field separator character, field quote character, and/or escape character**
<prog:csv-csv> from <pm:App::CSVUtils>
**Adding/removing columns**
lib/Acme/CPANModules/WorkingWithCSV.pm view on Meta::CPAN
B<Rendering as text/ASCII table>
L<csv2texttable> from L<App::TextTableUtils>
B<Changing field separator character, field quote character, and/or escape character>
L<csv-csv> from L<App::CSVUtils>
B<Adding/removing columns>
view release on metacpan or search on metacpan
lib/Acme/CPANModules/WrappingText.pm view on Meta::CPAN
_
# TODO: use Module::Features
entry_features => {
can_unicode => {summary => 'Can wrap Unicode text, including wide characters'},
can_cjk => {summary => 'Can wrap CJK wide characters'},
can_ansi => {summary => 'Can wrap text that contains ANSI color/escape codes'},
},
entries => [
{
module => 'App::TextWrapUtils',
script => 'textwrap',
lib/Acme/CPANModules/WrappingText.pm view on Meta::CPAN
{
module => 'Text::ANSI::Util',
function => 'ta_wrap',
description => <<'_',
For wrapping text that contains ANSI escape/color codes.
_
features => {
can_unicode => 0,
can_cjk => 0,
lib/Acme/CPANModules/WrappingText.pm view on Meta::CPAN
{
module => 'Text::ANSI::WideUtil',
function => 'ta_mbwrap',
description => <<'_',
For wrapping text that contains ANSI escape/color codes *and* Unicode wide
characters.
_
features => {
can_unicode => 1,
lib/Acme/CPANModules/WrappingText.pm view on Meta::CPAN
=item L<Text::ANSI::Util>
Author: L<PERLANCAR|https://metacpan.org/author/PERLANCAR>
For wrapping text that contains ANSI escape/color codes.
=item L<Text::ANSI::WideUtil>
Author: L<PERLANCAR|https://metacpan.org/author/PERLANCAR>
For wrapping text that contains ANSI escape/color codes I<and> Unicode wide
characters.
=item L<Text::WideChar::Util>
lib/Acme/CPANModules/WrappingText.pm view on Meta::CPAN
Notes:
=over
=item 1. can_ansi: Can wrap text that contains ANSI color/escape codes
=item 2. can_cjk: Can wrap CJK wide characters
=item 3. can_unicode: Can wrap Unicode text, including wide characters
view release on metacpan or search on metacpan
devdata/https_mojolicious.io_blog_2017_12_20_day-20-practical-testing view on Meta::CPAN
<p>Because the template expects the result to be an object we have to build a tiny class to contain our mock results.
Also whenever you are mocking, it is important to check the input your mock received as well as the results that the calling code derives from your mock return value.</p>
<p>In the test you can also see some examples of how to use selectors to test for both text and attribute values.
The text test is especially important because it shows that the html value that I got back from the LinkEmbedder isn't being escaped by the template and will render as HTML to the client.</p>
<p>A few more tests and some documentation and our application will really be taking final shape!</p>
</section>
<small><p><a href="https://commons.wikimedia.org/w/index.php?curid=11337658">Image</a> by Hawaii Volcano Observatory, USGS - <a class="external text" href="http://hvo.wr.usgs.gov/kilauea/update/archive/2009/2009_Jun-Oct.html" rel="nofol...
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
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/Acme/DependOnEverything.pm view on Meta::CPAN
use PerlIO::via::Bzip;
use PerlIO::via::CBC;
use PerlIO::via::chop;
use PerlIO::via::csv;
use PerlIO::via::dynamic;
use PerlIO::via::escape_ansi;
use PerlIO::via::EscStatus;
use PerlIO::via::GnuPG;
use PerlIO::via::gzip;
use PerlIO::via::json;
use PerlIO::via::Limit;
lib/Acme/DependOnEverything.pm view on Meta::CPAN
use String::Trigram;
use String::Trim;
use String::Trim::More;
use String::Truncate;
use String::TT;
use String::Unescape::v;
use String::UnicodeUTF;
use String::Unique;
use String::Unquotemeta;
use String::Urandom;
use String::UTF::MD;
lib/Acme/DependOnEverything.pm view on Meta::CPAN
use Template::Plugin::WikiFormat;
use Template::Plugin::xkcd;
use Template::Plugin::XML::Escape;
use Template::Plugin::XML::Feed;
use Template::Plugin::XML::LibXML;
use Template::Plugin::XML::Unescape;
use Template::Plugin::XSLT;
use Template::Plugin::YAML;
use Template::Plugin::YAMLVal;
use Template::Plugin::YUI::Loader;
use Template::PopupTreeSelect;
view release on metacpan or search on metacpan
demo/gentable.pl view on Meta::CPAN
$C[30] = q#('?'^'!')#;
$C[31] = q#('%'^':')#;
$C[32] = q#('{'^'[')#; # space
$C[127] = q#('!'^'^')#;
# Special escaped characters.
$C[92] = q#'\\\\'.'\\\\'#;
$C[34] = q#'\\\\'.'"'#;
$C[36] = q#'\\\\'.'$'#;
$C[64] = q#'\\\\'.'@'#;
$C[123] = q#'\\\\'.'{'#;
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
1.00 Sat Jul 5 2003
- now it works
1.01 Jul 7 2003
- Added 5.8 requirement
1.02 Jul 8
- Fixed pod syntax ('/' wasn't escaped)
- added t/basic.t
- moved Floral.pm to lib/Acme/Floral.pm
- updated META.yml
- upgraded B::Deobfuscate requirement to 0.10
1.03 Feb 1, 2005
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 {