view release on metacpan or search on metacpan
lib/ACME/QuoteDB/DB/DBI.pm view on Meta::CPAN
ACME::QuoteDB::DB::DBI->connection(
'dbi:SQLite:dbname='.$QUOTES_DATABASE, '', '',
{
RaiseError => 1,
unicode => 1,
# func/pragma's may not work here,..(probably isnt' smart anyway)
#count_changes => 0,
#temp_store => 2,
#synchronous => 'OFF',
#busy_timeout => 3600000
view release on metacpan or search on metacpan
parse_listexpr||5.013008|
parse_lparen_question_flags|||
parse_stmtseq||5.013006|
parse_subsignature|||
parse_termexpr||5.013008|
parse_unicode_opts|||
parser_dup|||
parser_free_nexttoke_ops|||
parser_free|||
path_is_searchable|||n
peep|||
#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
view release on metacpan or search on metacpan
src/ppport.h view on Meta::CPAN
parse_label||5.013007|
parse_listexpr||5.013008|
parse_lparen_question_flags|||
parse_stmtseq||5.013006|
parse_termexpr||5.013008|
parse_unicode_opts|||
parser_dup|||
parser_free_nexttoke_ops|||
parser_free|||
path_is_searchable|||n
peep|||
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
view release on metacpan or search on metacpan
pad_sv||5.009005|
pad_swipe|||
pad_tidy|||
pad_undef|||
parse_body|||
parse_unicode_opts|||
parser_dup|||
parser_free|||
path_is_absolute|||n
peep|||
pending_Slabs_to_ro|||
view release on metacpan or search on metacpan
pad_sv|||
pad_swipe|||
pad_tidy|||
pad_undef|||
parse_body|||
parse_unicode_opts|||
path_is_absolute|||
peep|||
pending_ident|||
perl_alloc_using|||n
perl_alloc|||n
view release on metacpan or search on metacpan
pad_sv||5.011000|
pad_swipe|||
pad_tidy|||
pad_undef|||
parse_body|||
parse_unicode_opts|||
parser_dup|||
parser_free|||
path_is_absolute|||n
peep|||
pending_Slabs_to_ro|||
#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
view release on metacpan or search on metacpan
pad_sv|||
pad_swipe|||
pad_tidy|||
pad_undef|||
parse_body|||
parse_unicode_opts|||
path_is_absolute|||
peep|||
pending_ident|||
perl_alloc_using|||n
perl_alloc|||n
view release on metacpan or search on metacpan
pad_sv|||
pad_swipe|||
pad_tidy|||
pad_undef|||
parse_body|||
parse_unicode_opts|||
path_is_absolute|||
peep|||
pending_ident|||
perl_alloc_using|||n
perl_alloc|||n
view release on metacpan or search on metacpan
pad_sv||5.011000|
pad_swipe|||
pad_tidy|||
pad_undef|||
parse_body|||
parse_unicode_opts|||
parser_dup|||
parser_free|||
path_is_absolute|||n
peep|||
pending_Slabs_to_ro|||
#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
view release on metacpan or search on metacpan
doc/encoding.html view on Meta::CPAN
<h2>Using non-standard encoding</h2>
Kostas Chatzikokolakis submitted a patch with the following explanation:
<br>
All data in flash remoting are sent as unicode. However, database data
and scripts are usually in a local encoding. I made some enhacements to
AMF::Perl so that it automatically converts all strings to utf8 when sending
and back to the given encoding when receiving. The usage is:
<pre>
my $gateway = new AMF::Perl;
view release on metacpan or search on metacpan
t/03_f_request.t view on Meta::CPAN
'Request type with uuid is POST'
);
};
subtest 'Test unicode chars' => sub {
plan tests => 1;
$client->f_request(
[ 'sites', '123' ],
{
view release on metacpan or search on metacpan
1.01 2015-09-04T09:32:37Z
- Recognize HTTP PATCH method (aereal++)
1.00 2015-08-27T10:48:03Z
- Support schema which contains unicode characters
- Enable `use utf8` in DSL file
0.03 2015-08-18T02:06:45Z
- Validation error has more details. expected: expected schema, actual: actual input data
view release on metacpan or search on metacpan
warn 'ENTER remove_build_tag' if $DEBUG_AUBBC;
delete $Build_AUBBC{$name} if exists $Build_AUBBC{$name} && !$type; # clear one
%Build_AUBBC = () if $type && !$name; # clear all
}
sub do_unicode{
warn 'ENTER do_unicode' if $DEBUG_AUBBC;
$msg =~ s/\[utf:\/\/(\#?\w+)\]/&$1;/g;
}
sub do_smileys {
warn 'ENTER do_smileys' if $DEBUG_AUBBC;
escape_aubbc() if $AUBBC{aubbc_escape};
if (!$AUBBC{for_links}) {
do_ubbc($msg) if $do_f[0] && $AUBBC{aubbc};
do_build_tag() if $do_f[5] && $do_f[1];
}
do_unicode() if $do_f[2] && $AUBBC{utf};
do_smileys() if $do_f[6] && $do_f[3] && $AUBBC{smileys};
}
}
$msg =~ tr/\000//d if $AUBBC{aubbc_escape};
return $msg;
view release on metacpan or search on metacpan
parse_fullstmt||5.013005|
parse_label||5.013007|
parse_listexpr||5.013008|
parse_stmtseq||5.013006|
parse_termexpr||5.013008|
parse_unicode_opts|||
parser_dup|||
parser_free|||
path_is_absolute|||n
peep|||
pending_Slabs_to_ro|||
#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
view release on metacpan or search on metacpan
MANIFEST
META.yml
Makefile.PL
README
author.t/01_verify.t
author.t/unicode.t
dist.ini
lib/AWS/SNS/Verify.pm
t/01_verify.t
t/02_valid_cert_url.t
t/author-pod-coverage.t
view release on metacpan or search on metacpan
lib/Acme/Addslashes.pm view on Meta::CPAN
=over
=item 1 PHP's addslashes can only adds slashes before characters.
Thanks to unicode, PERL's version doesn't have this limitation. We add slashes
I<directly to the characters>. Isn't that cool?
=item 2 PHP's addslashes only adds slashes to some characters
Why not add slashes to all characters? More slashes directly equals safer code.
lib/Acme/Addslashes.pm view on Meta::CPAN
use v5.12;
use strict; # lolwut? strict??
use Encode qw(encode);
use feature qw(unicode_strings);
use parent "Exporter";
our @EXPORT_OK = qw(addslashes);
our $VERSION = '0.1.3';
lib/Acme/Addslashes.pm view on Meta::CPAN
my $totally_safe_string = addslashes("Robert'); DROP TABLE Students;--");
The only function exported by this module. Will literally add slashes to anything.
Letters, numbers, punctuation, whitespace, unicode symbols.
You name it, this function can add a slash to it.
Will return you a C<utf8> encoded string containing your original string, but with
enough slashes added to make Freddy Krueger jealous.
lib/Acme/Addslashes.pm view on Meta::CPAN
# Split the string into letters - just like explode in PHP. Or maybe str_split
# I can't remember which one is which -- JAITKEN
my @unsafe_array = split('', $unsafe_string);
# Add slashes to every character thanks to unicode.
# This is complex magic -- JAITKEN
# I think these slashes could be longer -- SKINGTON
# You forgot the last slash -- JAITKEN
my $safe_string = join("\N{U+0338}", @unsafe_array) . "\N{U+0338}";
view release on metacpan or search on metacpan
- If program read from keystrokes, ends with an empty line
- If program read through a pipe, continues until EOF
0.04 2015-01-28 13:27:43 Asia/Seoul
- (Fix) To properly read unicode characters from stdin
0.03 2015-01-28 12:39:51 Asia/Seoul
- If program read from stdin, continues until EOF, not an empty line
view release on metacpan or search on metacpan
lib/Acme/CPANAuthors/MetaSyntactic.pm view on Meta::CPAN
PERLANCAR => "perlancar",
SAPER => "Sebastien Aperghis-Tramoni",
SHLOMIF => "Shlomi Fish",
);
# from the unicode theme:
'DROMEDARY_CAMEL';
__END__
=head1 NAME
view release on metacpan or search on metacpan
the same thing as develop requires)
0.004 2013-07-14 19:21:01Z
- simplify creation of ad-hoc author object at build time
- (hopefully) fix html cell padding issue on metacpan
- use utf8 pragma, in case some names contain unicode characters
- include a bit of background to why I wrote this
- id=>name hash is also kept sorted
0.003 2013-07-06 01:04:20Z
- rewrite code and HTML generation by using embedded templates in
view release on metacpan or search on metacpan
lib/Acme/CPANModules/NewDistributions/202001.pm view on Meta::CPAN
summary => "Prove all distributions depending on specified module(s)",
},
{
description => "Distribution App-Unicode-Block first released by SKIM at 2020-01-19T16:51:51Z.",
module => "App::Unicode::Block",
summary => "Distribution for unicode-block script.",
},
{
description => "Distribution App-geoip first released by HMBRAND at 2020-01-16T13:50:05Z.",
module => "App::geoip",
summary => "Show geological data based on hostname or IP address(es)",
lib/Acme/CPANModules/NewDistributions/202001.pm view on Meta::CPAN
=item * L<App::ProveRdeps> - Prove all distributions depending on specified module(s)
Distribution App-ProveRdeps first released by PERLANCAR at 2020-01-30T10:56:35Z.
=item * L<App::Unicode::Block> - Distribution for unicode-block script.
Distribution App-Unicode-Block first released by SKIM at 2020-01-19T16:51:51Z.
=item * L<App::geoip> - Show geological data based on hostname or IP address(es)
view release on metacpan or search on metacpan
lib/Acme/CPANModules/WrappingText.pm view on Meta::CPAN
See also: <prog:fold> Unix command line.
_
# 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 => [
{
lib/Acme/CPANModules/WrappingText.pm view on Meta::CPAN
Specifically for folding Japanese (and other CJK) text.
_
features => {
can_unicode => 0,
can_cjk => 1,
can_ansi => 0,
},
},
{
lib/Acme/CPANModules/WrappingText.pm view on Meta::CPAN
function => 'ansi_fold',
description => <<'_',
_
features => {
can_unicode => 1,
can_cjk => 1,
can_ansi => 1,
},
},
{
lib/Acme/CPANModules/WrappingText.pm view on Meta::CPAN
For wrapping text that contains ANSI escape/color codes.
_
features => {
can_unicode => 0,
can_cjk => 0,
can_ansi => 1,
},
},
{
lib/Acme/CPANModules/WrappingText.pm view on Meta::CPAN
For wrapping text that contains ANSI escape/color codes *and* Unicode wide
characters.
_
features => {
can_unicode => 1,
can_cjk => 0,
can_ansi => 1,
},
},
{
lib/Acme/CPANModules/WrappingText.pm view on Meta::CPAN
For wrapping text that contains Unicode wide characters.
_
features => {
can_unicode => 1,
can_cjk => 0,
can_ansi => 0,
},
},
{
lib/Acme/CPANModules/WrappingText.pm view on Meta::CPAN
function => 'fold_text',
description => <<'_',
_
features => {
can_unicode => 1,
can_cjk => 0,
can_ansi => 0,
},
},
{
lib/Acme/CPANModules/WrappingText.pm view on Meta::CPAN
method => 'fold',
description => <<'_',
_
features => {
can_unicode => 0,
can_cjk => 0,
can_ansi => 0,
},
},
{
lib/Acme/CPANModules/WrappingText.pm view on Meta::CPAN
Core module.
_
features => {
can_unicode => 0,
can_cjk => 0,
can_ansi => 0,
},
},
],
lib/Acme/CPANModules/WrappingText.pm view on Meta::CPAN
=back
=head1 ACME::CPANMODULES FEATURE COMPARISON MATRIX
+----------------------+--------------+-------------+-----------------+
| module | can_ansi *1) | can_cjk *2) | can_unicode *3) |
+----------------------+--------------+-------------+-----------------+
| App::TextWrapUtils | N/A | N/A | N/A |
| Lingua::JA::Fold | no | yes | no |
| Text::ANSI::Fold | yes | yes | yes |
| Text::ANSI::Util | yes | no | no |
lib/Acme/CPANModules/WrappingText.pm view on Meta::CPAN
=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
=back
=head1 FAQ
view release on metacpan or search on metacpan
devdata/https_mojolicious.io_blog_2017_12_01_day-1-getting-started view on Meta::CPAN
<p>This script simply</p>
<ul>
<li>imports Mojolicious (the lite version)</li>
<li>defines a GET handler to respond to requests with a unicode version of hello world</li>
<li>starts the application</li>
</ul>
<p>But before that's any use to us, we have to start a web server.</p>
view release on metacpan or search on metacpan
devdata/https_mojolicious.io_blog_2018_12_05_compound-selectors_ view on Meta::CPAN
<p>Now, consider how much work I've done there. Almost nothing. I made a DOM object, applied a selector, and I've isolated parts of the data. This is the same thing I was doing the hard way before. This way is better and isn't more work. ...
<h2>How about those new emojis?</h2>
<p>While writing about the <a href="https://www.effectiveperlprogramming.com/2018/08/find-the-new-emojis-in-perls-unicode-support/">Unicode 9 updates in Perl v5.26</a>, I wondered what I could show that might be interesting. How about figuring out wh...
<p>My first attempt simply trawled through every character and compared the various Unicode properties to see which code numbers changed from <code>Unassigned</code> to <code>Present_In</code>. That was fine, but then I found that someone was already...
<p>I won't explain everything in this program. Trust me that it uses <a href="https://mojolicious.org/perldoc/Mojo/UserAgent">Mojo::UserAgent</a> to fetch the data, extracts the DOM, and finds the text I want by using the compound selector <code>...
devdata/https_mojolicious.io_blog_2018_12_05_compound-selectors_ view on Meta::CPAN
use charnames qw();
use Mojo::UserAgent;
my $ua = Mojo::UserAgent->new;
my $url = 'https://blog.emojipedia.org/new-unicode-9-emojis/';
my $tx = $ua->get( $url );
die "That didn't work!\n" if $tx->error;
say $tx->result
devdata/https_mojolicious.io_blog_2018_12_05_compound-selectors_ view on Meta::CPAN
🛴 (U+1F6F4) SCOOTER
🛵 (U+1F6F5) MOTOR SCOOTER
🛶 (U+1F6F6) CANOE
</code></pre>
<p>I used the same program to find <a href="https://www.effectiveperlprogramming.com/2018/08/use-unicode-10-in-perl-v5-28/">the Unicode 10 updates in v5.28</a> too.</p>
<h2>Extracting columns from a table</h2>
<p>Not impressed yet? How about slicing a table with CSS Selectors? Here's a short table that has ID, name, and score columns. I want to sum all of the scores.</p>
view release on metacpan or search on metacpan
devdata/http_advent.perldancer.org_2018_20 view on Meta::CPAN
<p>Each of the above method calls is a test.
The first, <code>get_ok</code>, builds a transaction and requests the resource.
Since the url is relative, it is handled by the app (if we wanted we could request and web resource too using a fully qualified url).
The transaction is stored in the tester object (<code>$t</code>) and all following tests will check it until it is replaced by the next request.</p>
<p>The remaining tests are reasonably self-explanatory, we check that the response status was 200, that we got a content type header that we expected and that its content is as we expect.
The content has already been utf-8 decoded, and the script has implicitly <code>use utf8</code>, so if you expected unicode, you can compare them easily.
The tests return the tester object so chaining is possible, making for visually clean sets of tests.</p>
<p>The next test is similar but this one uses the standard <a href="https://mojolicious.org/perldoc/Mojo/UserAgent">Mojo::UserAgent</a> style request generation to build a query string naming Santa for our greeting.
The tests are all the same except of course that it checks that the content greets Santa.</p>
<pre class="prettyprint">$t->get_ok('/text', form => { name => 'santa' })
->status_is(200)
view release on metacpan or search on metacpan
lib/Acme/DependOnEverything.pm view on Meta::CPAN
use PerlIO::Layers;
use PerlIO::locale;
use PerlIO::rewindable;
use PerlIO::subfile;
use PerlIO::text;
use PerlIO::unicodeeol;
use PerlIO::utf_strict;
use PerlIO::Util;
use PerlIO::via::ANSIColor;
use PerlIO::via::as_is;
use PerlIO::via::Babelfish;
view release on metacpan or search on metacpan
lib/Acme/EnclosedChar.pm view on Meta::CPAN
Dai Okabayashi E<lt>bayashi@cpan.orgE<gt>
=head1 SEE ALSO
L<http://www.unicode.org/>
=head1 LICENSE
This module is free software; you can redistribute it and/or
view release on metacpan or search on metacpan
anotherlib/Acme/o_o.pm view on Meta::CPAN
=head1 DESCRIPTION
See L<Acme::LookOfDisapproval>.
=for stopwords unicode
This module also serves as a test of unicode module names. I have no idea if
this will work -- let's find out!!!
=head1 FUNCTIONS
=head2 C<ಠ_ಠ>
view release on metacpan or search on metacpan
lib/Acme/Lou.pm view on Meta::CPAN
=head2 $lou->translate($text [, \%options ])
$lou = Acme->Lou->new();
$out = $lou->translate($text, { lou_rate => 50 });
Return translated unicode string.
I<%options>:
=over 4
lib/Acme/Lou.pm view on Meta::CPAN
=head1 LICENSE
This library is free software; you can redistribute it and/or modify
it under the same terms as Perl itself.
=for stopwords lou ohshiba unicode html
=cut
view release on metacpan or search on metacpan
parse_fullstmt||5.013005|
parse_label||5.013007|
parse_listexpr||5.013008|
parse_stmtseq||5.013006|
parse_termexpr||5.013008|
parse_unicode_opts|||
parser_dup|||
parser_free|||
path_is_absolute|||n
peep|||
pending_Slabs_to_ro|||
#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