Result:
found more than 809 distributions - search limited to the first 2001 files matching your query
( run in 0.668 )
CPP-Boost-Mini
view release on metacpan or search on metacpan
include/boost/config/compiler/clang.hpp view on Meta::CPAN
#if !__has_feature(cxx_alias_templates)
# define BOOST_NO_CXX11_TEMPLATE_ALIASES
#endif
#if !__has_feature(cxx_unicode_literals)
# define BOOST_NO_CXX11_UNICODE_LITERALS
#endif
#if !__has_feature(cxx_variadic_templates)
# define BOOST_NO_CXX11_VARIADIC_TEMPLATES
CPU-x86_64-InstructionWriter
view release on metacpan or search on metacpan
lib/CPU/x86_64/InstructionWriter.pm view on Meta::CPAN
$writer->data(\%set);
Append a string of literal bytes to the instruction stream.
If the value is a hashref, each key of the hashref will be added, and each value of the hashref
will be a label that is anchored to the start of those bytes. If your hashref keys are unicode
strings, use L<data_str> instead. This also looks for opportunities to overlap strings if one
is a subset of another.
=head2 data_i8, data_i16, data_i32, data_i64
CSS-Adaptor-Whitelist
view release on metacpan or search on metacpan
lib/CSS/Adaptor/Whitelist.pm view on Meta::CPAN
'letter-spacing' => qr/^(?:normal\b|$re_ndim)$/,
'word-spacing' => qr/^(?:normal\b|$re_ndim)$/,
'caption-side' => list2hash(qw(top bottom)),
'empty-cells' => list2hash(qw(hide show)),
'table-layout' => list2hash(qw(auto fixed)),
'unicode-bidi' => list2hash(qw(normal embed bidi-override)),
'vertical-align' => qr/^(?: $re_ndim | baseline \b | middle \b | su(?:b|per) \b | (?:text-)?(?:top|bottom) \b )$/x,
'white-space' => list2hash(qw(normal nowrap pre pre-line pre-wrap)),
'z-index' => qr/^(?: auto \b | -?\d+ \b )$/x,
orphans => qr/^\d+\b$/,
CSS-Croco
view release on metacpan or search on metacpan
Debian_CPANTS.txt view on Meta::CPAN
"libtree-dagnode-perl", "Tree-DAG_Node", "1.06", "0", "0"
"libtree-redblack-perl", "Tree-RedBlack", "0.5", "0", "0"
"libtree-simple-perl", "Tree-Simple", "1.18", "0", "0"
"libtree-simple-visitorfactory-perl", "Tree-Simple-VisitorFactory", "0.10", "0", "0"
"libtry-tiny-perl", "Try-Tiny", "0.02", "0", "0"
"libunicode-map-perl", "Unicode-Map", "0.112", "1", "0"
"libunicode-map8-perl-dfsg", "Unicode-Map8", "0.12", "0", "0"
"libunicode-maputf8-perl", "Unicode-MapUTF8", "1.11", "0", "0"
"libunicode-string-perl", "Unicode-String", "2.09", "0", "0"
"libuniversal-can-perl", "UNIVERSAL-can", "1.15", "0", "0"
"libuniversal-isa-perl", "UNIVERSAL-isa", "1.02", "0", "0"
"libuniversal-moniker-perl", "UNIVERSAL-moniker", "0.08", "0", "0"
"libuniversal-require-perl", "UNIVERSAL-require", "0.13", "0", "0"
"libunix-syslog-perl", "Unix-Syslog", "1.1", "0", "0"
CSS-DOM
view release on metacpan or search on metacpan
lib/CSS/DOM/Interface.pm view on Meta::CPAN
textDecoration => STR,
textIndent => STR,
textShadow => STR,
textTransform => STR,
top => STR,
unicodeBidi => STR,
verticalAlign => STR,
visibility => STR,
voiceFamily => STR,
volume => STR,
whiteSpace => STR,
CSS-Flip
view release on metacpan or search on metacpan
lib/CSS/Janus/Consts.pm view on Meta::CPAN
# nonascii [\240-\377]
# $NON_ASCII = '[\200-\377]';
# modified: handle characters beyond \377.
$NON_ASCII = "[^\\000-\\177]";
# unicode \\{h}{1,6}(\r\n|[ \t\r\n\f])?
$UNICODE = "(?:(?:\\\\[0-9a-f]{1,6})(?:\\r\\n|[ \\t\\r\\n\\f])?)";
# escape {unicode}|\\[^\r\n\f0-9a-f]
$ESCAPE = "(?:$UNICODE|\\\\[^\\r\\n\\f0-9a-f])";
# nmstart [_a-z]|{nonascii}|{escape}
$NMSTART = "(?:[_a-z]|$NON_ASCII|$ESCAPE)";
CSS-LESS-Filter
view release on metacpan or search on metacpan
lib/CSS/LESS/Filter.pm view on Meta::CPAN
{ debug($thisline, @item); $return = {key => $item[1], sep => $item[2], value => $item[3], semicolon => join '', @{$item[4]}} }
property: /[\*]?/ ident
{ debug($thisline, @item); $return = join'', @item[1..2] }
unicode_range: /U\+[0-9a-fA-F?]{1,6}/
{ debug($thisline, @item); $return = $item[1] }
iefilter: 'progid:DXImageTransform.Microsoft.' ident parens
{ debug($thisline, @item); $return = join'', @item[1..3] }
lib/CSS/LESS/Filter.pm view on Meta::CPAN
values: (value | comments | /[, ]/ )(s)
{ debug($thisline, @item); $return = join '', @{$item[1]} }
value: (
string | url | variable | color | iefilter | javascript
| unicode_range | expression | percent
| px | num | function | ident | important
| sp | unknown
)(s)
{ debug($thisline, @item); $return = join'', @{$item[1]} }
lib/CSS/LESS/Filter.pm view on Meta::CPAN
{ debug($thisline, @item); $return = join '', $item[1], @{$item[2]}, $item[3] }
string2: /~?'/ ( /[^\n\r\f\\']/ | escaped_nl | escape )(s?) /'/
{ debug($thisline, @item); $return = join '', $item[1], @{$item[2]}, $item[3] }
unicode: '\\' /[0-9a-fA-F]{1,6}(\r\n|[ \n\r\f\t])?/
{ debug($thisline, @item); $return = join '', @item[1..2] }
word: /[-]?/ nmstart nmchar(s?)
{ debug($thisline, @item); $return = join '', @item[1..2], @{$item[3]} }
lib/CSS/LESS/Filter.pm view on Meta::CPAN
nonascii: /[^\0-\237]/
{ debug($thisline, @item); $return = $item[1] }
escape:
unicode
{ debug($thisline, @item); $return = $item[1] }
| '\\' /[^\n\r\f0-9a-fA-F]/
{ debug($thisline, @item); $return = join '', @item[1..2] }
escaped_nl: '\\' nl
CSS-Orientation
view release on metacpan or search on metacpan
lib/CSS/Orientation.pm view on Meta::CPAN
our $HEX = q'[0-9a-f]';
# nonascii [\200-\377]
our $NON_ASCII = q'[\200-\377]';
# unicode \\{h}{1,6}(\r\n|[ \t\r\n\f])?
our $UNICODE = q'(?:(?:\\' . $HEX . q'{1,6})(?:\r\n|[ \t\r\n\f])?)';
# escape {unicode}|\\[^\r\n\f0-9a-f]
our $ESCAPE = q'(?:' . $UNICODE . q'|\\[^\r\n\f0-9a-f])';
# nmstart [_a-z]|{nonascii}|{escape}
our $NMSTART = q'(?:[_a-z]|' . $NON_ASCII . q'|' . $ESCAPE . q')';
CSS-Prepare
view release on metacpan or search on metacpan
lib/CSS/Prepare.pm view on Meta::CPAN
use constant RE_MATCH_HOSTNAME => qr{^ ( http s? : // [^/]+ ) /? .* $}x;
use constant RE_MATCH_DIRECTORY => qr{^ (.*?) (?: / [^/]* )? $}x;
use constant NOT_VENDOR_PREFIX => qw(
background border empty font letter
list margin padding page table
text unicode white z
);
my @MODULES = qw(
Background
Border
CSS-SAC
view release on metacpan or search on metacpan
$RE_IDENT = qr/
(?:(?:\\(?:(?:[a-fA-F0-9]{1,6}[\t\x20])|[ \x32-\xff]))|[a-zA-Z\x80-\xff])
(?:(?:\\(?:(?:[a-fA-F0-9]{1,6}[\t\x20])|[ \x32-\xff]))|[a-zA-Z\x80-\xff0-9_-])*
/xs;
# matches a unicode range
$RE_RANGE = qr/(?:
(?:U\+)
(?:
(?:[0-9a-fA-F]{1,6}-[0-9a-fA-F]{1,6})
|
else {
$type = INTEGER;
}
}
# unicode range
elsif ($$css =~ s/^($RE_RANGE)//) {
$value = $1;
$text = 'unicode-range';
$type = UNICODERANGE;
}
# hex rgb
elsif ($$css =~ s/^#([0-9a-fA-F]{6}|[0-9a-fA-F]{3})//) {
CSS-Sass
view release on metacpan or search on metacpan
t/04_xs_value_types.t
t/05_source_maps.t
t/06_sass_import.t
t/07_custom_importer.t
t/08_sass_to_scss.t
t/09_unicode.t
t/98_sass_srcmaps.t
t/99_sass_specs.t
t/inc/_colors.scss
t/inc/sass/comment.sass
t/inc/sass/pretty.sass
t/sass-spec/spec/libsass/css-import/expected.compact.css
t/sass-spec/spec/libsass/css-import/expected.compressed.css
t/sass-spec/spec/libsass/css-import/expected.expanded.css
t/sass-spec/spec/libsass/css-import/expected_output.css
t/sass-spec/spec/libsass/css-import/input.scss
t/sass-spec/spec/libsass/css_unicode/expected.compact.css
t/sass-spec/spec/libsass/css_unicode/expected.compressed.css
t/sass-spec/spec/libsass/css_unicode/expected.expanded.css
t/sass-spec/spec/libsass/css_unicode/expected_output.css
t/sass-spec/spec/libsass/css_unicode/input.scss
t/sass-spec/spec/libsass/div/expected.compact.css
t/sass-spec/spec/libsass/div/expected.compressed.css
t/sass-spec/spec/libsass/div/expected.expanded.css
t/sass-spec/spec/libsass/div/expected_output.css
t/sass-spec/spec/libsass/div/input.scss
t/sass-spec/spec/misc/trailing_comma_in_selector/expected.compact.css
t/sass-spec/spec/misc/trailing_comma_in_selector/expected.compressed.css
t/sass-spec/spec/misc/trailing_comma_in_selector/expected.expanded.css
t/sass-spec/spec/misc/trailing_comma_in_selector/expected_output.css
t/sass-spec/spec/misc/trailing_comma_in_selector/input.scss
t/sass-spec/spec/misc/unicode_variables/expected.compact.css
t/sass-spec/spec/misc/unicode_variables/expected.compressed.css
t/sass-spec/spec/misc/unicode_variables/expected.expanded.css
t/sass-spec/spec/misc/unicode_variables/expected_output.css
t/sass-spec/spec/misc/unicode_variables/input.scss
t/sass-spec/spec/number-functions/abs/expected.compact.css
t/sass-spec/spec/number-functions/abs/expected.compressed.css
t/sass-spec/spec/number-functions/abs/expected.expanded.css
t/sass-spec/spec/number-functions/abs/expected_output.css
t/sass-spec/spec/number-functions/abs/input.scss
t/sass-spec/spec/scss-tests/004_test_variables/expected.compact.css
t/sass-spec/spec/scss-tests/004_test_variables/expected.compressed.css
t/sass-spec/spec/scss-tests/004_test_variables/expected.expanded.css
t/sass-spec/spec/scss-tests/004_test_variables/expected_output.css
t/sass-spec/spec/scss-tests/004_test_variables/input.scss
t/sass-spec/spec/scss-tests/005_test_unicode_variables/expected.compact.css
t/sass-spec/spec/scss-tests/005_test_unicode_variables/expected.compressed.css
t/sass-spec/spec/scss-tests/005_test_unicode_variables/expected.expanded.css
t/sass-spec/spec/scss-tests/005_test_unicode_variables/expected_output.css
t/sass-spec/spec/scss-tests/005_test_unicode_variables/input.scss
t/sass-spec/spec/scss-tests/006_test_guard_assign/expected.compact.css
t/sass-spec/spec/scss-tests/006_test_guard_assign/expected.compressed.css
t/sass-spec/spec/scss-tests/006_test_guard_assign/expected.expanded.css
t/sass-spec/spec/scss-tests/006_test_guard_assign/expected_output.css
t/sass-spec/spec/scss-tests/006_test_guard_assign/input.scss
CSS-Selector-Grammar
view release on metacpan or search on metacpan
lib/CSS/Selector/Grammar.pm view on Meta::CPAN
<token: ident> [-]?<.nmstart><.nmchar>*
<token: name> <.nmchar>+
<token: nmstart> [_a-zA-Z]|<.nonascii>|<.escape>
<token: nonascii> [^\0-\177]
<token: unicode> \\[0-9a-fA-F]{1,6}(?:\r\n|[ \n\r\t\f])?+
<token: escape> <.unicode>|\\[^\n\r\f0-9a-f]
<token: nmchar> [_a-zA-Z0-9-]|<.nonascii>|<.escape>
<token: num> [0-9]+|[0-9]*\.[0-9]++
<token: string> <.string1>|<.string2>
<token: string1> \"(?:[^\n\r\f\\"]|\\<.nl>|<.nonascii>|<.escape>)*+\"
<token: string2> \'(?:[^\n\r\f\\']|\\<.nl>|<.nonascii>|<.escape>)*+\'
CSS
view release on metacpan or search on metacpan
CSS/Parse/CompiledGrammar.pm view on Meta::CPAN
$_[1] = $text;
return $return;
}
# ARGS ARE: ($parser, $text; $repeating, $_noactions, \@args)
sub Parse::RecDescent::CSS::Parse::CompiledGrammar::macro_unicode
{
my $thisparser = $_[0];
use vars q{$tracelevel};
local $tracelevel = ($tracelevel||0)+1;
$ERRORS = 0;
my $thisrule = $thisparser->{"rules"}{"macro_unicode"};
Parse::RecDescent::_trace(q{Trying rule: [macro_unicode]},
Parse::RecDescent::_tracefirst($_[1]),
q{macro_unicode},
$tracelevel)
if defined $::RD_TRACE;
my $err_at = @{$thisparser->{errors}};
CSS/Parse/CompiledGrammar.pm view on Meta::CPAN
while (!$_matched && !$commit)
{
Parse::RecDescent::_trace(q{Trying production: [/\\[0-9a-f]\{1,6\}[ \\n\\r\\t\\f]?/]},
Parse::RecDescent::_tracefirst($_[1]),
q{macro_unicode},
$tracelevel)
if defined $::RD_TRACE;
my $thisprod = $thisrule->{"prods"}[0];
$text = $_[1];
my $_savetext;
@item = (q{macro_unicode});
%item = (__RULE__ => q{macro_unicode});
my $repcount = 0;
Parse::RecDescent::_trace(q{Trying terminal: [/\\[0-9a-f]\{1,6\}[ \\n\\r\\t\\f]?/]}, Parse::RecDescent::_tracefirst($text),
q{macro_unicode},
$tracelevel)
if defined $::RD_TRACE;
$lastsep = "";
$expectation->is(q{})->at($text);
CSS/Parse/CompiledGrammar.pm view on Meta::CPAN
push @item, $item{__PATTERN1__}=$current_match;
Parse::RecDescent::_trace(q{Trying action},
Parse::RecDescent::_tracefirst($text),
q{macro_unicode},
$tracelevel)
if defined $::RD_TRACE;
$_tok = ($_noactions) ? 0 : do {$return = $item[1]};
CSS/Parse/CompiledGrammar.pm view on Meta::CPAN
Parse::RecDescent::_trace(q{>>Matched production: [/\\[0-9a-f]\{1,6\}[ \\n\\r\\t\\f]?/]<<},
Parse::RecDescent::_tracefirst($text),
q{macro_unicode},
$tracelevel)
if defined $::RD_TRACE;
$_matched = 1;
last;
}
CSS/Parse/CompiledGrammar.pm view on Meta::CPAN
$_[1] = $text; # NOT SURE THIS IS NEEDED
Parse::RecDescent::_trace(q{<<Didn't match rule>>},
Parse::RecDescent::_tracefirst($_[1]),
q{macro_unicode},
$tracelevel)
if defined $::RD_TRACE;
return undef;
}
if (!defined($return) && defined($score))
{
Parse::RecDescent::_trace(q{>>Accepted scored production<<}, "",
q{macro_unicode},
$tracelevel)
if defined $::RD_TRACE;
$return = $score_return;
}
splice @{$thisparser->{errors}}, $err_at;
$return = $item[$#item] unless defined $return;
if (defined $::RD_TRACE)
{
Parse::RecDescent::_trace(q{>>Matched rule<< (return value: [} .
$return . q{])}, "",
q{macro_unicode},
$tracelevel);
Parse::RecDescent::_trace(q{(consumed: [} .
Parse::RecDescent::_tracemax(substr($_[1],0,-length($text))) . q{])},
Parse::RecDescent::_tracefirst($text),
, q{macro_unicode},
$tracelevel)
}
$_[1] = $text;
return $return;
}
CSS/Parse/CompiledGrammar.pm view on Meta::CPAN
my @arg = defined $_[4] ? @{ &{$_[4]} } : ();
my %arg = ($#arg & 01) ? @arg : (@arg, undef);
my $text;
my $lastsep="";
my $current_match;
my $expectation = new Parse::RecDescent::Expectation(q{macro_unicode, or /\\\\[ -~\\200-\\4177777]/});
$expectation->at($_[1]);
my $thisline;
tie $thisline, q{Parse::RecDescent::LineCounter}, \$text, $thisparser;
while (!$_matched && !$commit)
{
Parse::RecDescent::_trace(q{Trying production: [macro_unicode]},
Parse::RecDescent::_tracefirst($_[1]),
q{macro_escape},
$tracelevel)
if defined $::RD_TRACE;
my $thisprod = $thisrule->{"prods"}[0];
CSS/Parse/CompiledGrammar.pm view on Meta::CPAN
@item = (q{macro_escape});
%item = (__RULE__ => q{macro_escape});
my $repcount = 0;
Parse::RecDescent::_trace(q{Trying subrule: [macro_unicode]},
Parse::RecDescent::_tracefirst($text),
q{macro_escape},
$tracelevel)
if defined $::RD_TRACE;
if (1) { no strict qw{refs};
$expectation->is(q{})->at($text);
unless (defined ($_tok = Parse::RecDescent::CSS::Parse::CompiledGrammar::macro_unicode($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
{
Parse::RecDescent::_trace(q{<<Didn't match subrule: [macro_unicode]>>},
Parse::RecDescent::_tracefirst($text),
q{macro_escape},
$tracelevel)
if defined $::RD_TRACE;
$expectation->failed();
last;
}
Parse::RecDescent::_trace(q{>>Matched subrule: [macro_unicode]<< (return value: [}
. $_tok . q{]},
Parse::RecDescent::_tracefirst($text),
q{macro_escape},
$tracelevel)
if defined $::RD_TRACE;
$item{q{macro_unicode}} = $_tok;
push @item, $_tok;
}
Parse::RecDescent::_trace(q{Trying action},
CSS/Parse/CompiledGrammar.pm view on Meta::CPAN
push @item, $_tok;
$item{__ACTION1__}=$_tok;
Parse::RecDescent::_trace(q{>>Matched production: [macro_unicode]<<},
Parse::RecDescent::_tracefirst($text),
q{macro_escape},
$tracelevel)
if defined $::RD_TRACE;
$_matched = 1;
CSS/Parse/CompiledGrammar.pm view on Meta::CPAN
],
'name' => '_alternation_1_of_production_1_of_rule_macro_string1',
'vars' => '',
'line' => 109
}, 'Parse::RecDescent::Rule' ),
'macro_unicode' => bless( {
'impcount' => 0,
'calls' => [],
'changed' => 0,
'opcount' => 0,
'prods' => [
CSS/Parse/CompiledGrammar.pm view on Meta::CPAN
}, 'Parse::RecDescent::Action' )
],
'line' => undef
}, 'Parse::RecDescent::Production' )
],
'name' => 'macro_unicode',
'vars' => '',
'line' => 89
}, 'Parse::RecDescent::Rule' ),
'_alternation_1_of_production_2_of_rule_URI' => bless( {
'impcount' => 0,
CSS/Parse/CompiledGrammar.pm view on Meta::CPAN
'line' => 25
}, 'Parse::RecDescent::Rule' ),
'macro_escape' => bless( {
'impcount' => 0,
'calls' => [
'macro_unicode'
],
'changed' => 0,
'opcount' => 0,
'prods' => [
bless( {
CSS/Parse/CompiledGrammar.pm view on Meta::CPAN
'error' => undef,
'patcount' => 0,
'actcount' => 1,
'items' => [
bless( {
'subrule' => 'macro_unicode',
'matchrule' => 0,
'implicit' => undef,
'argcode' => undef,
'lookahead' => 0,
'line' => 90
CWB-CQP-More
view release on metacpan or search on metacpan
0.04 2011-01-24
- added iterator module
0.03 2010-12-20
- use POSIX::Open3 instead of IPC::Open3
- added unicode support
0.02 2010-11-25
- Added size method;
- Added cat method;
CWB
view release on metacpan or search on metacpan
t/44_ceql_bncweb.t view on Meta::CPAN
# BNCweb::CEQL expects its input to be in the canonical BNCweb encoding, i.e. Latin-1 + HTML entities;
# the "default" rule first converts the input to a Perl Unicode string, and then re-encodes the resulting CQP query in Latin-1
sub default {
my ($self, $input) = @_;
my $unicode = decode("iso-8859-1", $input);
##-- # the real implementation uses the HTML::Entities module to decode HTML entities
##-- decode_entities($unicode);
# here, dummy rules covering all entities in the test suite help us to avoid a dependency on the non-standard HTML::Entities module
$unicode =~ s/\é/\x{E9}/g;
$unicode =~ s/\à/\x{E0}/g;
$unicode =~ s/\£/\x{A3}/g;
$unicode =~ s/\α/\x{03B1}/g;
$unicode =~ s/\♥/\x{2665}/g;
$unicode =~ s/\δ/\x{03B4}/g;
# end of dummy rules
my $cqp_unicode = $self->Call("ceql_query", $unicode);
return encode("iso-8859-1", $cqp_unicode, Encode::FB_CROAK);
}
# override literal_string rule to insert HTML entities (for non-Latin-1 characters and special treatment of ")
sub literal_string {
my ($self, $input) = @_;
Cache-Memcached-Fast
view release on metacpan or search on metacpan
lib/Cache/Memcached/Fast.pm view on Meta::CPAN
The value is a boolean which enables (true) or disables (false) the
conversion of Perl character strings to octet sequences in UTF-8
encoding on store, and the reverse conversion on fetch (when the
retrieved data is marked as being UTF-8 octet sequence). See
L<perlunicode|perlunicode>.
=item I<max_size>
max_size => 512 * 1024
(default: 1024 * 1024)
Cache-Memcached-XS
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
Cache-RedisDB
view release on metacpan or search on metacpan
is(Cache::RedisDB->get("NonExistent", "Key"), undef, "Got undef value for non-existing key");
ok(Cache::RedisDB->set("This", "expires", "In a second", 1), "Set with expire");
ok(Cache::RedisDB->set("Even this", "é”®", "Oops...", 0.5), "Spaces and utf8 in keys are Ok");
is(Cache::RedisDB->get("Even this", "é”®"), "Oops...", "Got value for unicode key");
sleep 1;
is(Cache::RedisDB->get("Even this", "é”®"), undef, "unicode key value expired in 1s");
cmp_ok(Cache::RedisDB->ttl('Test', 'TTL'), '<=', 59, 'Our TTL key still exists and expiring in the future');
cmp_ok(Cache::RedisDB->ttl('Test', 'TTL2'), '==', 0, 'Our non-existent TTL key expires "now"');
$cache->set("Test::Number", -33);
is(Cache::RedisDB->get("Test", "Number"), -33, "Got negative number from cache");
Cache-Swifty
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
Cache-utLRU
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
Cairo
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|||
CallBackery
view release on metacpan or search on metacpan
lib/CallBackery/Database.pm view on Meta::CPAN
$sql->options({
RaiseError => 1,
PrintError => 0,
AutoCommit => 1,
ShowErrorStatement => 1,
sqlite_unicode => 1,
FetchHashKeyName=>'NAME_lc',
});
$sql->on(connection => sub ($sql, $dbh) {
$dbh->do('PRAGMA foreign_keys = ON;');
Capstone
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
Capture-Tiny-Extended
view release on metacpan or search on metacpan
t/lib/Cases.pm view on Meta::CPAN
else { is( $g, $e, $l ); }
}
sub _binmode {
my $text = shift;
return $text eq 'unicode' ? 'binmode(STDOUT,q{:utf8}); binmode(STDERR,q{:utf8});' : '';
}
sub _set_utf8 {
my $t = shift;
return unless $t eq 'unicode';
my %seen;
my @orig_layers = grep {$_ ne 'unix' and $_ ne 'perlio' and $seen{$_}++} PerlIO::get_layers(\*STDOUT);
binmode(STDOUT, ":utf8") if fileno(STDOUT);
binmode(STDERR, ":utf8") if fileno(STDERR);
return @orig_layers;
}
sub _restore_layers {
my ($t, @orig_layers) = @_;
return unless $t eq 'unicode';
binmode(STDOUT, join( ":", "", "raw", @orig_layers)) if fileno(STDOUT);
binmode(STDERR, join( ":", "", "raw", @orig_layers)) if fileno(STDERR);
}
#--------------------------------------------------------------------------#
my %texts = (
short => 'Hello World',
multiline => 'First line\nSecond line\n',
( $] lt "5.008" ? () : ( unicode => 'Hi! \x{263a}\n') ),
);
#--------------------------------------------------------------------------#
# fcn($perl_code_string) => execute the perl in current process or subprocess
#--------------------------------------------------------------------------#
Capture-Tiny
view release on metacpan or search on metacpan
t/lib/Cases.pm view on Meta::CPAN
else { is( $g, $e, $l ); }
}
sub _binmode {
my $text = shift;
return $text eq 'unicode' ? 'binmode(STDOUT,q{:utf8}); binmode(STDERR,q{:utf8});' : '';
}
sub _set_utf8 {
my $t = shift;
return unless $t eq 'unicode';
my %seen;
my @orig_layers = (
[ grep {$_ ne 'unix' and $_ ne 'perlio' and $seen{stdout}{$_}++} PerlIO::get_layers(\*STDOUT) ],
[ grep {$_ ne 'unix' and $_ ne 'perlio' and $seen{stderr}{$_}++} PerlIO::get_layers(\*STDERR) ],
);
t/lib/Cases.pm view on Meta::CPAN
return @orig_layers;
}
sub _restore_layers {
my ($t, @orig_layers) = @_;
return unless $t eq 'unicode';
binmode(STDOUT, join( ":", "", "raw", @{$orig_layers[0]})) if fileno(STDOUT);
binmode(STDERR, join( ":", "", "raw", @{$orig_layers[1]})) if fileno(STDERR);
}
#--------------------------------------------------------------------------#
my %texts = (
short => 'Hello World',
multiline => 'First line\nSecond line\n',
( "$]" < 5.008 ? () : ( unicode => 'Hi! \x{263a}\n') ),
);
#--------------------------------------------------------------------------#
# fcn($perl_code_string) => execute the perl in current process or subprocess
#--------------------------------------------------------------------------#
t/lib/Cases.pm view on Meta::CPAN
};
next;
}
for my $c ( keys %channels ) {
for my $t ( keys %texts ) {
next if $t eq 'unicode' && $skip_utf8;
my @orig_layers = _set_utf8($t);
local $TODO = "not supported on all platforms"
if $t eq $todo;
$tests{$test_type}{test}->($m, $c, $t, $test_type);
_restore_layers($t, @orig_layers);
Carp
view release on metacpan or search on metacpan
lib/Carp.pm view on Meta::CPAN
# regexp can't be used.
BEGIN {
*is_safe_printable_codepoint =
"$]" >= 5.007_003 ?
eval(q(sub ($) {
my $u = utf8::native_to_unicode($_[0]);
$u >= 0x20 && $u <= 0x7e;
}))
: ord("A") == 65 ?
sub ($) { $_[0] >= 0x20 && $_[0] <= 0x7e }
:
Cassandra-Client
view release on metacpan or search on metacpan
padnamelist_free|||
parse_body|||
parse_gv_stash_name|||
parse_ident|||
parse_lparen_question_flags|||
parse_unicode_opts|||
parse_uniprop_string|||
parser_dup|||
parser_free_nexttoke_ops|||
parser_free|||
path_is_searchable|||n
#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
Catalyst-Authentication-Store-LDAP
view release on metacpan or search on metacpan
lib/Catalyst/Authentication/Store/LDAP/Backend.pm view on Meta::CPAN
}
eval { Catalyst::Utils::ensure_class_loaded( $self->entry_class ) };
if ( !$@ ) {
bless( $userentry, $self->entry_class );
$userentry->{_use_unicode}++;
}
my $rv = {
'ldap_entry' => $userentry,
'attributes' => $attrhash,
};
Catalyst-Controller-Combine
view release on metacpan or search on metacpan
lib/Catalyst/Controller/Combine.pm view on Meta::CPAN
# therefore, we check as late as possible
$dir->subsumes($file_path->resolve)
or die 'security violation - tried to access file outside of: '
. $self->dir();
# looks like we are secure -- are there any secret unicodes
# we forgot to double-check? *g*
push @{$self->{parts}}, $base_name;
push @{$self->{files}}, $file_path;
$self->{seen}->{$base_name} = $depends;
Catalyst-Controller-HTML-FormFu
view release on metacpan or search on metacpan
;badges = gitlab_ci
;badges = gitlab_cover
[Encoding]
encoding = bytes
match = \.png$ ; PNG files are not unicode
( run in 0.668 second using v1.01-cache-2.11-cpan-39bf76dae61 )