view release on metacpan or search on metacpan
inc/bundle/Locale/Maketext/Simple.pm view on Meta::CPAN
More sophisticated example:
package Foo::Bar;
use Locale::Maketext::Simple (
Class => 'Foo', # search in auto/Foo/
Style => 'gettext', # %1 instead of [_1]
Export => 'maketext', # maketext() instead of loc()
Subclass => 'L10N', # Foo::L10N instead of Foo::I18N
Decode => 1, # decode entries to unicode-strings
Encoding => 'locale', # but encode lexicons in current locale
# (needs Locale::Maketext::Lexicon 0.36)
);
sub japh {
print maketext("Just another %1 hacker", "Perl");
}
=head1 DESCRIPTION
This module is a simple wrapper around B<Locale::Maketext::Lexicon>,
designed to alleviate the need of creating I<Language Classes> for
inc/bundle/Locale/Maketext/Simple.pm view on Meta::CPAN
=head2 Decode
If set to a true value, source entries will be converted into
utf8-strings (available in Perl 5.6.1 or later). This feature
needs the B<Encode> or B<Encode::compat> module.
=head2 Encoding
Specifies an encoding to store lexicon entries, instead of
utf8-strings. If set to C<locale>, the encoding from the current
locale setting is used. Implies a true value for C<Decode>.
=cut
sub import {
my ($class, %args) = @_;
$args{Class} ||= caller;
$args{Style} ||= 'maketext';
$args{Export} ||= 'loc';
$args{Subclass} ||= 'I18N';
inc/bundle/Module/CoreList.pm view on Meta::CPAN
'Time::gmtime' => '1.01',
'Time::localtime' => '1.01',
'Time::tm' => undef,
'User::grent' => undef,
'User::pwent' => undef,
'VMS::DCLsym' => '1.01',
'VMS::Stdio' => '2.02',
'autouse' => '1.01',
'blib' => undef,
'constant' => '1.00',
'locale' => undef,
'sigtrap' => '1.02',
'vmsish' => undef,
},
removed => {
'Fatal' => 1,
}
},
5.00405 => {
delta_from => 5.004,
changed => {
inc/bundle/Module/CoreList.pm view on Meta::CPAN
'bytes' => '1.00',
'charnames' => '1.01',
'constant' => '1.04',
'diagnostics' => '1.1',
'encoding' => '1.00',
'fields' => '1.02',
'filetest' => '1.00',
'if' => '0.01',
'integer' => '1.00',
'less' => '0.01',
'locale' => '1.00',
'open' => '1.01',
'ops' => '1.00',
'overload' => '1.00',
're' => '0.03',
'sort' => '1.00',
'strict' => '1.02',
'subs' => '1.00',
'threads' => '0.05',
'threads::shared' => '0.90',
'utf8' => '1.00',
inc/bundle/Module/CoreList.pm view on Meta::CPAN
'Unicode' => '6.1.0',
'Unicode::UCD' => '0.41',
'Version::Requirements' => '0.101022',
'XS::APItest' => '0.36',
'XS::Typemap' => '0.08',
'_charnames' => '1.29',
'arybase' => '0.04',
'charnames' => '1.29',
'diagnostics' => '1.28',
'feature' => '1.26',
'locale' => '1.01',
'overload' => '1.18',
'perlfaq' => '5.0150039',
're' => '0.19',
'subs' => '1.01',
'warnings' => '1.13',
},
removed => {
}
},
5.015009 => {
inc/bundle/Module/CoreList.pm view on Meta::CPAN
'Thread::Queue' => '3.02',
'Unicode::UCD' => '0.50',
'Win32' => '0.46',
'Win32API::File' => '0.1201',
'_charnames' => '1.36',
'arybase' => '0.06',
'bigint' => '0.32',
'bignum' => '0.32',
'charnames' => '1.36',
'filetest' => '1.03',
'locale' => '1.02',
'overload' => '1.21',
'warnings' => '1.17',
},
removed => {
}
},
5.017010 => {
delta_from => 5.017009,
changed => {
'Benchmark' => '1.15',
inc/bundle/Module/CoreList.pm view on Meta::CPAN
'Pod::Select' => '1.62',
'Scalar::Util' => '1.38',
'autodie' => '2.23',
'autodie::exception' => '2.23',
'autodie::exception::system'=> '2.23',
'autodie::hints' => '2.23',
'autodie::skip' => '2.23',
'diagnostics' => '1.34',
'feature' => '1.35',
'inc::latest' => '0.4205',
'locale' => '1.03',
'mro' => '1.15',
'threads' => '1.92',
'version' => '0.9908',
'version::regex' => '0.9908',
'version::vpp' => '0.9908',
'warnings' => '1.22',
},
removed => {
}
},
inc/bundle/Module/CoreList.pm view on Meta::CPAN
'_charnames' => '1.41',
'autodie' => '2.25',
'autodie::Scope::Guard' => '2.25',
'autodie::Scope::GuardStack'=> '2.25',
'autodie::ScopeUtil' => '2.25',
'autodie::exception' => '2.25',
'autodie::exception::system'=> '2.25',
'autodie::hints' => '2.25',
'autodie::skip' => '2.25',
'charnames' => '1.41',
'locale' => '1.04',
'threads' => '1.94',
'utf8' => '1.14',
'warnings' => '1.24',
},
removed => {
}
},
5.021002 => {
delta_from => 5.021001,
changed => {
inc/bundle/Module/CoreList.pm view on Meta::CPAN
'Test::Stream::Threads' => undef,
'Test::Stream::Toolset' => undef,
'Test::Stream::Util' => undef,
'Test::Tester' => '1.301001_075',
'Test::Tester::Capture' => undef,
'Test::use::ok' => '1.301001_075',
'Unicode::UCD' => '0.59',
'XS::APItest' => '0.68',
'XSLoader' => '0.19',
'experimental' => '0.013',
'locale' => '1.05',
'ok' => '1.301001_075',
'overload' => '1.24',
're' => '0.28',
'warnings' => '1.29',
},
removed => {
}
},
5.021007 => {
delta_from => 5.021006,
inc/bundle/Module/CoreList.pm view on Meta::CPAN
'Unicode::Collate::CJK::Big5'=> '1.12',
'Unicode::Collate::CJK::GB2312'=> '1.12',
'Unicode::Collate::CJK::JISX0208'=> '1.12',
'Unicode::Collate::CJK::Korean'=> '1.12',
'Unicode::Collate::CJK::Pinyin'=> '1.12',
'Unicode::Collate::CJK::Stroke'=> '1.12',
'Unicode::Collate::CJK::Zhuyin'=> '1.12',
'Unicode::Collate::Locale'=> '1.12',
'XS::APItest' => '0.71',
'encoding' => '2.14',
'locale' => '1.06',
'meta_notation' => undef,
'ok' => '0.16',
'parent' => '0.232',
're' => '0.32',
'sigtrap' => '1.08',
'threads' => '2.01',
'utf8' => '1.15',
},
removed => {
'Test::CanFork' => 1,
inc/bundle/Module/CoreList.pm view on Meta::CPAN
'Time::HiRes' => '1.9727_02',
'Unicode::UCD' => '0.63',
'Win32' => '0.52',
'XS::APItest' => '0.75',
'bigint' => '0.40',
'bignum' => '0.40',
'bigrat' => '0.40',
'encoding' => '2.17',
'experimental' => '0.014',
'if' => '0.0605',
'locale' => '1.07',
'mro' => '1.18',
'threads' => '2.03',
},
removed => {
}
},
5.023004 => {
delta_from => 5.023003,
changed => {
'B' => '1.60',
inc/bundle/Module/CoreList.pm view on Meta::CPAN
'PerlIO::mmap' => '0.016',
'Pod::Perldoc' => '3.25_02',
'SDBM_File' => '1.14',
'Term::ANSIColor' => '4.04',
'Test' => '1.28',
'Unicode::Normalize' => '1.24',
'XS::APItest' => '0.77',
'base' => '2.23',
'encoding::warnings' => '0.12',
'fields' => '2.23',
'locale' => '1.08',
'strict' => '1.10',
'threads' => '2.05',
'threads::shared' => '1.50',
'utf8' => '1.18',
},
removed => {
}
},
5.023007 => {
delta_from => 5.023006,
inc/bundle/Module/CoreList.pm view on Meta::CPAN
'Pod::Man' => '4.07',
'Pod::ParseLink' => '4.07',
'Pod::Text' => '4.07',
'Pod::Text::Color' => '4.07',
'Pod::Text::Overstrike' => '4.07',
'Pod::Text::Termcap' => '4.07',
'Thread::Queue' => '3.09',
'Time::HiRes' => '1.9733',
'threads' => '2.07',
'threads::shared' => '1.51',
'locale' => '1.09',
},
removed => {
}
},
5.025000 => {
delta_from => 5.024,
changed => {
'B::Op_private' => '5.025000',
'Config' => '5.025',
'Module::CoreList' => '5.20160507',
inc/bundle/Module/CoreList.pm view on Meta::CPAN
'Unicode::Collate::CJK::Pinyin'=> '1.29',
'Unicode::Collate::CJK::Stroke'=> '1.29',
'Unicode::Collate::CJK::Zhuyin'=> '1.29',
'Unicode::Collate::Locale'=> '1.29',
'Win32' => '0.54',
'XS::APItest' => '1.12',
'bytes' => '1.08',
'experimental' => '0.022',
'feature' => '1.61',
'if' => '0.0609',
'locale' => '1.10',
'mro' => '1.25',
'ok' => '1.302182',
'overload' => '1.33',
're' => '0.41',
'subs' => '1.04',
'utf8' => '1.24',
'version' => '0.9928',
'version::regex' => '0.9928',
},
removed => {
inc/bundle/Module/CoreList.pm view on Meta::CPAN
'Test2::Util::Times' => '0.000159',
'Test2::V0' => '0.000159',
'Test2::Workflow' => '0.000159',
'Test2::Workflow::BlockBase'=> '0.000159',
'Test2::Workflow::Build'=> '0.000159',
'Test2::Workflow::Runner'=> '0.000159',
'Test2::Workflow::Task' => '0.000159',
'Test2::Workflow::Task::Action'=> '0.000159',
'Test2::Workflow::Task::Group'=> '0.000159',
'builtin' => '0.012',
'locale' => '1.11',
},
removed => {
}
},
5.034002 => {
delta_from => 5.034001,
changed => {
'B::Op_private' => '5.034002',
'Config' => '5.034002',
'Module::CoreList' => '5.20231125',
inc/bundle/Module/CoreList.pm view on Meta::CPAN
'Test::More' => '1.302199',
'Test::Simple' => '1.302199',
'Test::Tester' => '1.302199',
'Test::Tester::Capture' => '1.302199',
'Test::Tester::CaptureRunner'=> '1.302199',
'Test::Tester::Delegate'=> '1.302199',
'Test::use::ok' => '1.302199',
'XS::APItest' => '1.36',
'experimental' => '0.032',
'feature' => '1.88',
'locale' => '1.12',
'ok' => '1.302199',
'stable' => '0.032',
'warnings' => '1.69',
},
removed => {
}
},
5.040000 => {
delta_from => 5.039010,
changed => {
inc/bundle/Module/CoreList.pm view on Meta::CPAN
'POSIX' => '2.22',
'Pod::Man' => 'v6.0.2',
'Pod::ParseLink' => 'v6.0.2',
'Pod::Text' => 'v6.0.2',
'Pod::Text::Color' => 'v6.0.2',
'Pod::Text::Overstrike' => 'v6.0.2',
'Pod::Text::Termcap' => 'v6.0.2',
'Storable' => '3.33',
'Win32' => '0.59_01',
'XS::APItest' => '1.37',
'locale' => '1.13',
'source::encoding' => '0.01',
'threads' => '2.41',
'utf8' => '1.27',
},
removed => {
}
},
5.041003 => {
delta_from => 5.041002,
changed => {
inc/bundle/version/vpp.pm view on Meta::CPAN
}
if (ref($value) =~ m/ARRAY|HASH/) {
require Carp;
Carp::croak("Invalid version format (non-numeric data)");
}
$value = _un_vstring($value);
if ($Config{d_setlocale}) {
use POSIX qw/locale_h/;
use if $Config{d_setlocale}, 'locale';
my $currlocale = setlocale(LC_ALL);
# if the current locale uses commas for decimal points, we
# just replace commas with decimal places, rather than changing
# locales
if ( localeconv()->{decimal_point} eq ',' ) {
$value =~ tr/,/./;
}
}
# exponential notation
if ( $value =~ /\d+.?\d*e[-+]?\d+/ ) {
$value = sprintf("%.9f",$value);
$value =~ s/(0+)$//; # trim trailing zeros
}