Result:
found more than 809 distributions - search limited to the first 2001 files matching your query
( run in 0.809 )
Colon-Config
view release on metacpan or search on metacpan
parser_free|5.009005||Viu
parser_free_nexttoke_ops|5.017006||Viu
parse_stmtseq|5.013006|5.013006|x
parse_subsignature|5.031003|5.031003|x
parse_termexpr|5.013008|5.013008|x
parse_unicode_opts|5.008001||Viu
parse_uniprop_string|5.027011||Viu
PATCHLEVEL|5.003007||Viu
path_is_searchable|5.019001||Vniu
Pause|5.003007||Viu
pause|5.005000||Viu
PL_tokenbuf||5.003007|ponu
PL_top_env|5.005000||Viu
PL_toptarget|5.005000||Viu
PL_TR_SPECIAL_HANDLING_UTF8|5.031006||Viu
PL_underlying_numeric_obj|5.027009||Viu
PL_unicode|5.008001||Viu
PL_unitcheckav|5.009005||Viu
PL_unitcheckav_save|5.009005||Viu
PL_unlockhook|5.007003||Viu
PL_unsafe|5.005000||Viu
PL_UpperLatin1|5.019005||Viu
#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
Compress-Bzip2
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
Compress-DSRC
view release on metacpan or search on metacpan
src/ppport.h view on Meta::CPAN
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|||
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
Compress-Deflate7
view release on metacpan or search on metacpan
7zip/CPP/7zip/Archive/Cab/CabHandler.cpp view on Meta::CPAN
const CItem &item = db.Items[itemIndex];
switch(propID)
{
case kpidPath:
{
UString unicodeName;
if (item.IsNameUTF())
ConvertUTF8ToUnicode(item.Name, unicodeName);
else
unicodeName = MultiByteToUnicodeString(item.Name, CP_ACP);
prop = (const wchar_t *)NItemName::WinNameToOSName(unicodeName);
break;
}
case kpidIsDir: prop = item.IsDir(); break;
case kpidSize: prop = item.Size; break;
case kpidAttrib: prop = item.GetWinAttributes(); break;
Compress-Huffman-Binary
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
Compress-LZ4Frame
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
Compress-LZString
view release on metacpan or search on metacpan
t/Compress-LZString.t view on Meta::CPAN
skip($]<5.010, $ascii, decompress(compress($ascii)));
ok ( $ascii, decompress_b64(compress_b64($ascii)));
ok ( $ascii, decompress_b64_safe(compress_b64_safe($ascii)));
# unicode
local $/ = undef;
my $unicode = <DATA>;
skip($]<5.010, $unicode, decompress(compress($unicode)));
skip($]<5.008, $unicode, decompress_b64(compress_b64($unicode)));
skip($]<5.008, $unicode, decompress_b64_safe(compress_b64_safe($unicode)));
__DATA__
MÄ›sÃÄku na nebi hlubokém,
svÄ›tlo tvé daleko vidÃ,
po svÄ›tÄ› bloudÃÅ¡ Å¡irokém,
Compress-LZW-Progressive
view release on metacpan or search on metacpan
my $codec = Compress::LZW::Progressive->new( bits => 12, debug => 0 );
isa_ok($codec, 'Compress::LZW::Progressive');
SKIP: {
## Convert an encoded string into unicode
eval {
require MIME::Words;
require Encode;
require Unicode::Transform;
}
$new_str .= $decode_ref->[0];
}
$str = $new_str;
# Decode utf8 code pairs to wide unicode
my $unicode;
# May throw exception 'Wide character in subroutine entry'
eval {
$unicode = utf8_to_unicode($str);
};
if ($@) {
$str = $@;
}
else {
# Convert wide chars into XML entities
$unicode =~ s/(.)/ord($1) > 255 ? "&#" . ord($1) . ";" : $1/eg;
$str = $unicode;
}
# Finally, XML 1.0 doesn't allow any bare or escaped control codes
$str =~ s/(.)/ord($1) > 0 && ord($1) < 32 ? '' : $1/eg;
}
## Now pass this unicode string to the compressor
my $lzw = $codec->compress($str);
my $plain = $codec->decompress($lzw);
$codec->reset;
Compress-Raw-Bzip2
view release on metacpan or search on metacpan
parser_free|5.009005||Viu
parser_free_nexttoke_ops|5.017006||Viu
parse_stmtseq|5.013006|5.013006|x
parse_subsignature|5.031003|5.031003|x
parse_termexpr|5.013008|5.013008|x
parse_unicode_opts|5.008001||Viu
parse_uniprop_string|5.027011||Viu
PATCHLEVEL|5.003007||Viu
path_is_searchable|5.019001||Vniu
Pause|5.003007||Viu
pause|5.005000||Viu
PL_tokenbuf||5.003007|ponu
PL_top_env|5.005000||Viu
PL_toptarget|5.005000||Viu
PL_TR_SPECIAL_HANDLING_UTF8|5.031006||Viu
PL_underlying_numeric_obj|5.027009||Viu
PL_unicode|5.008001||Viu
PL_unitcheckav|5.009005||Viu
PL_unitcheckav_save|5.009005||Viu
PL_unlockhook|5.007003||Viu
PL_unsafe|5.005000||Viu
PL_UpperLatin1|5.019005||Viu
#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
Compress-Raw-Lzma
view release on metacpan or search on metacpan
parser_free|5.009005||Viu
parser_free_nexttoke_ops|5.017006||Viu
parse_stmtseq|5.013006|5.013006|x
parse_subsignature|5.031003|5.031003|x
parse_termexpr|5.013008|5.013008|x
parse_unicode_opts|5.008001||Viu
parse_uniprop_string|5.027011||Viu
PATCHLEVEL|5.003007||Viu
path_is_searchable|5.019001||Vniu
Pause|5.003007||Viu
pause|5.005000||Viu
PL_tokenbuf||5.003007|ponu
PL_top_env|5.005000||Viu
PL_toptarget|5.005000||Viu
PL_TR_SPECIAL_HANDLING_UTF8|5.031006||Viu
PL_underlying_numeric_obj|5.027009||Viu
PL_unicode|5.008001||Viu
PL_unitcheckav|5.009005||Viu
PL_unitcheckav_save|5.009005||Viu
PL_unlockhook|5.007003||Viu
PL_unsafe|5.005000||Viu
PL_UpperLatin1|5.019005||Viu
#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
Compress-Raw-Zlib
view release on metacpan or search on metacpan
parser_free|5.009005||Viu
parser_free_nexttoke_ops|5.017006||Viu
parse_stmtseq|5.013006|5.013006|x
parse_subsignature|5.031003|5.031003|x
parse_termexpr|5.013008|5.013008|x
parse_unicode_opts|5.008001||Viu
parse_uniprop_string|5.027011||Viu
PATCHLEVEL|5.003007||Viu
path_is_searchable|5.019001||Vniu
Pause|5.003007||Viu
pause|5.005000||Viu
PL_tokenbuf||5.003007|ponu
PL_top_env|5.005000||Viu
PL_toptarget|5.005000||Viu
PL_TR_SPECIAL_HANDLING_UTF8|5.031006||Viu
PL_underlying_numeric_obj|5.027009||Viu
PL_unicode|5.008001||Viu
PL_unitcheckav|5.009005||Viu
PL_unitcheckav_save|5.009005||Viu
PL_unlockhook|5.007003||Viu
PL_unsafe|5.005000||Viu
PL_UpperLatin1|5.019005||Viu
#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
Compress-Stream-Zstd
view release on metacpan or search on metacpan
parser_free|5.009005||Viu
parser_free_nexttoke_ops|5.017006||Viu
parse_stmtseq|5.013006|5.013006|x
parse_subsignature|5.031003|5.031003|x
parse_termexpr|5.013008|5.013008|x
parse_unicode_opts|5.008001||Viu
parse_uniprop_string|5.027011||Viu
PATCHLEVEL|5.003007||Viu
path_is_searchable|5.019001||Vniu
Pause|5.003007||Viu
pause|5.005000||Viu
PL_tokenbuf||5.003007|ponu
PL_top_env|5.005000||Viu
PL_toptarget|5.005000||Viu
PL_TR_SPECIAL_HANDLING_UTF8|5.031006||Viu
PL_underlying_numeric_obj|5.027009||Viu
PL_unicode|5.008001||Viu
PL_unitcheckav|5.009005||Viu
PL_unitcheckav_save|5.009005||Viu
PL_unlockhook|5.007003||Viu
PL_unsafe|5.005000||Viu
PL_UpperLatin1|5.019005||Viu
#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
Compress-Zopfli
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
Compress-Zstd
view release on metacpan or search on metacpan
parser_free|5.009005||Viu
parser_free_nexttoke_ops|5.017006||Viu
parse_stmtseq|5.013006|5.013006|x
parse_subsignature|5.031003|5.031003|x
parse_termexpr|5.013008|5.013008|x
parse_unicode_opts|5.008001||Viu
parse_uniprop_string|5.027011||cViu
path_is_searchable|5.019001||nViu
peep|5.003007||Viu
pending_ident|5.017004||Viu
PERL_ABS|5.008001|5.003007|p
#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
Compress-unLZMA
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
Concierge-Users
view release on metacpan or search on metacpan
lib/Concierge/Users/Database.pm view on Meta::CPAN
# Connect to database
my $dbh = DBI->connect($dsn, '', '', {
RaiseError => 0,
AutoCommit => 1,
PrintError => 0,
sqlite_unicode => 1,
});
unless ($dbh) {
return {
success => 0,
lib/Concierge/Users/Database.pm view on Meta::CPAN
# Connect to database
my $dbh = DBI->connect($dsn, '', '', {
RaiseError => 0,
AutoCommit => 1,
PrintError => 0,
sqlite_unicode => 1,
});
unless ($dbh) {
croak sprintf(
"Database backend connection failed:\n" .
Cond-Expr
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
Conf-Libconfig
view release on metacpan or search on metacpan
t/02-read.t view on Meta::CPAN
{
"port"=>5000,
"pi"=>"3.14159265",
"enabled"=>0,
"mask"=>-1430532899,
"unicode"=>"STARGΛ̊TE SG-1",
"bigint"=>9223372036854775807,
"bighex"=>1234605616436508552,
},
"value for list - status ok",
);
Config-Any-Properties
view release on metacpan or search on metacpan
perlcritic.rc view on Meta::CPAN
severity = 1
color = 1
verbose = 9
theme = (bangs || bugs || complexity || core || cosmetic || danger || lax || maintenance || moose || pbp || performance || portability || pulp || readability || security || strictersubs || swift || tests || unicode) && (! (compatibility || deprecated...
exclude = RequireTidyCode RequirePodSections ProhibitPostfixControls RequireRcsKeywords RequireExplicitPackage Moose::ProhibitMultipleWith RequirePodLinksIncludeText Documentation::RequirePodAtEnd ValuesAndExpressions::ProhibitVersionStrings Bangs::P...
include = Moose::ProhibitNewMethod Moose::RequireCleanNamespace Moose::RequireMakeImmutable
[Bangs::ProhibitVagueNames]
Config-Augeas
view release on metacpan or search on metacpan
lib/Config/ppport.h view on Meta::CPAN
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|||
Config-Format-Ini
view release on metacpan or search on metacpan
Debian_CPANTS.txt view on Meta::CPAN
"libtoolkit-perl", "Toolkit", "0.0.2", "0", "0"
"libtree-dagnode-perl", "Tree-DAG_Node", "1.06", "0", "0"
"libtree-redblack-perl", "Tree-RedBlack", "0.3", "0", "0"
"libtree-simple-perl", "Tree-Simple", "1.18", "0", "0"
"libtree-simple-visitorfactory-perl", "Tree-Simple-VisitorFactory", "0.10", "0", "0"
"libunicode-map-perl", "Unicode-Map", "0.112", "0", "1"
"libunicode-map8-perl-dfsg", "Unicode-Map8", "0.12", "0", "2"
"libunicode-maputf8-perl", "Unicode-MapUTF8", "1.11", "0", "0"
"libunicode-string-perl", "Unicode-String", "2.09", "0", "0"
"libuniversal-can-perl", "UNIVERSAL-can", "1.12", "0", "0"
"libuniversal-isa-perl", "UNIVERSAL-isa", "0.06", "0", "0"
"libuniversal-require-perl", "UNIVERSAL-require", "0.11", "0", "0"
"libunix-syslog-perl", "Unix-Syslog", "1.1", "0", "0"
"liburi-query-perl", "URI-Query", "0.06", "0", "0"
Config-IniFiles
view release on metacpan or search on metacpan
lib/Config/IniFiles.pm view on Meta::CPAN
}
}
# If there's a UTF BOM (Byte-Order-Mark) in the first
# character of the first line then remove it before processing
# ( http://www.unicode.org/unicode/faq/utf_bom.html#22 )
$s =~ s/\A//;
return $s;
}
else
Config-JSON-Enhanced
view release on metacpan or search on metacpan
lib/Config/JSON/Enhanced.pm view on Meta::CPAN
use warnings;
# which loads JSON::XS with a purel-perl JSON fallback
use JSON;
use Data::Roundtrip qw/json2perl perl2dump no-unicode-escape-permanently/;
use Exporter; # we have our own import() don't import it
our @ISA = qw(Exporter);
our @EXPORT = qw/
config2perl
lib/Config/JSON/Enhanced.pm view on Meta::CPAN
substituted, verbatim sections become one line again
and standard JSON is created. This is parsed with
L<JSON> (via L<Data::Roundtrip::json2perl>) to
produce a Perl data structure which is returned.
It has been tested with unicode data
(see C<t/070-config2perl-complex-utf8.t>)
with success. But who knows ?!?!
Here is an example:
Config-Maker
view release on metacpan or search on metacpan
lib/Config/Maker/Encode.pm view on Meta::CPAN
To fully support recoding, the modules L<Encode>, L<Encode::Alias>,
L<PerlIO::encoding> and L<I18N::Langinfo> must be available. If they are not,
dummy replacements are used as described above. In that case, C<Config::Maker>
will only work when all files are in the same default encoding and non-ascii
characters won't work in identifiers (since the data can't be internaly
translated to unicode).
=head1 AUTHOR
Jan Hudec <bulb@ucw.cz>
Config-Model-Systemd
view release on metacpan or search on metacpan
lib/Config/Model/models/Systemd/Common/Exec.pl view on Meta::CPAN
'description' => 'Similar to C<Environment>, but reads the environment variables from
a text file. The text file should contain newline-separated variable assignments. Empty lines, lines
without an C<=> separator, or lines starting with C<;> or
C<#> will be ignored, which may be used for commenting. The file must be encoded with
UTF-8. Valid characters are
L<unicode scalar values|https://www.unicode.org/glossary/#unicode_scalar_value>
other than
L<unicode noncharacters|https://www.unicode.org/glossary/#noncharacter>,
C<U+0000> C<NUL>, and C<U+FEFF>L<unicode byte order mark|https://www.unicode.org/glossary/#byte_order_mark>.
Control codes other than C<NUL> are allowed.
In the file, an unquoted value after the C<=> is parsed with the same backslash-escape
rules as L<POSIX shell unquoted
text|https://pubs.opengroup.org/onlinepubs/9699919799/utilities/V3_chap02.html#tag_18_02_01>, but unlike in a shell,
Config-Model-Xorg
view release on metacpan or search on metacpan
fallback_models/KeyboardOptRules.pl view on Meta::CPAN
],
{
'help' => {
'ben' => 'Bengali',
'tam' => 'Tamil',
'tam_unicode' => 'Tamil Unicode',
'mal' => 'Malayalam',
'guru' => 'Gurmukhi',
'kan' => 'Kannada',
'tam_TSCII' => 'Tamil TSCII Typewriter',
'guj' => 'Gujarati',
fallback_models/KeyboardOptRules.pl view on Meta::CPAN
'guj',
'guru',
'kan',
'mal',
'ori',
'tam_unicode',
'tam_TAB',
'tam_TSCII',
'tam',
'tel',
'urd'
fallback_models/KeyboardOptRules.pl view on Meta::CPAN
],
{
'help' => {
'alternatequotes' => 'With guillemots',
'latinyz' => 'Latin qwerty',
'latinunicodeyz' => 'Latin Unicode qwerty',
'latinalternatequotes' => 'Latin with guillemots',
'latinunicode' => 'Latin Unicode',
'latin' => 'Latin',
'yz' => 'Z and ZHE swapped'
},
'choice' => [
'yz',
'latin',
'latinunicode',
'latinyz',
'latinunicodeyz',
'alternatequotes',
'latinalternatequotes'
]
},
[
fallback_models/KeyboardOptRules.pl view on Meta::CPAN
'lk'
],
{
'help' => {
'tam_TSCII' => 'Tamil TSCII Typewriter',
'tam_unicode' => 'Tamil Unicode',
'sin_phonetic' => 'Sinhala phonetic',
'tam_TAB' => 'Tamil TAB Typewriter'
},
'choice' => [
'tam_unicode',
'tam_TAB',
'tam_TSCII',
'sin_phonetic'
]
},
Config-Model
view release on metacpan or search on metacpan
lib/Config/Model/TermUI.pm view on Meta::CPAN
#
package Config::Model::TermUI 2.162;
use Carp;
use utf8; # so literals and identifiers can be in UTF-8
use v5.20; # to get "unicode_strings" feature
use strict;
use warnings;
use open qw(:std :utf8); # undeclared streams in UTF-8
use Encode qw(decode_utf8);
Config-Multi
view release on metacpan or search on metacpan
lib/Config/Multi.pm view on Meta::CPAN
use base qw/Class::Accessor/;
our $VERSION = '0.12';
__PACKAGE__->mk_accessors(qw/app_name prefix dir files extension unicode/);
sub load {
my $self = shift;
my @files = ();
$self->{extension} ||= 'yml';
lib/Config/Multi.pm view on Meta::CPAN
$config = { %{$config}, %{ $local_config->{$_} } };
}
$self->{files} = \@files;
if ( $self->unicode ) {
my $rd = Unicode::RecursiveDowngrade->new;
$rd->filter(sub { Encode::decode('utf8',shift) });
$config = $rd->downgrade($config);
}
lib/Config/Multi.pm view on Meta::CPAN
use File::Spec;
use FindBin;
my $dir = File::Spec->catfile( $FindBin::Bin , 'conf' );
# prefix, extension and unicode is optional.
my $cm
= Config::Multi->new({
dir => $dir ,
app_name => 'myapp' ,
prefix => 'web' ,
extension => 'yml' ,
unicode => 1 # unicode option
});
my $config = $cm->load();
my $loaded_config_files = $cm->files;
=head1 DESCRIPTION
lib/Config/Multi.pm view on Meta::CPAN
instead of ${app_name}_local.yml , you can specify the path with $ENV{CONFIG_MULTI_MYAPP}
note. PREFIX = uc($prefix); MYAPP = uc($app_name)
=head2 unicode option
if you set true to unicode option, return $config of flagged UTF-8.
in the future, this option will also be posiible to default.
at least I would hope so.
=head1 METHODS
Config-Properties
view release on metacpan or search on metacpan
lib/Config/Properties.pm view on Meta::CPAN
}
# process_line() - read and parse a line from the properties file.
# this is to workaround a bug in perl 5.6.0 related to unicode
my $bomre = eval(q< qr/^\\x{FEFF}/ >) || qr//;
sub process_line {
my ($self, $file) = @_;
my $line = $self->read_line($file);
Config-Scoped
view release on metacpan or search on metacpan
lib/Config/Scoped.pm view on Meta::CPAN
#########################################################################
#
key : perl_code | token | perl_quote
value : perl_code | token | perl_quote
# everything unless separator characters, better than \w in unicode times
token : /[^ \s >< }{ )( [\] ; , ' " = # % ]+/x
perl_quote : .../"|'|<</ <perl_quotelike>
{
$thisparser->{local}{line} = $thisline;
( run in 0.809 second using v1.01-cache-2.11-cpan-39bf76dae61 )