Result:
found more than 821 distributions - search limited to the first 2001 files matching your query
( run in 0.859 )
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>)*+\'
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
Catalyst-Controller-Mobile-JP
view release on metacpan or search on metacpan
lib/Catalyst/Controller/Mobile/JP.pm view on Meta::CPAN
Catalyst::Controller::Mobile::JP works as a base controller
that automatically decode()/encode() with the recommended encoding
lead from values of UserAgent.
You can use unicode in your app that includes cross-carrier pictograms.
ã“ã®ãƒ¢ã‚¸ãƒ¥ãƒ¼ãƒ«ã¯ Catalyst::Controller ã§ã€SYNOPSIS ã«ã‚るよã†ã«ä½¿ã„ã¾ã™ã€‚
C<begin> 㧠C<< $c->req->params >> ã® Encode::decode()ã€C<end> ã§
C<< $c->res->body >> ã® Encode::encode() ã‚’è¡Œãªã„ã¾ã™ã€‚
Catalyst-Controller-POD
view release on metacpan or search on metacpan
share/ext/resources/css/ext-all.css view on Meta::CPAN
.x-panel-reset .x-panel-body center { text-align: center }
.x-panel-reset .x-panel-body :link, .x-panel-reset .x-panel-body :visited { text-decoration: underline }
.x-panel-reset .x-panel-body :focus { outline: invert dotted thin }
/* Begin bidirectionality settings (do not change) */
.x-panel-reset .x-panel-body BDO[DIR="ltr"] { direction: ltr; unicode-bidi: bidi-override }
.x-panel-reset .x-panel-body BDO[DIR="rtl"] { direction: rtl; unicode-bidi: bidi-override }
.x-window {
zoom:1;
}
.x-window .x-window-handle {
Catalyst-Controller-SimpleCAS
view release on metacpan or search on metacpan
lib/Catalyst/Controller/SimpleCAS/Role/TextTranscode.pm view on Meta::CPAN
## New: throw the kitchen sink at trying to figure out the charset/encoding
##
## This solves the long-standing problem where MHT files saved by Word 2010
## would load garbled. These files are encoded as 'UTF-16LE', and the system
## is not able to realize this out of the box (I think because it lists the
## the charset ambiguously as ' charset="unicode" ' in the Content-Type
## MIME header, but I'm no expert on Unicode). Below we're basically trying
## all of the functions of HTML::Encoding until we find one that gives us
## an answer, and if we do get an answer, we apply it to the MIME object before
## calling ->body_str() which will then use it to decode to text.
##
Catalyst-Engine-Apache
view release on metacpan or search on metacpan
t/lib/TestApp/Controller/Engine/Request/URI.pm view on Meta::CPAN
sub uri_with_utf8 : Local {
my ( $self, $c ) = @_;
# change the current uri
my $uri = $c->req->uri_with( { unicode => "\x{2620}" } );
$c->res->header( 'X-Catalyst-uri-with' => "$uri" );
$c->forward('TestApp::View::Dump::Request');
}
Catalyst-Engine-HTTP-POE
view release on metacpan or search on metacpan
t/lib/TestApp/Controller/Engine/Request/URI.pm view on Meta::CPAN
sub uri_with_utf8 : Local {
my ( $self, $c ) = @_;
# change the current uri
my $uri = $c->req->uri_with( { unicode => "\x{2620}" } );
$c->res->header( 'X-Catalyst-uri-with' => "$uri" );
$c->forward('TestApp::View::Dump::Request');
}
Catalyst-Engine-HTTP-Prefork
view release on metacpan or search on metacpan
t/lib/TestApp/Controller/Engine/Request/URI.pm view on Meta::CPAN
sub uri_with_utf8 : Local {
my ( $self, $c ) = @_;
# change the current uri
my $uri = $c->req->uri_with( { unicode => "\x{2620}" } );
$c->res->header( 'X-Catalyst-uri-with' => "$uri" );
$c->forward('TestApp::View::Dump::Request');
}
Catalyst-Model-WebService-MyGengo
view release on metacpan or search on metacpan
inc/Pod/Markdown.pm view on Meta::CPAN
if ($section){
# TODO: sites/pod formatters differ on how to transform the section
# TODO: we could do it according to specified url prefix or pod formatter
# TODO: or allow a coderef?
# TODO: (Pod::Simple::XHTML:idify() for metacpan)
# TODO: (Pod::Simple::HTML section_escape/unicode_escape_url/section_url_escape for s.c.o.)
$url .= '#' . $section;
}
}
# if we don't know how to handle the url just print the pod back out
Catalyst-Plugin-Authorization-Abilities
view release on metacpan or search on metacpan
t/lib/Schema/Utils.pm view on Meta::CPAN
sub _connect_info {
my $self = shift;
my $model = $self->model;
my ($dsn, $user, $password, $unicode_option, $db_type);
eval {
if (ref $model->{'connect_info'}) {
$dsn = $self->dsn;
$user = ${$model->{'connect_info'}}[1];
$password = ${$model->{'connect_info'}}[2];
# Determine database type amongst: SQLite, Pg or MySQL
$dsn =~ m/^dbi:(\w+)/;
$db_type = lc($1);
my %unicode_connection_for_db = (
'sqlite' => { sqlite_unicode => 1 },
'pg' => { pg_enable_utf8 => 1 },
'mysql' => { mysql_enable_utf8 => 1 },
);
$unicode_option = $unicode_connection_for_db{$db_type};
}
};
if ($@) {
die "Your DSN line in " . $self->dsn . " doesn't look like a valid DSN. : $@";
t/lib/Schema/Utils.pm view on Meta::CPAN
my $dir = dir($1)->parent;
$dir->mkpath;
}
my $merge = Hash::Merge->new( 'LEFT_PRECEDENT' );
my $allattrs = $merge->merge( $unicode_option, $attrs );
return $dsn, $user, $password, $allattrs;
}
( run in 0.859 second using v1.01-cache-2.11-cpan-88abd93f124 )