Linux cpanel2.daytoncreative.net 2.6.32-754.29.2.el6.x86_64 #1 SMP Tue May 12 17:39:04 UTC 2020 x86_64
Apache/2.4.43 (cPanel) OpenSSL/1.1.1g mod_bwlimited/1.4
Server IP : 70.62.220.67 & Your IP : 216.73.216.193
Domains :
Cant Read [ /etc/named.conf ]
User : michaelgreg
Terminal
Auto Root
Create File
Create Folder
Localroot Suggester
Backdoor Destroyer
Readme
/
var /
log /
perl-5.20.2 /
dist /
Locale-Maketext /
t /
Delete
Unzip
Name
Size
Permission
Date
Action
01_about_verbose.t
1.98
KB
-r--r--r--
2014-12-27 11:48
04_use_external_lex_cache.t
1.62
KB
-r--r--r--
2014-12-27 11:48
09_compile.t
709
B
-r--r--r--
2014-12-27 11:48
10_make.t
685
B
-r--r--r--
2014-12-27 11:48
20_get.t
1.72
KB
-r--r--r--
2014-12-27 11:48
30_eval_dollar_at.t
1.6
KB
-r--r--r--
2014-12-27 11:48
40_super.t
1.5
KB
-r--r--r--
2014-12-27 11:48
50_super.t
2.03
KB
-r--r--r--
2014-12-27 11:48
60_super.t
734
B
-r--r--r--
2014-12-27 11:48
70_fail_auto.t
718
B
-r--r--r--
2014-12-27 11:48
90_utf8.t
719
B
-r--r--r--
2014-12-27 11:48
91_backslash.t
870
B
-r--r--r--
2014-12-27 11:48
Save
Rename
#!/usr/bin/perl -Tw use strict; use Test::More tests => 6; BEGIN { use_ok( 'Locale::Maketext' ); } use utf8; { package My::Localize; our @ISA = ('Locale::Maketext'); } { package My::Localize::cs_cz; our @ISA = ('My::Localize'); our %Lexicon = ( '[_1]foo1\n' => '[_1]bar\n', '[_1]foo2\n' => '[_1]běr\n', 'foo2\n' => 'aěa\n', "[_1]foo\\n\n" => "[_1]bar\\n\n", ); keys %Lexicon; # dodges the 'used only once' warning } my $lh = My::Localize->get_handle('cs_cz'); isa_ok( $lh, 'My::Localize::cs_cz' ); is( $lh->maketext('[_1]foo1\n', 'arg'), 'argbar\n', 'Safe parameterized' ); is( $lh->maketext('[_1]foo2\n', 'arg'), 'argběr\n', 'Unicode parameterized' ); is( $lh->maketext('foo2\n'), 'aěa\n', 'Unicode literal' ); is( $lh->maketext("[_1]foo\\n\n", 'arg'), "argbar\\n\n", 'new line parameterized' );