Result:
found more than 514 distributions - search limited to the first 2001 files matching your query
( run in 2.149 )
CGI-Bus
view release on metacpan or search on metacpan
lib/CGI/Bus.pm view on Meta::CPAN
? keys(%$ugadd)
: $ugadd){
push @$r, $e if !grep /^\Q$e\E$/i, @$r
}
}
{ use locale;
$r =[sort {lc($a) cmp lc($b)} @$r];
}
$s->{-cache}->{-ugroups} =$r
if !$_[1]
|| (lc($_[0]->useron) eq lc($_[1]))
lib/CGI/Bus.pm view on Meta::CPAN
push @$r, $e if !grep /^\Q$e\E$/i, @$r
}
}
}
}
$r =do{use locale; [sort {lc($a) cmp lc($b)} @$r]} if ref($r) eq 'ARRAY';
if ($s->{-ugrpcnv}) {
local $_;
if (ref($r) eq 'ARRAY') {
my @g;
CGI-Deurl-XS
view release on metacpan or search on metacpan
hv_scalar||5.009001|
hv_store_ent||5.004000|
hv_store_flags||5.008000|
hv_store|||
hv_undef|||
ibcmp_locale||5.004000|
ibcmp_utf8||5.007003|
ibcmp|||
incl_perldb|||
incline|||
incpush|||
sortsv||5.007003|
ss_dup|||
stack_grow|||
start_glob|||
start_subparse||5.004000|
stdize_locale|||
strEQ|||
strGE|||
strGT|||
strLE|||
strLT|||
sv_catsv|||
sv_chop|||
sv_clean_all|||
sv_clean_objs|||
sv_clear|||
sv_cmp_locale||5.004000|
sv_cmp|||
sv_collxfrm|||
sv_compile_2op||5.008001|
sv_copypv||5.007003|
sv_dec|||
return TRUE;
}
}
#else
/* older perls don't have PL_numeric_radix_sv so the radix
* must manually be requested from locale.h
*/
#include <locale.h>
dTHR; /* needed for older threaded perls */
struct lconv *lc = localeconv();
char *radix = lc->decimal_point;
if (radix && IN_LOCALE) {
STRLEN len = strlen(radix);
if (*sp + len <= send && memEQ(*sp, radix, len)) {
*sp += len;
}
}
#endif /* PERL_VERSION */
#endif /* USE_LOCALE_NUMERIC */
/* always try "." if numeric radix didn't match because
* we may have data from different locales mixed */
if (*sp < send && **sp == '.') {
++*sp;
return TRUE;
}
return FALSE;
CGI-FormBuilder
view release on metacpan or search on metacpan
lib/CGI/FormBuilder/Field.pm view on Meta::CPAN
returns the inflate subroutine reference that is set. For example:
use DateTime::Format::Strptime;
my $date_format = DateTime::Format::Strptime->new(
pattern => '%D', # for MM/DD/YYYY american dates
locale => 'en_US',
time_zone => 'America/Los_Angeles',
);
$field->inflate( sub { return $date_format->format_datetime(shift) } );
=head2 invalid
CGI-Info
view release on metacpan or search on metacpan
scripts/generate_index.pl view on Meta::CPAN
showing which injected faults the test suite detected (killed) and
which it missed (survived).
=item * B<CPAN Testers failure analysis>, showing which Perl versions
and operating systems are failing, with automatic root cause detection
including Perl version cliffs, locale sensitivity, and dependency
version cliffs.
=back
In addition to the dashboard, the script drives the mutation-guided
scripts/generate_index.pl view on Meta::CPAN
sortable columns, and sparkline trend per file
Coverage Trend - Chart of total coverage over recent commits with
linear regression line, zoom and pan support
RT Issues - Count of open RT tickets for the distribution
CPAN Testers - Failure table for the current release, with
Perl version cliff detection, locale analysis,
dependency version cliff detection, and root
cause confidence scoring
Mutation Report - Per-file mutation score (killed/survived/total),
cyclomatic complexity, and TER3 (LCSAJ path
coverage) with raw fraction
scripts/generate_index.pl view on Meta::CPAN
mutation_output_dir => 'cover_html/mutation_html', # where files are written
lcsaj_root => 'cover_html/mutation_html/lib',
lcsaj_hits_file => 'cover_html/lcsaj_hits.json', # Runtime.pm writes here
output => 'cover_html/index.html', # published to gh-pages
max_retry => 5,
min_locale_samples => 3,
verbose => 1,
);
# --------------------------------------------------
# Parse command-line options.
scripts/generate_index.pl view on Meta::CPAN
text-decoration: underline;
}
.notice.perl-version-cliff a:hover {
text-decoration: none;
}
.notice.locale-cliff {
border-left: 4px solid #d97706;
background: #fffbeb;
padding: 0.5em 1em;
}
.notice.rt-issues {
scripts/generate_index.pl view on Meta::CPAN
perl_series => {},
os => {},
perl_os => {},
);
my %locale_stats;
for my $r (@fail_reports) {
my $perl = perl_series($r->{perl});
my $os = $r->{osname} // 'unknown';
scripts/generate_index.pl view on Meta::CPAN
$clusters{os}{$os}++;
$clusters{perl_os}{"$perl / $os"}++ if $perl;
if(lc($r->{grade} // '') eq 'fail') {
# Don't include NA or Unknown in this list
my $locale = extract_locale($r) // 'unknown';
$locale_stats{$locale}{fail}++;
}
}
my @top_perl_series = sort { $clusters{perl_series}{$b} <=> $clusters{perl_series}{$a} }
keys %{ $clusters{perl_series} };
scripts/generate_index.pl view on Meta::CPAN
);
}
push @html, '</ul>';
my @locale_clusters;
for my $r (@pass_reports) {
my $locale = extract_locale($r) // 'unknown';
$locale_stats{$locale}{pass}++;
}
for my $loc (keys %locale_stats) {
next if $loc eq 'unknown';
my $fail = $locale_stats{$loc}{fail} // 0;
my $pass = $locale_stats{$loc}{pass} // 0;
my $total = $fail + $pass;
next if $total < $config{min_locale_samples};
my $ratio = $fail / $total * 100;
if ($ratio >= $config{low_threshold} && is_non_english_locale($loc)) {
push @locale_clusters, {
locale => $loc,
fail => $fail,
pass => $pass,
ratio => $ratio,
};
}
}
if(scalar(@locale_clusters)) {
push @html,
'<h3>Locale-sensitive failures detected</h3>',
'<div class="notice locale-cliff">',
'<ul>';
foreach my $locale(@locale_clusters) {
push @html, "<li><code>$locale->{locale}</code> - $locale->{fail} FAIL / $locale->{pass} PASS ($locale->{ratio}%)</li>";
}
push @html, '</ul>', '</div>';
}
my @fail_perl_versions = extract_perl_versions(\@fail_reports);
scripts/generate_index.pl view on Meta::CPAN
return $1;
}
return;
}
sub extract_locale {
my $r = $_[0];
# Preferred: explicit environment
for my $k (qw(LANG LC_ALL LC_CTYPE)) {
if (my $v = $r->{env}{$k}) {
scripts/generate_index.pl view on Meta::CPAN
if($report->{result}->{output}->{uncategorized} =~ /\b([a-z]{2}_[A-Z]{2})\b/) {
return $1;
}
}
sub is_non_english_locale {
my $locale = $_[0];
return 0 unless $locale;
# Treat C / POSIX / en_* as English
return 0 if $locale =~ /^(C|POSIX|en(_|$))/i;
return 1;
}
sub parse_version {
scripts/generate_index.pl view on Meta::CPAN
],
perldelta => perldelta_url($min_pass),
};
}
sub detect_locale_root_cause {
my ($reports, $config) = @_;
my %count;
my $total = 0;
for my $r (@$reports) {
# Can get FPs if we take NA or Unknown into account
if(lc($r->{grade} // '') eq 'fail') {
my $loc = extract_locale($r) or next;
next if $loc =~ /^en_/i;
$count{$loc}++;
$total++;
}
}
scripts/generate_index.pl view on Meta::CPAN
for my $loc (keys %count) {
my $ratio = $count{$loc} / $total;
next unless $ratio >= ($config->{low_threshold} / 100);
return {
type => 'locale',
label => "Locale-sensitive behavior ($loc)",
confidence => sprintf("%.2f", $ratio),
evidence => [
"$count{$loc}/$total failures with LANG=$loc",
'English locales show fewer or no failures',
],
};
}
return;
scripts/generate_index.pl view on Meta::CPAN
$args{fail_reports} || [],
$args{pass_reports} || [],
);
push @hints, detect_os_root_cause($args{fail_reports}, \%config) if $args{fail_reports};
push @hints, detect_locale_root_cause($args{fail_reports}, \%config);
if ($args{fail_perl_versions} && $args{pass_perl_versions}) {
push @hints,
detect_perl_version_root_cause(
$args{fail_perl_versions},
CGI-Lingua
view release on metacpan or search on metacpan
lib/CGI/Lingua.pm view on Meta::CPAN
# _slanguage => undef, # Language that the website should display
# _sublanguage => undef, # E.g. United States for en-US if you want American English
# _slanguage_code_alpha2 => undef, # E.g en, fr
# _sublanguage_code_alpha2 => undef, # E.g. us, gb
# _country => undef, # Two letters, e.g. gb
# _locale => undef, # Locale::Object::Country
_syslog => $params->{syslog},
_dont_use_ip => $params->{dont_use_ip} || 0,
_have_ipcountry => -1, # -1 = don't know
_have_geoip => -1, # -1 = don't know
_have_geoipfree => -1, # -1 = don't know
lib/CGI/Lingua.pm view on Meta::CPAN
# Site supports British English only
my $l = CGI::Lingua->new({ supported => ['fr', 'en-gb']} );
If the script is not being run in a CGI environment, perhaps to debug it, the
locale is used via the LANG environment variable.
=cut
sub language {
my $self = $_[0];
lib/CGI/Lingua.pm view on Meta::CPAN
} else {
$self->{_have_geoip} = 0;
}
}
=head2 locale
HTTP doesn't have a way of transmitting a browser's localisation information
which would be useful for default currency, date formatting, etc.
This method attempts to detect the information, but it is a best guess
and is not 100% reliable. But it's better than nothing ;-)
Returns a L<Locale::Object::Country> object.
To be clear, if you're in the US and request the language in Spanish,
and the site supports it, language() will return 'Spanish', and locale() will
try to return the Locale::Object::Country for the US.
=cut
sub locale {
my $self = shift;
if($self->{_locale}) {
return $self->{_locale};
}
# First try from the User Agent. Probably only works with Mozilla and
# Safari. I don't know about Opera. It won't work with IE or Chrome.
my $agent = $ENV{'HTTP_USER_AGENT'};
lib/CGI/Lingua.pm view on Meta::CPAN
$candidate =~ s/^\s//g;
$candidate =~ s/\s$//g;
if($candidate =~ /^[a-zA-Z]{2}-([a-zA-Z]{2})$/) {
local $SIG{__WARN__} = undef;
if(my $c = $self->_code2country($1)) {
$self->{_locale} = $c;
return $c;
}
# carp "Warning: unknown country $1 derived from $candidate in HTTP_USER_AGENT ($agent)";
}
}
lib/CGI/Lingua.pm view on Meta::CPAN
if(eval { require HTTP::BrowserDetect; } ) {
HTTP::BrowserDetect->import();
my $browser = HTTP::BrowserDetect->new($agent);
if($browser && $browser->country() && (my $c = $self->_code2country($browser->country()))) {
$self->{_locale} = $c;
return $c;
}
}
}
lib/CGI/Lingua.pm view on Meta::CPAN
local $SIG{__WARN__} = sub { die $_[0] };
$c = $self->_code2country($country);
};
unless($@) {
if($c) {
$self->{_locale} = $c;
return $c;
}
}
}
# Try mod_geoip
if(defined($ENV{'GEOIP_COUNTRY_CODE'})) {
$country = $ENV{'GEOIP_COUNTRY_CODE'};
my $c = $self->_code2country($country);
if($c) {
$self->{_locale} = $c;
return $c;
}
}
return undef;
}
CGI-SSI_Parser
view release on metacpan or search on metacpan
SSI_Parser.pm view on Meta::CPAN
my $error_msg = '[an error occurred while processing this directive]';
my $SIZEFMT_BYTES = 0; # sizefmt = bytes
my $SIZEFMT_KMG = 1; # sizefmt = abbrev
my $sizefmt = $SIZEFMT_KMG;
my $timefmt = "%c"; # current locale's default
my($starting_sequence, $ending_sequence) = ('<!--#', '-->');
my($real_path, $virtual_path);
# Usage: ssi_init();
CGI-WebToolkit
view release on metacpan or search on metacpan
lib/CGI/WebToolkit.pm view on Meta::CPAN
# caching
cachetable => '',
allowclearcache => 1,
clearcacheparam => 'clearcache',
# locale
phrasetable =>'',
defaultlanguage => 'en_GB',
# workflow parameters
workflowparam => 'to',
CGI-Wiki-Plugin-Diff
view release on metacpan or search on metacpan
lib/CGI/Wiki/Plugin/Diff.pm view on Meta::CPAN
{ type => ARRAYREF | UNDEF, optional => 1 },
{ type => ARRAYREF | UNDEF, optional => 1 },
);
$include ||= [keys %$all_meta];
$exclude ||= [qw(comment username
__categories__checksum __locales__checksum)] ;
my %metadata = map {$_,$all_meta->{$_}} @$include;
delete $metadata{$_} for @$exclude;
join $self->{metadata_separator},
lib/CGI/Wiki/Plugin/Diff.pm view on Meta::CPAN
previous version (OpenGuides) behaviour:
C<qw(
username
comment
__categories__checksum
__locales__checksum )>
Agreed this list is hopelessly inadequate, especially for L<OpenGuides>.
Hopefully, future wiki designers will use the meta_include parameter to
specify exactly what metadata they want to appear on the diff.
CIAO-Lib-Param
view release on metacpan or search on metacpan
alloccopstash|5.017001|5.017001|x
alloc_LOGOP|5.025004||xViu
allocmy|5.008001||Viu
amagic_call|5.003007|5.003007|u
amagic_cmp|5.009003||Viu
amagic_cmp_locale|5.009003||Viu
amagic_deref_call|5.013007|5.013007|u
amagic_i_ncmp|5.009003||Viu
amagic_is_enabled|5.015008||Viu
amagic_ncmp|5.009003||Viu
_aMY_CXT|5.009000|5.009000|p
category_name|5.027008||nViu
cBOOL|5.013000|5.003007|p
change_engine_size|5.029004||Viu
CHARBITS|5.011002|5.011002|
checkcomma|5.003007||Viu
check_locale_boundary_crossing|5.015006||Viu
check_type_and_open|5.009003||Viu
check_uni|5.003007||Viu
check_utf8_print|5.013009||Viu
ck_entersub_args_core|||iu
ck_entersub_args_list|5.013006|5.013006|
dXSARGS|5.003007|5.003007|
dXSI32|5.003007|5.003007|V
dXSTARG|5.006000|5.003007|poVu
edit_distance|5.023008||nViu
emulate_cop_io|||xciu
emulate_setlocale|5.027009||nViu
END_EXTERN_C|5.005000|5.003007|poVu
ENTER|5.003007|5.003007|
ENTER_with_name|5.011002|5.011002|
ERRSV|5.004005|5.003007|p
eval_pv|5.006000|5.003007|p
fixup_errno_string|5.019007||Viu
fold_constants|5.003007||Viu
foldEQ|5.013002|5.013002|n
foldEQ_latin1|5.013008|5.013008|nu
foldEQ_latin1_s2_folded|5.029007||nViu
foldEQ_locale|5.013002|5.013002|n
foldEQ_utf8|5.013002|5.007003|p
foldEQ_utf8_flags|5.013010||cVu
forbid_setid|5.005000||Viu
force_ident|5.003007||Viu
force_ident_maybe_lex|5.017004||Viu
I32SIZE|5.006000|5.006000|
I32TYPE|5.006000|5.006000|
I8SIZE|5.006000|5.006000|
I8TYPE|5.006000|5.006000|
ibcmp|5.003007|5.003007|
ibcmp_locale|5.004000|5.004000|
ibcmp_utf8|5.007003|5.007003|u
incline|5.005000||Viu
incpush|5.005000||Viu
incpush_if_exists|5.009003||Viu
incpush_use_sep|5.011000||Viu
isIDFIRST_utf8|5.031005|5.031005|
isIDFIRST_utf8_safe|5.025009|5.006000|p
isIDFIRST_uvchr|5.023009|5.006000|p
isinfnan|5.021004|5.021004|n
isinfnansv|5.021005||Vi
_is_in_locale_category|5.021001||cViu
is_invariant_string|5.021007|5.011000|pn
is_invlist|5.029002||nViu
isLB|5.023007||Viu
isLOWER|5.003007|5.003007|p
isLOWER_A|5.013006|5.003007|p
PERL_SCAN_ALLOW_UNDERSCORES|5.007003|5.003007|p
PERL_SCAN_DISALLOW_PREFIX|5.007003|5.003007|p
PERL_SCAN_GREATER_THAN_UV_MAX|5.007003|5.003007|p
PERL_SCAN_SILENT_ILLDIGIT|5.008001|5.003007|p
PERL_SCAN_TRAILING|5.021002|5.021002|
Perl_setlocale|5.027002|5.027002|n
PERL_SHORT_MAX|5.003007|5.003007|p
PERL_SHORT_MIN|5.003007|5.003007|p
PERL_SIGNALS_UNSAFE_FLAG|5.008001|5.003007|poVu
Perl_signbit|5.009005|5.009005|nx
PerlSock_accept_cloexec|5.027008||Viu
pregexec|5.003007|5.003007|u
pregfree2|5.011000|5.011000|u
pregfree|5.003007|5.003007|u
prescan_version|5.011004|5.011004|
printbuf|5.009004||Viu
print_bytes_for_locale|5.027002||Viu
print_collxfrm_input_and_return|5.025004||Viu
printf_nocontext|5.007001|5.007001|vndu
PRIVLIB|5.003007|5.003007|
process_special_blocks|5.009005||Viu
pTHX|5.006000|5.003007|p
require_pv|5.006000|5.006000|
require_tie_mod|5.009005||Viu
RESTORE_ERRNO|||i
RESTORE_LC_NUMERIC|5.021010|5.021010|
restore_magic|5.009003||Viu
restore_switched_locale|5.027009||Viu
RETVAL|5.003007|5.003007|V
rninstr|5.003007|5.003007|n
rpeep|5.013005||Viu
rsignal|5.004000|5.004000|
rsignal_restore|5.004000||Viu
setfd_cloexec|5.027008||nViu
setfd_cloexec_for_nonsysfd|5.027008||Viu
setfd_cloexec_or_inhexec_by_sysfdness|5.027008||Viu
setfd_inhexec|5.027008||nViu
setfd_inhexec_for_sysfd|5.027008||Viu
setlocale_debug_string|5.027002||nViu
set_numeric_radix|5.006000||Viu
set_numeric_standard|5.006000||cViu
set_numeric_underlying|5.027006||cViu
set_padlist|5.021006||ncViu
set_regex_pv|5.029004||Viu
space_join_names_mortal|5.009004||Viu
SPAGAIN|5.003007|5.003007|
ssc_add_range|5.019005||Viu
ssc_and|5.019005||Viu
ssc_anything|5.019005||Viu
ssc_clear_locale|5.019005||nViu
ssc_cp_and|5.019005||Viu
ssc_finalize|5.019005||Viu
ssc_init|5.019005||Viu
ssc_intersection|5.019005||Viu
ssc_is_anything|5.019005||nViu
start_glob|||xi
START_MY_CXT|5.010000|5.010000|p
STARTPERL|5.003007|5.003007|
start_subparse|5.004000|5.003007|pu
STDCHAR|5.003007|5.003007|
stdize_locale|5.007001||Viu
STMT_END|5.003007|5.003007|pV
STMT_START|5.003007|5.003007|pV
STORE_LC_NUMERIC_FORCE_TO_UNDERLYING|5.021010|5.021010|
STORE_LC_NUMERIC_SET_TO_NEEDED|5.021010|5.021010|
STORE_LC_NUMERIC_SET_TO_NEEDED_IN|5.031003|5.031003|
sv_clean_all|5.003007||Vi
sv_clean_objs|5.003007||Vi
sv_clear|5.003007|5.003007|
sv_cmp|5.003007|5.003007|
sv_cmp_flags|5.013006|5.013006|
sv_cmp_locale|5.004000|5.004000|
sv_cmp_locale_flags|5.013006|5.013006|
sv_collxfrm|||
sv_collxfrm_flags|5.013006|5.013006|
SV_CONST_RETURN|5.009003|5.003007|poVu
sv_copypv|5.007003|5.007003|
sv_copypv_flags|5.017002|5.017002|
sv_vsetpvf|5.006000|5.004000|p
sv_vsetpvf_mg|5.006000|5.004000|p
sv_vsetpvfn|5.004000|5.004000|
SvVSTRING_mg|5.009004||pVu
swallow_bom|5.006001||Viu
switch_category_locale_to_template|5.027009||Viu
switch_to_global_locale|5.027009|5.003007|pn
sync_locale|5.027009|5.003007|pn
sys_init3|5.010000|5.010000|nu
sys_init|5.010000|5.010000|nu
sys_intern_clear|5.006001||Vu
sys_intern_dup|5.006000||Vu
sys_intern_init|5.006001||Vu
sys_term|5.010000|5.010000|nu
taint_env|5.003007|5.003007|u
taint_proper|5.003007|5.003007|u
THIS|5.003007|5.003007|V
thread_locale_init|5.027009|5.027009|nxu
thread_locale_term|5.027009|5.027009|nxu
tied_method|5.013009||vViu
tmps_grow_p|5.021005||cViu
to_byte_substr|5.008000||Viu
toFOLD|5.019001|5.019001|
_to_fold_latin1|5.015005||ncViu
WARN_PARENTHESIS|5.006000|5.003007|p
WARN_PIPE|5.006000|5.003007|p
WARN_PORTABLE|5.006000|5.003007|p
WARN_PRECEDENCE|5.006000|5.003007|p
WARN_PRINTF|5.006000|5.003007|p
_warn_problematic_locale|5.021008||ncViu
WARN_PROTOTYPE|5.006000|5.003007|p
WARN_QW|5.006000|5.003007|p
WARN_RECURSION|5.006000|5.003007|p
WARN_REDEFINE|5.006000|5.003007|p
WARN_REDUNDANT|5.021002|5.021002|
whichsig_pv|5.015004|5.015004|u
whichsig_pvn|5.015004|5.015004|u
whichsig_sv|5.015004|5.015004|u
WIDEST_UTYPE|5.015004|5.003007|p
win32_croak_not_implemented|5.017006||nViu
win32_setlocale|5.027006||Viu
WITH_LC_NUMERIC_SET_TO_NEEDED|5.031003|5.031003|
WITH_LC_NUMERIC_SET_TO_NEEDED_IN|5.031003|5.031003|
with_queued_errors|5.013001||Viu
wrap_keyword_plugin|5.027006|5.027006|x
wrap_op_checker|5.015008|5.015008|
(s)[1]))) \
: is ## macro ## _utf8(s))
/* A few of the early functions are broken. For these and the non-LC case,
* machine generated code is substituted. But that code doesn't work for
* locales. This is just like the above macro, but at the end, we call the
* macro we've generated for the above 255 case, which is correct since locale
* isn't involved. This will generate extra code to handle the 0-255 inputs,
* but hopefully it will be optimized out by the C compiler. But just in case
* it isn't, this macro is only used on the few versions that are broken */
#define D_PPP_IS_GENERIC_LC_UTF8_SAFE_BROKEN(s, e, macro) \
#ifdef EBCDIC
/* This is the first version where these macros are fully correct on EBCDIC
* platforms. Relying on * the C library functions, as earlier releases did,
* causes problems with * locales */
# if (PERL_BCDVERSION < 0x5022000)
# undef isALNUM
# undef isALNUM_A
# undef isALNUM_L1
# undef isALNUMC
#else /* Above is EBCDIC; below is ASCII */
# if (PERL_BCDVERSION < 0x5004000)
/* The implementation of these in older perl versions can give wrong results if
* the C program locale is set to other than the C locale */
# undef isALNUM
# undef isALNUM_A
# undef isALPHA
# undef isALPHA_A
# undef isDIGIT
return TRUE;
}
}
#else
/* older perls don't have PL_numeric_radix_sv so the radix
* must manually be requested from locale.h
*/
#include <locale.h>
dTHR; /* needed for older threaded perls */
struct lconv *lc = localeconv();
char *radix = lc->decimal_point;
if (radix && IN_LOCALE) {
STRLEN len = strlen(radix);
if (*sp + len <= send && memEQ(*sp, radix, len)) {
*sp += len;
}
}
#endif
#endif /* USE_LOCALE_NUMERIC */
/* always try "." if numeric radix didn't match because
* we may have data from different locales mixed */
if (*sp < send && **sp == '.') {
++*sp;
return TRUE;
}
return FALSE;
#endif
#endif
/* If this doesn't exist, it's not needed, so noop */
#ifndef switch_to_global_locale
# define switch_to_global_locale()
#endif
/* Originally, this didn't return a value, but in perls like that, the value
* should always be TRUE. Add a return to Perl_sync_locale() when it's
* available. And actually do a sync when its not, if locales are available on
* this system. */
#ifdef sync_locale
# if (PERL_BCDVERSION < 0x5027009)
# if (PERL_BCDVERSION >= 0x5021003)
# undef sync_locale
# define sync_locale() (Perl_sync_locale(aTHX), 1)
# elif defined(sync_locale) /* These should be the 5.20 maints*/
# undef sync_locale /* Just copy their defn and return 1 */
# define sync_locale() (new_ctype(setlocale(LC_CTYPE, NULL)), \
new_collate(setlocale(LC_COLLATE, NULL)), \
set_numeric_local(), \
new_numeric(setlocale(LC_NUMERIC, NULL)), \
1)
# elif defined(new_ctype) && defined(LC_CTYPE)
# define sync_locale() (new_ctype(setlocale(LC_CTYPE, NULL)), 1)
# endif
# endif
#endif
#ifndef sync_locale
# define sync_locale() 1
#endif
#endif /* _P_P_PORTABILITY_H_ */
/* End of File ppport.h */
CIAO-Lib-StackIO
view release on metacpan or search on metacpan
return TRUE;
}
}
#else
/* pre5.6.0 perls don't have PL_numeric_radix_sv so the radix
* must manually be requested from locale.h */
#include <locale.h>
struct lconv *lc = localeconv();
char *radix = lc->decimal_point;
if (radix && IN_LOCALE) {
STRLEN len = strlen(radix);
if (*sp + len <= send && memEQ(*sp, radix, len)) {
*sp += len;
}
}
#endif /* PERL_VERSION */
#endif /* USE_LOCALE_NUMERIC */
/* always try "." if numeric radix didn't match because
* we may have data from different locales mixed */
if (*sp < send && **sp == '.') {
++*sp;
return TRUE;
}
return FALSE;
CIPP
view release on metacpan or search on metacpan
lib/CIPP/Compile/Generator.pm view on Meta::CPAN
optional => {},
) || return $RC;
$self->push_context('var_noquote');
$self->write("CIPP->request->set_locale_messages_lang(qq^");
return $RC;
}
sub cmd_l {
CLDR-Number
view release on metacpan or search on metacpan
lib/CLDR/Number.pm view on Meta::CPAN
}
sub _make_args {
my ($self, %new_args) = @_;
my %args = (locale => $self->locale, %new_args);
return %args;
}
1;
lib/CLDR/Number.pm view on Meta::CPAN
=head1 SYNOPSIS
use CLDR::Number;
# new object with 'es' (Spanish) locale
$cldr = CLDR::Number->new(locale => 'es');
# decimals
$decf = $cldr->decimal_formatter;
# when locale is 'es' (Spanish)
say $decf->format(1234.5); # '1234,5'
# when locale is 'es-MX' (Mexican Spanish)
say $decf->format(1234.5); # '1,234.5'
# when locale is 'ar' (Arabic)
say $decf->format(1234.5); # '١٬٢٣٤٫٥'
# percents
$perf = $cldr->percent_formatter;
# when locale is 'tr' (Turkish)
say $perf->format(0.05); # '%5'
# currencies
$curf = $cldr->currency_formatter(currency_code => 'USD');
# when locale is 'en' (English) and currency is USD (US dollars)
say $curf->format(9.99); # '$9.99'
# when locale is 'en-CA' (Canadian English) and currency is USD
say $curf->format(9.99); # 'US$9.99'
# when locale is 'fr-CA' (Canadian French) and currency is USD
say $curf->format(9.99); # '9,99Â $Â US'
=head1 DEPRECATION
Using the C<locale> method as a setter is deprecated. In the future the object’s
locale will become immutable. Please see
L<issue #38|https://github.com/patch/cldr-number-pm5/issues/38> for details and
to submit comments or concerns.
=head1 DESCRIPTION
Software localization includes much more than just translations. Numbers,
prices, and even percents should all be localized based on the user’s language,
script, and region. Fortunately, the Unicode Common Locale Data Repository
(CLDR) provides locale data and specifications for formatting numeric data to
use with many of the world’s locales.
This class provides common attributes shared among the supported formatter
classes as well as methods to instantiate decimal, percent, and currency
formatter objects. The value for any attribute (such as B<locale> or
B<decimal_sign>) will be passed to the formatter objects on instantiation but
can be overwritten by manually passing another value for the attribute or
calling a setter method on the formatter object.
=head2 Methods
lib/CLDR/Number.pm view on Meta::CPAN
=back
=head2 Common Attributes
These are common attributes among this class and all formatter classes. All
attributes other than B<locale>, B<default_locale>, and B<cldr_version> have
defaults that change depending on the current B<locale>. All string attributes
are expected to be character strings, not byte strings.
=over
=item locale
Default: value of B<default_locale> attribute if it exists, otherwise C<root>
Valid: Unicode locale identifiers
Examples: C<es> (Spanish), C<es-ES> (European Spanish), C<es-419> (Latin
American Spanish), C<zh-Hant> (Traditional Chinese), C<zh-Hans> (Simplified
Chinese), C<chr> (Cherokee)
The locale is case-insensitive and can use either C<-> (hyphen-minus) or C<_>
(low line) as a separator.
=item default_locale
Default: none
Valid: Unicode locale identifiers
Use this if you want a locale other than the generic C<root> if the B<locale>
attribute is not set or not valid.
=item numbering_system
Valid: currently only decimal numbering systems are supported
lib/CLDR/Number.pm view on Meta::CPAN
In the future, algorithmic numbering systems like C<hant> (Traditional Chinese
Numerals), C<hebr> (Hebrew Numerals), and C<roman> (Roman Numerals) will be
supported.
The numbering system may alternately be provided as a Unicode locale extension
subtag. For example, locale C<ja-u-nu-fullwide> for the Japanese language
(C<ja>) with the numbering system (C<nu>) set to Full Width Digits
(C<fullwide>).
=item decimal_sign
lib/CLDR/Number.pm view on Meta::CPAN
Examples: C<,> (comma) for B<root>, B<en>; C<.> (full stop) for B<de>; C<Â >
(no-break space) for B<fr>
=item plus_sign
Examples: C<+> (plus sign) for B<root>, B<en>, and most locales
=item minus_sign
Examples: C<-> (hyphen-minus) for B<root>, B<en>, and most locales
=item infinity
Examples: C<∞> (infinity) for B<root>, B<en>, and almost all locales
=item nan
Examples: C<NaN> for B<root>, B<en>, and most locales; many other variations for
individual locales like C<не чиÑло> for B<ru> and C<éžæ•¸å€¼> for B<zh-Hant>
=item cldr_version
Value: C<29>
CLI-Gwrap
view release on metacpan or search on metacpan
bin/gwrap_ls.pl view on Meta::CPAN
'enclose entry names in double quotes',
),
radio(
'quoting-style',
'use quoting style for entry names: literal, locale, shell, shell-always, c, escape',
choices => ['literal', 'locale', 'shell', 'shell-always', 'c', 'escape'],
),
check(
['si', 'powers of 1000'],
'like -h, but use powers of 1000 not 1024',
bin/gwrap_ls.pl view on Meta::CPAN
choices => ['atime', 'access', 'use', 'ctime', 'status'],
),
string(
'time-style',
'with -l, show times using style: full-iso, long-iso, iso, locale, +FORMAT. FORMAT is interpreted like \'date\'; if FORMAT is FORMAT1<newline>FORMAT2, FORMAT1 applies to non-recent files and FORMAT2 to recent files; if STYLE is prefixed w...
),
integer(
['T', 'tabsize'],
'assume tab stops at each COLS instead of 8',
bin/gwrap_ls.pl view on Meta::CPAN
-Q, --quote-name
enclose entry names in double quotes
--quoting-style=WORD
use quoting style WORD for entry names: literal, locale, shell, shell-always, c, escape
-r, --reverse
reverse order while sorting
-R, --recursive
bin/gwrap_ls.pl view on Meta::CPAN
--time=WORD
with -l, show time as WORD instead of modification time: atime -u, access -u, use -u, ctime
-c, or status -c; use specified time as sort key if --sort=time
--time-style=STYLE
with -l, show times using style STYLE: full-iso, long-iso, iso, locale, +FORMAT. FORMAT is
interpreted like 'date'; if FORMAT is FORMAT1<newline>FORMAT2, FORMAT1 applies to non-recent
files and FORMAT2 to recent files; if STYLE is prefixed with 'posix-', STYLE takes effect
only outside the POSIX locale
-t sort by modification time, newest first
-T, --tabsize=COLS
assume tab stops at each COLS instead of 8
CLI-Popt
view release on metacpan or search on metacpan
easyxs/ppport.h view on Meta::CPAN
ALLOC_THREAD_KEY|5.005003||Viu
ALT_DIGITS|5.027010||Viu
amagic_call|5.003007|5.003007|u
amagic_cmp|5.009003||Viu
amagic_cmp_desc|5.031011||Viu
amagic_cmp_locale|5.009003||Viu
amagic_cmp_locale_desc|5.031011||Viu
amagic_deref_call|5.013007|5.013007|u
amagic_i_ncmp|5.009003||Viu
amagic_i_ncmp_desc|5.031011||Viu
amagic_is_enabled|5.015008||Viu
amagic_ncmp|5.009003||Viu
easyxs/ppport.h view on Meta::CPAN
CHARBITS|5.011002|5.011002|Vn
CHARSET_PAT_MODS|5.013010||Viu
chdir|5.005000||Viu
checkcomma|5.003007||Viu
check_end_shift|5.009005||Viu
check_locale_boundary_crossing|5.015006||Viu
CHECK_MALLOC_TAINT|5.008001||Viu
CHECK_MALLOC_TOO_LATE_FOR|5.008001||Viu
check_offset_max|5.005000||Viu
check_offset_min|5.005000||Viu
check_substr|5.005000||Viu
easyxs/ppport.h view on Meta::CPAN
cMETHOPx_rclass|5.021007||Viu
cmpchain_extend|5.031011||Viu
cmpchain_finish|5.031011||Viu
cmpchain_start|5.031011||Viu
cmp_desc|5.031011||Viu
cmp_locale_desc|5.031011||Viu
cntrl_to_mnemonic|5.021004||cVniu
CODESET|5.027010||Viu
COMBINING_DOT_ABOVE_UTF8|5.029008||Viu
COMBINING_GRAVE_ACCENT_UTF8|5.017004||Viu
COMMIT|5.009005||Viu
easyxs/ppport.h view on Meta::CPAN
edit_distance|5.023008||Vniu
EIGHT_BIT_UTF8_TO_NATIVE|5.023003||Viu
ELEMENT_RANGE_MATCHES_INVLIST|5.023002||Viu
EMBEDMYMALLOC|5.006000||Viu
emulate_cop_io|||xciu
emulate_setlocale|5.027009||Vniu
END|5.003007||Viu
END_EXTERN_C|5.005000|5.003007|pV
endgrent|5.009000||Viu
ENDGRENT_R_HAS_FPTR|5.008000||Viu
ENDGRENT_R_PROTO|5.008000|5.008000|Vn
easyxs/ppport.h view on Meta::CPAN
FmLINES|5.003007||Viu
fold_constants|5.003007||Viu
foldEQ|5.013002|5.013002|n
foldEQ_latin1|5.013008||cVnu
foldEQ_latin1_s2_folded|5.029007||Vniu
foldEQ_locale|5.013002|5.013002|n
FOLDEQ_LOCALE|5.019009||cV
FOLDEQ_S1_ALREADY_FOLDED|5.015004||cV
FOLDEQ_S1_FOLDS_SANE|5.021008||cV
FOLDEQ_S2_ALREADY_FOLDED|5.015004||cV
FOLDEQ_S2_FOLDS_SANE|5.021008||cV
easyxs/ppport.h view on Meta::CPAN
I8_TO_NATIVE|5.015006||Viu
I8_TO_NATIVE_UTF8|5.019004||Viu
I8TYPE|5.006000|5.006000|Vn
I_ARPA_INET|5.005000|5.005000|Vn
ibcmp|5.003007|5.003007|
ibcmp_locale|5.004000|5.004000|
ibcmp_utf8|5.007003|5.007003|
I_CRYPT|5.008000|5.008000|Vn
I_DBM|5.032001|5.032001|Vn
I_DIRENT|5.003007|5.003007|Vn
I_DLFCN|5.003007|5.003007|Vn
easyxs/ppport.h view on Meta::CPAN
isIDFIRST_utf8|5.031005|5.031005|
isIDFIRST_utf8_safe|5.025009|5.006000|p
isIDFIRST_uvchr|5.023009|5.006000|p
isinfnan|5.021004|5.021004|n
isinfnansv|5.021005||Vi
_is_in_locale_category|5.021001||cViu
IS_IN_SOME_FOLD_L1|5.033005||Viu
is_invariant_string|5.021007|5.011000|pn
is_invlist|5.029002||Vniu
is_LARGER_NON_CHARS_utf8|5.035003||Viu
is_LAX_VERSION|5.011004||Viu
easyxs/ppport.h view on Meta::CPAN
PERL_SCRIPT_MODE|5.004005||Viu
PERL_SEEN_HV_FUNC_H|5.017010||Viu
PERL_SEEN_HV_MACRO_H|5.027001||Viu
PERL_SET_CONTEXT|5.006000||Viu
PERL_SET_INTERP|5.006000||Viu
Perl_setlocale|5.027002|5.027002|n
PERL_SET_PHASE|5.015001||Viu
PERL_SET_THX|5.006000||Viu
Perl_sharepvn|5.006000||Viu
PERL_SHORT_MAX|5.003007|5.003007|p
PERL_SHORT_MIN|5.003007|5.003007|p
easyxs/ppport.h view on Meta::CPAN
PL_copline||5.003007|ponu
PL_cop_seqmax|5.005000||Viu
PL_cshlen|5.005000||Viu
PL_curcop|5.004005|5.003007|p
PL_curcopdb|5.005000||Viu
PL_curlocales|5.027009||Viu
PL_curpad|5.005000|5.005000|x
PL_curpm|5.005000||Viu
PL_curpm_under|5.025007||Viu
PL_curstack|5.005000||Viu
PL_curstackinfo|5.005000||Viu
easyxs/ppport.h view on Meta::CPAN
PL_in_my||5.003007|ponu
PL_in_my_stash||5.005000|ponu
PL_inplace|5.005000||Viu
PL_in_some_fold|5.029007||Viu
PL_internal_random_state|5.027004||Viu
PL_in_utf8_COLLATE_locale|5.025002||Viu
PL_in_utf8_CTYPE_locale|5.019009||Viu
PL_in_utf8_turkic_locale|5.029008||Viu
PL_isarev|5.009005||Viu
PL_keyword_plugin|5.011002|5.011002|x
PL_known_layers|5.007003||Viu
PL_langinfo_buf|5.027004||Viu
PL_langinfo_bufsize|5.027004||Viu
easyxs/ppport.h view on Meta::CPAN
PL_lc_numeric_mutex_depth|5.027009||Viu
PL_lex_state||5.003007|ponu
PL_lex_stuff||5.003007|ponu
PL_linestr||5.003007|ponu
PL_LIO|5.006000||Viu
PL_locale_utf8ness|5.027009||Viu
PL_localizing|5.005000||Viu
PL_localpatches|5.005000||Viu
PL_lockhook|5.007003||Viu
PL_main_cv|5.005000||Viu
PL_main_root|5.005000||Viu
easyxs/ppport.h view on Meta::CPAN
PL_scopestack_ix|5.005000||Viu
PL_scopestack_max|5.005000||Viu
PL_scopestack_name|5.011002||Viu
PL_SCX_invlist|5.027008||Viu
PL_secondgv|5.005000||Viu
PL_setlocale_buf|5.027009||Viu
PL_setlocale_bufsize|5.027009||Viu
PL_sharehook|5.007003||Viu
PL_sighandler1p|5.031007||Viu
PL_sighandler3p|5.031007||Viu
PL_sighandlerp|5.005000||Viu
PL_signalhook|5.013002||Viu
easyxs/ppport.h view on Meta::CPAN
PL_utf8_charname_begin|5.017006||Viu
PL_utf8_charname_continue|5.017006||Viu
PL_utf8_foldclosures|5.013007||Viu
PL_utf8_idcont|5.008000||Viu
PL_utf8_idstart|5.008000||Viu
PL_utf8locale|5.008001||Viu
PL_utf8_mark|5.006000||Viu
PL_utf8_perl_idcont|5.017008||Viu
PL_utf8_perl_idstart|5.015004||Viu
PL_utf8_tofold|5.007003||Viu
PL_utf8_tolower|5.006000||Viu
easyxs/ppport.h view on Meta::CPAN
PL_vtbl_taint|5.015000||Viu
PL_vtbl_utf8|5.015000||Viu
PL_vtbl_uvar|5.015000||Viu
PL_vtbl_vec|5.015000||Viu
PL_warnhook|5.005000||Viu
PL_warn_locale|5.021008||Viu
PL_watchaddr|5.006000||Viu
PL_watchok|5.006000||Viu
PL_WB_invlist|5.021009||Viu
PL_wcrtomb_ps|5.031010||Viu
PL_XPosix_ptrs|5.017008||Viu
easyxs/ppport.h view on Meta::CPAN
prescan_version|5.011004|5.011004|
PRESCAN_VERSION|5.019008||Viu
PREVOPER|5.003007||Viu
PREV_RANGE_MATCHES_INVLIST|5.023002||Viu
printbuf|5.009004||Viu
print_bytes_for_locale|5.027002||Viu
print_collxfrm_input_and_return|5.025004||Viu
printf|5.003007||Viu
PRINTF_FORMAT_NULL_OK|5.009005|5.009005|Vn
printf_nocontext|5.007001||vdVnu
PRIVLIB|5.003007|5.003007|Vn
easyxs/ppport.h view on Meta::CPAN
ReREFCNT_dec|5.005000||Viu
ReREFCNT_inc|5.005000||Viu
RESTORE_ERRNO|5.010001||Vi
RESTORE_LC_NUMERIC|5.021010|5.021010|p
restore_magic|5.009003||Viu
restore_switched_locale|5.027009||Viu
RE_SV_DUMPLEN|5.009004||Viu
RE_SV_ESCAPE|5.009004||Viu
RE_SV_TAIL|5.009004||Viu
RETPUSHNO|5.003007||Viu
RETPUSHUNDEF|5.003007||Viu
easyxs/ppport.h view on Meta::CPAN
sethostent|5.005000||Viu
SETHOSTENT_R_PROTO|5.008000|5.008000|Vn
SETi|5.003007||Viu
setjmp|5.005000||Viu
setlinebuf|5.005000||Viu
setlocale|5.009000||Viu
setlocale_debug_string|5.027002||Vniu
SETLOCALE_LOCK|5.033005||Viu
SETLOCALE_R_PROTO|5.008000|5.008000|Vn
SETLOCALE_UNLOCK|5.033005||Viu
SET_MARK_OFFSET|5.006000||Viu
setmode|5.005000||Viu
easyxs/ppport.h view on Meta::CPAN
SS_ADD_UV|5.017007||Viu
SS_BUFFEROVF|5.021009||Viu
ssc_add_range|5.019005||Viu
ssc_and|5.019005||Viu
ssc_anything|5.019005||Viu
ssc_clear_locale|5.019005||Vniu
ssc_cp_and|5.019005||Viu
ssc_finalize|5.019005||Viu
SSCHECK|5.003007||Viu
ssc_init|5.019005||Viu
ssc_intersection|5.019005||Viu
easyxs/ppport.h view on Meta::CPAN
ST_DEV_SIZE|5.035004|5.035004|Vn
stdin|5.003007||Viu
STDIO_PTR_LVAL_SETS_CNT|5.007001|5.007001|Vn
STDIO_PTR_LVALUE|5.006000|5.006000|Vn
STDIO_STREAM_ARRAY|5.006000|5.006000|Vn
stdize_locale|5.007001||Viu
stdout|5.003007||Viu
stdoutf|5.005000||Viu
STD_PAT_MODS|5.009005||Viu
STD_PMMOD_FLAGS_CLEAR|5.013006||Viu
ST_INO_SIGN|5.015002|5.015002|Vn
easyxs/ppport.h view on Meta::CPAN
sv_clean_all|5.003007||Vi
sv_clean_objs|5.003007||Vi
sv_clear|5.003007|5.003007|
sv_cmp|5.003007|5.003007|
sv_cmp_flags|5.013006|5.013006|
sv_cmp_locale|5.004000|5.004000|
sv_cmp_locale_flags|5.013006|5.013006|
sv_collxfrm|5.013006||V
sv_collxfrm_flags|5.013006|5.013006|
SvCOMPILED|5.003007||Viu
SvCOMPILED_off|5.003007||Viu
SvCOMPILED_on|5.003007||Viu
easyxs/ppport.h view on Meta::CPAN
SvVSTRING_mg|5.009004|5.003007|p
SvWEAKREF|5.006000||Viu
SvWEAKREF_off|5.006000||Viu
SvWEAKREF_on|5.006000||Viu
swallow_bom|5.006001||Viu
switch_category_locale_to_template|5.027009||Viu
SWITCHSTACK|5.003007||Viu
switch_to_global_locale|5.027009|5.003007|pn
sync_locale|5.027009|5.003007|pn
sys_init3|||cnu
sys_init|||cnu
sys_intern_clear|5.006001||Vu
sys_intern_dup|5.006000||Vu
sys_intern_init|5.006001||Vu
easyxs/ppport.h view on Meta::CPAN
T_FMT_AMPM|5.027010||Viu
THIS|5.003007|5.003007|V
THOUSEP|5.027010||Viu
THR|5.005000||Viu
THREAD_CREATE_NEEDS_STACK|5.007002||Viu
thread_locale_init|5.027009|5.027009|xnu
thread_locale_term|5.027009|5.027009|xnu
THREAD_RET_TYPE|5.005000||Viu
tied_method|5.013009||vViu
TIED_METHOD_ARGUMENTS_ON_STACK|5.013009||Viu
TIED_METHOD_MORTALIZE_NOT_NEEDED|5.013009||Viu
TIED_METHOD_SAY|5.013009||Viu
easyxs/ppport.h view on Meta::CPAN
WARN_PARENTHESIS|5.006000|5.003007|p
WARN_PIPE|5.006000|5.003007|p
WARN_PORTABLE|5.006000|5.003007|p
WARN_PRECEDENCE|5.006000|5.003007|p
WARN_PRINTF|5.006000|5.003007|p
_warn_problematic_locale|5.021008||cVniu
WARN_PROTOTYPE|5.006000|5.003007|p
WARN_QW|5.006000|5.003007|p
WARN_RECURSION|5.006000|5.003007|p
WARN_REDEFINE|5.006000|5.003007|p
WARN_REDUNDANT|5.021002|5.021002|
easyxs/ppport.h view on Meta::CPAN
WHILEM_tb_p8|5.033003||Viu
WHILEM_tb_pb|5.033003||Viu
WIDEST_UTYPE|5.015004|5.003007|poVnu
win32_croak_not_implemented|5.017006||Vniu
WIN32SCK_IS_STDSCK|5.007001||Viu
win32_setlocale|5.027006||Viu
withinCOUNT|5.031004||Viu
withinCOUNT_KNOWN_VALID|5.033005||Viu
WITH_LC_NUMERIC_SET_TO_NEEDED|5.031003|5.031003|
WITH_LC_NUMERIC_SET_TO_NEEDED_IN|5.031003|5.031003|
with_queued_errors|5.013001||Viu
easyxs/ppport.h view on Meta::CPAN
(s)[1]))) \
: is ## macro ## _utf8(s))
/* A few of the early functions are broken. For these and the non-LC case,
* machine generated code is substituted. But that code doesn't work for
* locales. This is just like the above macro, but at the end, we call the
* macro we've generated for the above 255 case, which is correct since locale
* isn't involved. This will generate extra code to handle the 0-255 inputs,
* but hopefully it will be optimized out by the C compiler. But just in case
* it isn't, this macro is only used on the few versions that are broken */
#define D_PPP_IS_GENERIC_LC_UTF8_SAFE_BROKEN(s, e, macro) \
easyxs/ppport.h view on Meta::CPAN
#ifdef EBCDIC
/* This is the first version where these macros are fully correct on EBCDIC
* platforms. Relying on the C library functions, as earlier releases did,
* causes problems with locales */
# if (PERL_BCDVERSION < 0x5022000)
# undef isALNUM
# undef isALNUM_A
# undef isALNUM_L1
# undef isALNUMC
easyxs/ppport.h view on Meta::CPAN
#else /* Above is EBCDIC; below is ASCII */
# if (PERL_BCDVERSION < 0x5004000)
/* The implementation of these in older perl versions can give wrong results if
* the C program locale is set to other than the C locale */
# undef isALNUM
# undef isALNUM_A
# undef isALPHA
# undef isALPHA_A
# undef isDIGIT
easyxs/ppport.h view on Meta::CPAN
return TRUE;
}
}
#else
/* older perls don't have PL_numeric_radix_sv so the radix
* must manually be requested from locale.h
*/
#include <locale.h>
dTHR; /* needed for older threaded perls */
struct lconv *lc = localeconv();
char *radix = lc->decimal_point;
if (radix && IN_LOCALE) {
STRLEN len = strlen(radix);
if (*sp + len <= send && memEQ(*sp, radix, len)) {
*sp += len;
easyxs/ppport.h view on Meta::CPAN
}
}
#endif
#endif /* USE_LOCALE_NUMERIC */
/* always try "." if numeric radix didn't match because
* we may have data from different locales mixed */
if (*sp < send && **sp == '.') {
++*sp;
return TRUE;
}
return FALSE;
easyxs/ppport.h view on Meta::CPAN
# define DECLARATION_FOR_LC_NUMERIC_MANIPULATION char *LoC_
#endif
#ifndef STORE_NUMERIC_SET_STANDARD
# define STORE_NUMERIC_SET_STANDARD() \
LoC_ = savepv(setlocale(LC_NUMERIC, NULL)); \
SAVEFREEPV(LoC_); \
setlocale(LC_NUMERIC, "C");
#endif
#ifndef RESTORE_LC_NUMERIC
# define RESTORE_LC_NUMERIC() \
setlocale(LC_NUMERIC, LoC_);
#endif
# else
#ifndef DECLARATION_FOR_LC_NUMERIC_MANIPULATION
# define DECLARATION_FOR_LC_NUMERIC_MANIPULATION
easyxs/ppport.h view on Meta::CPAN
#ifndef UNLOCK_LC_NUMERIC_STANDARD
# define UNLOCK_LC_NUMERIC_STANDARD UNLOCK_NUMERIC_STANDARD
#endif
/* If this doesn't exist, it's not needed, so is void noop */
#ifndef switch_to_global_locale
# define switch_to_global_locale()
#endif
/* Originally, this didn't return a value, but in perls like that, the value
* should always be TRUE. Add a return to Perl_sync_locale() when it's
* available. And actually do a sync when its not, if locales are available on
* this system. */
#ifdef sync_locale
# if (PERL_BCDVERSION < 0x5027009)
# if (PERL_BCDVERSION >= 0x5021003)
# undef sync_locale
# define sync_locale() (Perl_sync_locale(aTHX), 1)
# elif defined(sync_locale) /* These should only be the 5.20 maints*/
# undef sync_locale /* Just copy their defn and return 1 */
# define sync_locale() (new_ctype(setlocale(LC_CTYPE, NULL)), \
new_collate(setlocale(LC_COLLATE, NULL)), \
set_numeric_local(), \
new_numeric(setlocale(LC_NUMERIC, NULL)), \
1)
# elif defined(new_ctype) && defined(LC_CTYPE)
# define sync_locale() (new_ctype(setlocale(LC_CTYPE, NULL)), 1)
# endif
# endif
#endif
#ifndef sync_locale
# define sync_locale() 1
#endif
#endif /* _P_P_PORTABILITY_H_ */
/* End of File ppport.h */
CLI-Startup
view release on metacpan or search on metacpan
Debian_CPANTS.txt view on Meta::CPAN
"libdatetime-format-oracle-perl", "DateTime-Format-Oracle", "0.05", "0", "0"
"libdatetime-format-pg-perl", "DateTime-Format-Pg", "0.16005", "0", "0"
"libdatetime-format-sqlite-perl", "DateTime-Format-SQLite", "0.11", "0", "0"
"libdatetime-format-strptime-perl", "DateTime-Format-Strptime", "1.5000", "0", "0"
"libdatetime-format-w3cdtf-perl", "DateTime-Format-W3CDTF", "0.06", "0", "0"
"libdatetime-locale-perl", "DateTime-Locale", "0.45", "0", "0"
"libdatetime-perl", "DateTime", "0.7000", "0", "0"
"libdatetime-set-perl", "DateTime-Set", "0.30", "0", "0"
"libdatetime-timezone-perl", "DateTime-TimeZone", "1.34", "1", "0"
"libdatetimex-easy-perl", "DateTimeX-Easy", "0.089", "0", "0"
"libdb-file-lock-perl", "DB_File-Lock", "0.05", "0", "1"
Debian_CPANTS.txt view on Meta::CPAN
"libencode-arabic-perl", "http://qa.debian.org/watch/sf.php/encode-arabic/Encode-Arabic-1.9.tar.gz", "1.9", "0", "1"
"libencode-detect-perl", "Encode-Detect", "1.01", "0", "0"
"libencode-hanextra-perl", "Encode-HanExtra", "0.23", "0", "1"
"libencode-imaputf7-perl", "Encode-IMAPUTF7", "1.05", "0", "0"
"libencode-jis2k-perl", "Encode-JIS2K", "0.02", "0", "0"
"libencode-locale-perl", "Encode-Locale", "1.02", "0", "1"
"libencode-perl", "Encode", "2.42", "0", "1"
"libend-perl", "End", "2009040201", "0", "0"
"libenv-path-perl", "Env-Path", "0.18", "0", "0"
"libenv-ps1-perl", "Env-PS1", "0.06", "0", "0"
"libenv-sanctify-perl", "Env-Sanctify", "1.02", "0", "0"
Debian_CPANTS.txt view on Meta::CPAN
"liblist-moreutils-perl", "List-MoreUtils", "0.25~02", "4", "0"
"liblist-utilsby-perl", "List-UtilsBy", "0.07", "0", "0"
"liblivejournal-perl", "http://forbidden.dough.net/~archon/lj/LiveJournal-1.3.tar.gz", "1.3", "0", "4"
"libload-perl", "load", "0.19", "0", "0"
"liblocal-lib-perl", "local-lib", "1.008004", "1", "0"
"liblocale-currency-format-perl", "Locale-Currency-Format", "1.28", "0", "1"
"liblocale-gettext-perl", "gettext", "1.05", "1", "2"
"liblocale-hebrew-perl", "Locale-Hebrew", "1.04", "0", "0"
"liblocale-maketext-fuzzy-perl", "Locale-Maketext-Fuzzy", "0.10", "0", "0"
"liblocale-maketext-gettext-perl", "Locale-Maketext-Gettext", "1.28", "0", "0"
"liblocale-maketext-lexicon-perl", "Locale-Maketext-Lexicon", "0.82", "0", "0"
"liblocale-maketext-simple-perl", "Locale-Maketext-Simple", "0.21", "0", "0"
"liblocale-msgfmt-perl", "Locale-Msgfmt", "0.14", "0", "0"
"liblocale-subcountry-perl", "Locale-SubCountry", "1.47", "0", "0"
"liblocale-us-perl", "Locale-US", "1.2", "0", "0"
"liblocales-perl", "Locales", "0.16", "0", "1"
"liblockfile-simple-perl", "LockFile-Simple", "0.207", "2", "2"
"liblog-agent-logger-perl", "Log-Agent-Logger", "0.1.1", "0", "0"
"liblog-agent-perl", "Log-Agent", "0.307", "0", "1"
"liblog-agent-rotate-perl", "Log-Agent-Rotate", "0.104", "0", "0"
"liblog-any-adapter-dispatch-perl", "Log-Any-Adapter-Dispatch", "0.06", "0", "1"
CMS-MediaWiki
view release on metacpan or search on metacpan
hv_scalar||5.009001|
hv_store_ent||5.004000|
hv_store_flags||5.008000|
hv_store|||
hv_undef|||
ibcmp_locale||5.004000|
ibcmp_utf8||5.007003|
ibcmp|||
incl_perldb|||
incline|||
incpush|||
sortsv||5.007003|
ss_dup|||
stack_grow|||
start_glob|||
start_subparse||5.004000|
stdize_locale|||
strEQ|||
strGE|||
strGT|||
strLE|||
strLT|||
sv_catsv|||
sv_chop|||
sv_clean_all|||
sv_clean_objs|||
sv_clear|||
sv_cmp_locale||5.004000|
sv_cmp|||
sv_collxfrm|||
sv_compile_2op||5.008001|
sv_copypv||5.007003|
sv_dec|||
return TRUE;
}
}
#else
/* older perls don't have PL_numeric_radix_sv so the radix
* must manually be requested from locale.h
*/
#include <locale.h>
dTHR; /* needed for older threaded perls */
struct lconv *lc = localeconv();
char *radix = lc->decimal_point;
if (radix && IN_LOCALE) {
STRLEN len = strlen(radix);
if (*sp + len <= send && memEQ(*sp, radix, len)) {
*sp += len;
}
}
#endif /* PERL_VERSION */
#endif /* USE_LOCALE_NUMERIC */
/* always try "." if numeric radix didn't match because
* we may have data from different locales mixed */
if (*sp < send && **sp == '.') {
++*sp;
return TRUE;
}
return FALSE;
CORBA-IDLtree
view release on metacpan or search on metacpan
lib/CORBA/IDLtree.pm view on Meta::CPAN
my $abstract = 0; # can also contain LOCAL (for interfaces)
my $currfile = -1;
my $starting_line_number_of_remark = 0; # 0 = there is no pre comment
my $line_number_of_post_comment = 0; # 0 = there is no post comment
my $emucpp = 1; # use C preprocessor emulation
my $locale_was_determined = 0;
my $locale = undef;
sub locate_executable {
# FIXME: this is probably another reinvention of the wheel.
# Should look for builtin Perl solution or CPAN module that does this.
my $executable = shift;
lib/CORBA/IDLtree.pm view on Meta::CPAN
$currfile = -1;
$did_emucppmsg = 0; # auxiliary to sub emucppmsg
@scopestack = ();
@prev_symroots = ();
%active_defines = %defines;
unless ($locale_was_determined) {
foreach my $env ('LANG', 'LOCALE', 'LC_ALL') {
if (exists $ENV{$env}) {
my $lang = $ENV{$env};
if ($lang && $lang ne "C") {
$locale = $lang;
last;
}
}
}
$locale_was_determined = 1;
}
my $res = Parse_File_i($filename);
if ($cache_statistics) {
print "Node cache: " . $findnode_cache->ratio()."\n";
print "Include cache: " . $includecache->ratio()."\n";
CORBA-MICO
view release on metacpan or search on metacpan
}
}
#--------------------------------------------------------------------
$| = 1;
Gtk2->set_locale();
Gtk2->init();
POSIX::setlocale(LC_NUMERIC, 'POSIX');
# Create toplevel window
$topwindow = new Gtk2::Window('toplevel');
$topwindow->set_title('Corba Control Center: Interface repository');
$topwindow->realize();
CORBA-omniORB
view release on metacpan or search on metacpan
omnithreads/ppport.h view on Meta::CPAN
aTHX|5.006000||p
add_data|||n
addmad|||
allocmy|||
amagic_call|||
amagic_cmp_locale|||
amagic_cmp|||
amagic_i_ncmp|||
amagic_ncmp|||
any_dup|||
ao|||
omnithreads/ppport.h view on Meta::CPAN
hv_store_ent||5.004000|
hv_store_flags||5.008000|
hv_stores|5.009004||p
hv_store|||
hv_undef|||
ibcmp_locale||5.004000|
ibcmp_utf8||5.007003|
ibcmp|||
incl_perldb|||
incline|||
incpush_if_exists|||
omnithreads/ppport.h view on Meta::CPAN
stack_grow|||
start_force|||
start_glob|||
start_subparse||5.004000|
stashpv_hvname_match||5.009004|
stdize_locale|||
strEQ|||
strGE|||
strGT|||
strLE|||
strLT|||
omnithreads/ppport.h view on Meta::CPAN
sv_catxmlsv|||
sv_chop|||
sv_clean_all|||
sv_clean_objs|||
sv_clear|||
sv_cmp_locale||5.004000|
sv_cmp|||
sv_collxfrm|||
sv_compile_2op||5.008001|
sv_copypv||5.007003|
sv_dec|||
omnithreads/ppport.h view on Meta::CPAN
return TRUE;
}
}
#else
/* older perls don't have PL_numeric_radix_sv so the radix
* must manually be requested from locale.h
*/
#include <locale.h>
dTHR; /* needed for older threaded perls */
struct lconv *lc = localeconv();
char *radix = lc->decimal_point;
if (radix && IN_LOCALE) {
STRLEN len = strlen(radix);
if (*sp + len <= send && memEQ(*sp, radix, len)) {
*sp += len;
omnithreads/ppport.h view on Meta::CPAN
}
}
#endif
#endif /* USE_LOCALE_NUMERIC */
/* always try "." if numeric radix didn't match because
* we may have data from different locales mixed */
if (*sp < send && **sp == '.') {
++*sp;
return TRUE;
}
return FALSE;
CPAN-Changes
view release on metacpan or search on metacpan
corpus/dists/DBIx-Class.changes view on Meta::CPAN
0.08100 2009-04-19 11:39:35 (UTC)
- Todo out the register_extra_source test until after shipping
0.08099_08 2009-03-30 00:00:00 (UTC)
- Fixed taint mode with load_namespaces
- Putting IC::DateTime locale, timezone or floating_tz_ok attributes into
extra => {} has been deprecated. The new way is to put these things
directly into the columns definition
- Switched MI code to MRO::Compat
- Document db-side default_value caveats
- Search_like() now warns to indicate deprecation in 0.09.
corpus/dists/DBIx-Class.changes view on Meta::CPAN
- fix get_inflated_columns to check has_column_loaded
- Add DBIC_MULTICREATE_DEBUG env var (undocumented, quasi-internal)
- Fix up multi-create to:
- correctly propagate columns loaded during multi-insert of rels
- not try and insert things tagged on via new_related unless required
- Possible to set locale in IC::DateTime extra => {} config
- Calling the accessor of a belongs_to when the foreign_key
was NULL and the row was not stored would unexpectedly fail
- Split sql statements for deploy only if SQLT::Producer returned a scalar
containing all statements to be executed
- Add as_query() for ResultSet and ResultSetColumn. This makes subqueries
CPAN-Common-Index
view release on metacpan or search on metacpan
t/CPAN/modules/02packages.details.txt view on Meta::CPAN
Lit::Array undef F/FG/FGLOCK/v6-0.044.tar.gz
Lit::Block undef F/FG/FGLOCK/v6-0.044.tar.gz
Lit::Code undef F/FG/FGLOCK/v6-0.044.tar.gz
Lit::Hash undef F/FG/FGLOCK/v6-0.044.tar.gz
Lit::Object undef F/FG/FGLOCK/v6-0.044.tar.gz
locale 1.01 F/FL/FLORA/perl-5.17.4.tar.bz2
Lookup undef F/FG/FGLOCK/v6-0.044.tar.gz
Math::BigInt::Scalar 0.13 F/FL/FLORA/perl-5.17.4.tar.bz2
Method undef F/FG/FGLOCK/v6-0.044.tar.gz
Method::Generate::Accessor undef M/MS/MSTROUT/Moo-1.001000.tar.gz
Method::Generate::BuildAll undef M/MS/MSTROUT/Moo-1.001000.tar.gz
CPAN-MetaCurator
view release on metacpan or search on metacpan
data/tiddlers.json view on Meta::CPAN
[
{
"text": "\"\"\"\no See also:\n- It means in abcd order, i.e. alphabetical, so I can put it first in the list of topics :-)\n- ChartingAndPlotting - For Charts::ECharts or Imager, i.e. for all things to do with images\n- CommandLineStuff\n- Cr...
"title": "ABeCeDarian",
"modified": "20260529231923358",
"created": "20250808033718279"
},
{
data/tiddlers.json view on Meta::CPAN
"title": "LicenceStuff",
"modified": "20260505222122373",
"created": "20231130005805666"
},
{
"text": "\"\"\"\no See also:\n- DataTraversal\n- DataTypes\n- DatesAndTimes - For DatesAndTimes\n- [[HTTPServers]] - For CGI::ACL\n- TheRFCGuide\n- TabularData\n- TextAnalysisAndFormatting\n\n<pre>\nNotes:\na) Before installing any Lingua::*:...
"title": "LinguaStuff",
"modified": "20260516232401341",
"created": "20230702003755699"
},
{
data/tiddlers.json view on Meta::CPAN
"title": "LinuxOS",
"modified": "20260527062042074",
"created": "20260209051935710"
},
{
"text": "\"\"\"\no See also:\n- BusinessApps\n- DatesAndTimes\n- https://metacpan.org/dist/libintl-perl - For Locale::TextDomain::FAQ etc\n\no Convert::Number::Digits:\n- Convert Digits Between the Scripts of Unicode.\n- https://metacpan.org/...
"title": "LocaleStuff",
"modified": "20260513010328854",
"created": "20240720060957732"
},
{
CPAN-PackageDetails
view release on metacpan or search on metacpan
* Now that I can get the unique list, I can fix the line
count in the header.
0.17 - 2009-02-13
* Format the date the way CPAN.pm expects it, despite the
locale of the user. Everyone should upgrade to this version.
0.15 - 2008-11-10
* Sort the package names in the output
0.13 - 2008-11-05
CPAN-Reporter
view release on metacpan or search on metacpan
lib/CPAN/Reporter.pm view on Meta::CPAN
=head1 PRIVACY WARNING
CPAN::Reporter includes information in the test report about environment
variables and special Perl variables that could be affecting test results in
order to help module authors interpret the results of the tests. This includes
information about paths, terminal, locale, userE<sol>group ID, installed toolchain
modules (e.g. ExtUtils::MakeMaker) and so on.
These have been intentionally limited to items that should not cause harmful
personal information to be revealed -- it does I<not> include your entire
environment. Nevertheless, please do not use CPAN::Reporter if you are
CPAN-Search-Lite
view release on metacpan or search on metacpan
htdocs/faq.html.it view on Meta::CPAN
<dt><a class="t5" name="02">Perché il "Modulo X" manca?</a></dt>
<dd><p>
Supponendo che il modulo sia stato indicizzato con successo in <a
href="http://www.cpan.org/">CPAN</a> e che sia passato sufficiente tempo
affinché il mirror locale lo abbia preso, questo può essere
dovuto ad una distribuzione che non segua una struttura convenzionale. In
particolare, qui è supposto che si possa scompattare la distribuzione in
una sotto-directory derivata dal suo nome, e che il nome della distribuzione e
una stringa contenente la versione del modulo siano ottenibili per mezzo del
modulo <a href="http://cpan.uwinnipeg.ca/%7egbarr/CPAN-DistnameInfo">
CPAN-Testers-ParseReport
view release on metacpan or search on metacpan
lib/CPAN/Testers/ParseReport.pm view on Meta::CPAN
"%b %d, %Y %R", # July 4,...
) {
$dt = eval {
my $p = DateTime::Format::Strptime->new
(
locale => "en",
time_zone => "UTC",
pattern => $pat,
);
$p->parse_datetime($date)
};
lib/CPAN/Testers/ParseReport.pm view on Meta::CPAN
my($dt);
DATEFMT: for my $pat ("%b %d %Y %T") { # Sep 28 2008 12:23:12
$dt = eval {
my $p = DateTime::Format::Strptime->new
(
locale => "en",
time_zone => "UTC",
pattern => $pat,
);
$p->parse_datetime($date)
};
CPAN-Testers-WWW-Statistics
view release on metacpan or search on metacpan
t/data/cpanstats-test.json view on Meta::CPAN
{"test":{"count":{"entries":100,"reports":100,"posters":"182","distros":0},"pass":{"MacPPC":{"5.4.0":{"all":{"Net-Whois":1,"URI":1,"Storable":1,"Mac-Conversions":1,"Digest-MD5":1}}},"PA-RISC1.1":{"5.5.3":{"all":{"DBD-Oracle":1,"Curses":1}},"5.4.4":{"...
CPAN-cpanminus-reporter-RetainReports
view release on metacpan or search on metacpan
t/data/build.module_dir.log view on Meta::CPAN
Checking for float.h... yes
Checking for assert.h... yes
Checking for ctype.h... yes
Checking for errno.h... yes
Checking for limits.h... yes
Checking for locale.h... yes
Checking for math.h... yes
Checking for setjmp.h... yes
Checking for signal.h... yes
Checking for stddef.h... yes
Checking for stdio.h... yes
CPAN
view release on metacpan or search on metacpan
2010-06-24 Andreas J. Koenig <andk@cpan.org>
* release 1.94_58
* bugfix: Non-English locales got no diagnostics on a failed locking due
to permissions (reported by Frank Wiegand)
* chasing test failures with test fixes.
2010-05-24 Andreas J. Koenig <andk@cpan.org>
* address #21484: disable inactivity_timeout when d_alarm is not "define"
* regex in "o conf init MATCH" must now be enclosed in slashes as in all
other commands that allow regexes
* again tested with 5.8.0, this time with an UTF8 locale and it did
indeed not pass the 30test: turning LANG=C now for the 30shell test,
unconditionally
* all supported config variables now documented in the POD and added a
test to monitor changes in the future
CPANDB
view release on metacpan or search on metacpan
lib/CPANDB.pm view on Meta::CPAN
use ORLite 1.51 ();
use ORLite::Mirror 1.20 ();
our $VERSION = '0.19';
our @LOCATION = (
locale => 'C',
time_zone => 'UTC',
);
sub import {
my $class = shift;
( run in 2.149 seconds using v1.01-cache-2.11-cpan-ceb78f64989 )